[FormMagick-devel] CVS: formmagick/lib/CGI FormMagick.pm,1.37,1.38

[Kirrily R. <sk...@us...>]

Update of /cvsroot/formmagick/formmagick/lib/CGI
In directory usw-pr-cvs1:/tmp/cvs-serv10525

Modified Files:
	FormMagick.pm 
Log Message:
It was looking for a non-existent pre-event, so I've put in a test to
check that it exists.


Index: FormMagick.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -r1.37 -r1.38
*** FormMagick.pm	2001/06/18 00:41:27	1.37
--- FormMagick.pm	2001/06/18 18:20:13	1.38
***************
*** 745,760 ****
      # find out what the form pre_event action is. 
      my $pre_form_routine = $self->{xml}[1][0]->{'PRE-EVENT'};
-     my $cp = $self->{calling_package};
  
!     my $voodoo = "\&$cp\:\:$pre_form_routine(\$cgi)"; 
  
!     # if the pre_form_routine is defined in the calling file, 
!     # it'll run. Otherwise, we'll give some simple display of the
!     # variables that were submitted.
  
!     unless (eval $voodoo) {
! 	debug($self, "<p>There was no pre-form routine.</p>\n")
!     }
  
  }
  
--- 745,762 ----
      # find out what the form pre_event action is. 
      my $pre_form_routine = $self->{xml}[1][0]->{'PRE-EVENT'};
  
!     if ($pre_form_routine) {
!       my $cp = $self->{calling_package};
  
!       my $voodoo = "\&$cp\:\:$pre_form_routine(\$cgi)"; 
  
!       # if the pre_form_routine is defined in the calling file, 
!       # it'll run. Otherwise, we'll give some simple display of the
!       # variables that were submitted.
  
+       unless (eval $voodoo) {
+ 	  debug($self, "<p>There was no pre-form routine.</p>\n")
+       }
+     }
  }