smeserver-subversion/contribs7/smeserver-subversion-1.4-MaxLength.patch

--- smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm.MaxLength       2008-08-10 18:16:55.000000000 +0200
+++ smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm 2008-08-10 18:19:49.000000000 +0200
@@ -434,7 +434,8 @@
     my $self = shift;
     my $in = $self->{cgi}->param('name') || '';
     my $action = $self->{cgi}->param('action') || '';
-    my $maxLength = $configdb->get('maxRepositoryNameLength');
+    my $recMaxLength = $configdb->get('maxRepositoryNameLength');
+    my $maxLength = $recMaxLength->value;
     print qq(<tr><td colspan="2">) . $self->localise('NAME_FIELD_DESC',
         {maxLength => $maxLength}) . qq(</td></tr>);
     print qq(<tr><td class="sme-noborders-label">) .
1	--- smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm.MaxLength 2008-08-10 18:16:55.000000000 +0200
2	+++ smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm 2008-08-10 18:19:49.000000000 +0200
3	@@ -434,7 +434,8 @@
4	my $self = shift;
5	my $in = $self->{cgi}->param('name') \|\| '';
6	my $action = $self->{cgi}->param('action') \|\| '';
7	- my $maxLength = $configdb->get('maxRepositoryNameLength');
8	+ my $recMaxLength = $configdb->get('maxRepositoryNameLength');
9	+ my $maxLength = $recMaxLength->value;
10	print qq(<tr><td colspan="2">) . $self->localise('NAME_FIELD_DESC',
11	{maxLength => $maxLength}) . qq(</td></tr>);
12	print qq(<tr><td class="sme-noborders-label">) .