loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.157, 2006/12/18 21:12:51	version 1.158, 2006/12/18 21:37:47
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);