From: Adrian C. <adr...@us...> - 2002-02-04 18:22:12
|
Update of /cvsroot/formmagick/formmagick/lib/CGI/FormMagick In directory usw-pr-cvs1:/tmp/cvs-serv22379/lib/CGI/FormMagick Modified Files: Events.pm Log Message: Adding debug message to form PRE-EVENT subroutine. Index: Events.pm =================================================================== RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick/Events.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -r1.7 -r1.8 *** Events.pm 2002/01/22 21:13:15 1.7 --- Events.pm 2002/02/04 18:05:29 1.8 *************** *** 46,49 **** --- 46,51 ---- my ($self) = @_; + $self->debug_msg("This is the form pre event"); + # find out what the form pre_event action is. my $pre_form_routine = $self->{xml}->{'PRE-EVENT'} || return; |