loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.602, 2010/03/25 19:56:33	version 1.603, 2010/03/26 15:40:55
Line 731 sub most_similar {	Line 731 sub most_similar {
sub initialverifyreceipt {	sub initialverifyreceipt {
my $request = shift;	my $request = shift;
&commonJSfunctions($request);	&commonJSfunctions($request);
$request->print('<form name="gradingMenu"><input type="submit" value="'.&mt('Verify Receipt No.').'" />'.	my ($symb) = &get_symb($request);
	return '<form name="gradingMenu"><input type="submit" value="'.&mt('Verify Receipt No.').'" />'.
&Apache::lonnet::recprefix($env{'request.course.id'}).	&Apache::lonnet::recprefix($env{'request.course.id'}).
'-<input type="text" name="receipt" size="4" />'.	'-<input type="text" name="receipt" size="4" />'.
"</form>\n");	'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
	'<input type="hidden" name="command" value="verify" />'.
	"</form>\n";
}	}

#--- Check whether a receipt number is valid.---	#--- Check whether a receipt number is valid.---