#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$v04= $query->param('v04');
$v05= $query->param('v05');
$pass= $query->param('pass');

$q01= "I feel that I'm a person of worth, at least on an equal plane with others.";
$q02= "I feel that I have a number of good qualities.";
$q03= "All in all, I am inclined to feel that I am a failure.";
$q04= "I am able to do things as well as most other people.";
$q05= "I feel I do not have much to be proud of.";

@varlist= ("v01", "v02", "v03", "v04", "v05");
@qlist= ("q01", "q02", "q03", "q04", "q05");

print $query->header;
print $query->start_html(-title=>'Self-Esteem Test');

print "<FONT FACE = 'arial' SIZE = '2'>";
print "<FORM ACTION = '/cgi-bin/multiform2.pl' METHOD = 'post' > "; 

if($pass <= 4){
 $question= $qlist[$pass];
 print " $$question <BR>";
 print"<I>Strongly Disagree </I>
 <INPUT TYPE = 'radio' NAME = $varlist[$pass] value = '1' > 
 <INPUT TYPE = 'radio' NAME = $varlist[$pass] value = '2' >
 <INPUT TYPE = 'radio' NAME = $varlist[$pass] value = '3' >
 <INPUT TYPE = 'radio' NAME = $varlist[$pass] value = '4' >
 <INPUT TYPE = 'radio' NAME = $varlist[$pass] value = '5' >
 <I>Strongly Agree</I><BR><BR><BR>";
   for($i = 0; $i <= 4; ++$i)
   { 
   $variable= $varlist[$i];
   print "<INPUT TYPE = 'hidden' NAME = $variable value = $$variable > ";
   }
$pass = $pass + 1;
print "<INPUT TYPE = 'hidden' NAME = pass value = $pass > ";
print "<INPUT TYPE = 'submit' VALUE = 'Next'>";
print "</FORM></FONT>";
}

else{
 print "</FORM>";
 print "<FORM ACTION = '/cgi-bin/self-esteem.pl' METHOD = 'post' > "; 
 print "You've answered all the questions.  Click the button 
 below to determine your self-esteem score.<BR><BR>";
  for($i = 0; $i <= 4; ++$i)
  { 
   $variable= $varlist[$i];
   print "<INPUT TYPE = 'hidden' NAME = $variable value = $$variable > ";
  }
 print "<INPUT TYPE = 'submit' VALUE = 'Calculate my score'>";
}

print $query->end_html;