version 1.157, 2006/12/18 21:12:51
|
version 1.159, 2007/02/24 01:44:14
|
Line 409 sub end_customresponse {
|
Line 409 sub end_customresponse {
|
&Apache::response::submitted('scantron')) { |
&Apache::response::submitted('scantron')) { |
&Apache::response::scored_response($part,$id); |
&Apache::response::scored_response($part,$id); |
} elsif ( $response =~ /[^\s]/ && |
} elsif ( $response =~ /[^\s]/ && |
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
$Apache::response::custom_answer_type[-1] eq 'loncapa/perl') { |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 575 sub start_answer {
|
Line 575 sub start_answer {
|
if ($target eq "edit" ) { |
if ($target eq "edit" ) { |
$result=&Apache::edit::tag_start($target,$token,'Answer algorithm'); |
$result=&Apache::edit::tag_start($target,$token,'Answer algorithm'); |
$result.=&Apache::edit::editfield($token->[1], |
$result.=&Apache::edit::editfield($token->[1], |
$Apache::response::custom_answer, |
$Apache::response::custom_answer[-1], |
'',80,4); |
'',80,4); |
} elsif ( $target eq "modified" ) { |
} elsif ( $target eq "modified" ) { |
$result=$token->[4].&Apache::edit::modifiedfield('/answer',$parser); |
$result=$token->[4].&Apache::edit::modifiedfield('/answer',$parser); |
Line 1026 sub submitted {
|
Line 1026 sub submitted {
|
if ($who eq 'scantron') { return 0; } |
if ($who eq 'scantron') { return 0; } |
# if the Submit Answer button for this particular part was pressed |
# if the Submit Answer button for this particular part was pressed |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
if (defined($env{'form.submit_'.$partid})) { return 1; } |
if ($env{'form.submitted'} eq "part_$partid") { |
|
return 1; |
|
} |
|
if ($env{'form.submitted'} eq "yes" |
|
&& defined($env{'form.submit_'.$partid})) { |
|
return 1; |
|
} |
# Submit All button on a .page was pressed |
# Submit All button on a .page was pressed |
if (defined($env{'form.all_submit'})) { return 1; } |
if (defined($env{'form.all_submit'})) { return 1; } |
# otherwise no submission occured |
# otherwise no submission occured |