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>


Reply via email to