e-smith-ibays/sme8/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	slords	1.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");