version 1.98, 2005/01/10 19:21:57
|
version 1.99, 2005/01/31 22:00:40
|
Line 114 sub start_foilgroup {
|
Line 114 sub start_foilgroup {
|
} |
} |
|
|
sub storesurvey { |
sub storesurvey { |
if ( !defined($ENV{'form.submitted'})) { return ''; } |
if ( !&Apache::response::submitted() ) { return ''; } |
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
&Apache::lonxml::debug("Here I am!:$response:"); |
&Apache::lonxml::debug("Here I am!:$response:"); |
if ( $response !~ /[0-9]+/) { return ''; } |
if ( $response !~ /[0-9]+/) { return ''; } |
Line 137 sub grade_response {
|
Line 137 sub grade_response {
|
my ($max,$randomize)=@_; |
my ($max,$randomize)=@_; |
#keep the random numbers the same must always call this |
#keep the random numbers the same must always call this |
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
if (!defined($ENV{'form.submitted'})) { return; } |
if ( !&Apache::response::submitted() ) { return; } |
my $response; |
my $response; |
if ($ENV{'form.submitted'} eq 'scantron') { |
if ($ENV{'form.submitted'} eq 'scantron') { |
$response=&Apache::response::getresponse(); |
$response=&Apache::response::getresponse(); |