loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.233, 2008/09/13 02:08:33	version 1.234, 2008/09/20 00:25:39
Line 310 sub start_numericalresponse {	Line 310 sub start_numericalresponse {
$safeeval);	$safeeval);
if ($unit =~ /\S/) { $result.=" (in $unit) "; }	if ($unit =~ /\S/) { $result.=" (in $unit) "; }
}	}
if (($token->[1] eq 'formularesponse') &&
($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')) {
}
if ( &Apache::response::show_answer() ) {	if ( &Apache::response::show_answer() ) {
&set_answertext($tag_internal_answer_name,$target,$token,$tagstack,	&set_answertext($tag_internal_answer_name,$target,$token,$tagstack,
$parstack,$parser,$safeeval,-1);	$parstack,$parser,$safeeval,-1);
Line 613 sub end_numericalresponse {	Line 610 sub end_numericalresponse {
&& ($Apache::lonhomework::type ne 'exam') && ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')	&& ($Apache::lonhomework::type ne 'exam') && ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')
&& (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoneditor') ne 'no')){	&& (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoneditor') ne 'no')){
$result.=&Apache::response::edit_mathresponse_button($id,"HWVAL_$id");	$result.=&Apache::response::edit_mathresponse_button($id,"HWVAL_$id");
#hier
}	}

&Apache::response::setup_prior_tries_hash(\&format_prior_response_numerical);	&Apache::response::setup_prior_tries_hash(\&format_prior_response_numerical);