For several months now I have been working with cgi scripts following
the following code pattern. They worked just fine until now. I am running
this under UNIX. Suddenly my code refuses to work. I run the program, the
initial screen shows up, the submit buttons appear at the bottom of the
screen as they are supposed to do,I press a submit button, it changes a bit
to show that it is pressed, and then nothing happens. My debugging
information shown at the bottom does not appear, the function
get_and_display_data is not called.
What is going on? Why would a submit fail to work?
Thanks,
Mary Anderson
$pageName = param('go');
print "debug pageName = |$pageName|", hr;
if ($pageName eq 'Table'){
print "pageNAme eq Table", hr;
get_and_display_data($pageName);
}
if (($pageName eq 'INIT') or ($pageName eq 'New Search')){
print submit(-name=>'go', -label=>'Table');
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
