Hello Gary �
Yes, my CGI generates the form on the fly. Its like the script is run on
load and processes the data immediately. Maybe my code is wrong. It�s
driving me crazy! Here is my code below.
thanks in advance -
--------------------------
#!/usr/bin/perl
#Evaluation Questions for survey
use DBI;
use DBD::mysql;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
#Conntect to DB
my $dbh= DBI->connect("DBI:mysql:bookstore","usrname","psswd")
or die "Could not make connection to database.";
my $usertype= param('usertype');
print header;
list();
#starts from
sub list
{
print qq|<html>
<head>
</head>
<title>Evalutation Survey</title>
<body>
<table width="700" align="center">
<tr>
<td>
<h2><center><font color="navy"> Survey <br></font></h2>
<p align="justify">Thank you for visiting my web site.</p>
<p align="justify">By participating in this survey the information you
provide will be most useful in helping me complete the design of my
site</b></p>
<form>
<hr><b>PART ONE - Getting to know You and Your Computer Environment</b><hr>
<ol>
<li> <h4>Currently, my position is ____.</h4>
<input type="radio" name="usertype"
value="medst">Medical student
<br>
<input type="radio" name="usertype"
value="resid">Resident
<br>
<input type="radio" name="usertype"
value="fellow">Fellow
<br>
<b>THANK YOU </b>very much for your help with this survey. Please click
Submit to send us your responses. T
<br><br><center>
<input type="submit" value="submit"">
<input type="reset" value="reset"></center>
</form>
</td>
</tr>
</table>
</body>
</html>|;
answer();
}
#writes to DB
sub answer
{
$cmd = qq|insert into survey (usertype) values ("$usertype")|;
$dbh->do($cmd);
}
#end of program
-----------------------------------------------
>From: Gary Stainburn <[EMAIL PROTECTED]>
>To: "David Draley" <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
>Subject: Re: perl help!!
>Date: Thu, 7 Jun 2001 11:03:20 +0100
>
>Hi David,
>
>I don't quite understand this one. If your script works when the form
>is submitted, then your server/cgi-bin/perl seem to be set up correctly.
>
>Does the same CGI generate the form and accept it back? If so, then
>them problem is in your CGI's logic. I do the same thing here, and
>right at the top I check to see if the form's submit button's field
>exists. If not, then the CGI's called for the first time and I simply
>generate the form and exit.
>
>If the submit button data does exist, then it's responding to the form,
>at which point I validate the form details. Only after validating the
>data do I call the DB update routeines.
>
>If the CGI is not used to create the form in the first place, then I
>have no idea why it's getting called when someone clicks the refresh
>button.
>
>Gary
>On Wednesday 06 June 2001 8:16 pm, David Draley wrote:
> > is there a way to call a perl sub routines using a FORM when a
> > "submit" button is clicked?
> >
> > I am trying to push data to a mySQL database table and when my form
> > is loaded into the browser or is "refreshed" the browser runs through
> > my cgi script and pushes "null" values to the table. Once the form
> > is filled and the user clicks the form "submit button" the form works
> > and pushes the correct values.
> >
> >
> > thanks
> > david
> >
> > _________________________________________________________________
> > Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>--
>Gary Stainburn
>
>This email does not contain private or confidential material as it
>may be snooped on by interested government parties for unknown
>and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
>
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
