e-smith-ibays/sme8/e-smith-ibays-2.2.0-maxLength.patch

--- e-smith-ibays-2.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm.maxLength 2008-10-07 11:35:52.000000000 -0600
+++ e-smith-ibays-2.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm   2008-10-13 13:58:46.000000000 -0600
@@ -218,7 +218,7 @@
     my $self = shift;
     my $in = $self->{cgi}->param('name') || '';
     my $action = $self->{cgi}->param('action') || '';
-    my $maxLength = $configdb->get('maxIbayNameLength');
+    my $maxLength = $configdb->get('maxIbayNameLength')->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">) . 
@@ -399,7 +399,7 @@
 sub max_ibay_name_length {
     my ($self, $data) = @_;
     $configdb->reload();
-    my $max = $configdb->get('maxIbayNameLength');
+    my $max = $configdb->get('maxIbayNameLength')->value;
 
     if (length($data) <= $max) {
         return "OK";
1	slords	1.1	--- e-smith-ibays-2.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm.maxLength 2008-10-07 11:35:52.000000000 -0600
2			+++ e-smith-ibays-2.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm 2008-10-13 13:58:46.000000000 -0600
3			@@ -218,7 +218,7 @@
4			my $self = shift;
5			my $in = $self->{cgi}->param('name') \|\| '';
6			my $action = $self->{cgi}->param('action') \|\| '';
7			- my $maxLength = $configdb->get('maxIbayNameLength');
8			+ my $maxLength = $configdb->get('maxIbayNameLength')->value;
9			print qq(<tr><td colspan="2">) . $self->localise('NAME_FIELD_DESC',
10			{maxLength => $maxLength}) . qq(</td></tr>);
11			print qq(<tr><td class="sme-noborders-label">) .
12			@@ -399,7 +399,7 @@
13			sub max_ibay_name_length {
14			my ($self, $data) = @_;
15			$configdb->reload();
16			- my $max = $configdb->get('maxIbayNameLength');
17			+ my $max = $configdb->get('maxIbayNameLength')->value;
18
19			if (length($data) <= $max) {
20			return "OK";