From: Kirrily R. <sk...@us...> - 2001-06-18 18:20:15
|
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") + } + } } |