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	--- 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";