Hi Geoff,
> can you let us know specifically the version of CGI.pm you
> were using. also,
> please try with the latest CGI.pm from CPAN and see if that helps you.
I was using 2.25, but at this point I have upgraded to the latest (3.00)
at your advice but to no avail.
> at any rate, if you could post a snippet that shows pretty
> much how you use
> CGI.pm to get the POST data, I'll use that approach for the
> tests to help
> reduce it some (the import statement, calls to $q->param, etc).
Sure, here goes, with some comments thrown in:
----- perl ------
run();
# That's it for the main routine, this was originally not a mod_perl app
#
# This small sub basically determines what the user is doing and calls an
# appropriate sub in turn, passing the CGI and DB handles. The problem
# crops up right away because the users who are hitting the 'submit' button
# in my app are being sent the initial page again, or in other words it is
# page_select() being called (which is the initial page a user is shown)
# instead of page_graphs() which is what the user should be shown. Among
# my tests I used a javascript alert to check the value of submit_type in
# on "onClick" and the value is indeed "instances" at that point. But then
# on the back end, the value is found to be undefined.
sub run()
{
...
my $q = new CGI;
...
if ($q->param('submit_type') eq "instances") {
$TABLE = $q->param('f_table');
$TIMESHIFT = $q->param('f_timeshift');
page_graphs($q, $dbh);
} elsif (defined($q->param('f_table'))) {
$TABLE = $q->param('f_table');
$TIMESHIFT = $q->param('f_timeshift') if
(defined($q->param('f_timeshift')));
page_select($q, $dbh);
} else {
page_select($q, $dbh);
}
exit(0);
}
----- /perl -----
Please let me know if there is anything more I can do. I hope this helps.
I thought about writing a small example script myself but given the amount
of time I have spent on this issue already, I have to be careful here at
work.
Cheers,
Scott Beuker
