loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.213, 2005/07/13 19:48:07	version 1.215, 2005/07/29 23:51:06
Line 668 sub analyze {	Line 668 sub analyze {
}	}
}	}
if (scalar(keys(%allparts)) == 0 ) {	if (scalar(keys(%allparts)) == 0 ) {
$request->print('<p>'.&mt('Found no analyzable respones in this problem, currently only Numerical, Formula and String response styles are supported.').'</p>');	$request->print('<p>'.&mt('Found no analyzable responses in this problem, currently only Numerical, Formula and String response styles are supported.').'</p>');
}	}
&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state);
&analyze_footer($request);	&analyze_footer($request);
Line 773 sub renderpage {	Line 773 sub renderpage {
my $result = &Apache::lonxml::xmlparse($request, $target, $problem,	my $result = &Apache::lonxml::xmlparse($request, $target, $problem,
&setup_vars($target),%mystyle);	&setup_vars($target),%mystyle);
undef($Apache::lonhomework::parsing_a_problem);	undef($Apache::lonhomework::parsing_a_problem);
if (!$output) { $result = '';&Apache::lonxml::message_location().'c'; }	if (!$output) { $result = ''; }
#$request->print("Result follows:");	#$request->print("Result follows:");
if ($target eq 'modified') {	if ($target eq 'modified') {
&handle_save_or_undo($request,\$problem,\$result);	&handle_save_or_undo($request,\$problem,\$result);