version 1.97, 2004/12/23 17:08:22
|
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(); |
Line 606 sub end_foil {
|
Line 606 sub end_foil {
|
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
if ($value ne 'unused') { |
if ($value ne 'unused') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
if (!$name) { $name=$Apache::lonxml::curdepth; } |
if (!$name) { |
|
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
|
$name=$Apache::lonxml::curdepth; |
|
} |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
} |
} |