e-smith-ibays/sme7/e-smith-ibays-1.2.0-warning.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm mezzanine_patched_e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm
--- e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm   2005-10-06 17:52:29.000000000 -0400
+++ mezzanine_patched_e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm 2007-08-30 11:32:19.000000000 -0400
@@ -482,7 +482,8 @@
 sub print_save_or_add_button {
     my ($self) = @_;
 
-    if ($self->cgi->param("action") eq "modify") {
+    my $action = $self->cgi->param("action") || '';
+    if ($action eq "modify") {
         $self->print_button("SAVE");
     } else {
         $self->print_button("ADD");
1	diff -Nur -x '.orig' -x '.rej' e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm mezzanine_patched_e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm
2	--- e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm 2005-10-06 17:52:29.000000000 -0400
3	+++ mezzanine_patched_e-smith-ibays-1.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibays.pm 2007-08-30 11:32:19.000000000 -0400
4	@@ -482,7 +482,8 @@
5	sub print_save_or_add_button {
6	my ($self) = @_;
7
8	- if ($self->cgi->param("action") eq "modify") {
9	+ my $action = $self->cgi->param("action") \|\| '';
10	+ if ($action eq "modify") {
11	$self->print_button("SAVE");
12	} else {
13	$self->print_button("ADD");