loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.621, 2010/04/17 16:38:38	version 1.622, 2010/04/17 22:48:52
Line 43 use Apache::lonmsg();	Line 43 use Apache::lonmsg();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonenc;	use Apache::lonenc;
	use Apache::lonstathelpers;
use String::Similarity;	use String::Similarity;
use LONCAPA;	use LONCAPA;

Line 9169 sub startpage {	Line 9170 sub startpage {
}	}
}	}

	sub select_problem {
	my ($r)=@_;
	$r->print('<h2>'.&mt('Select the problem you want to grade').'</h2><form action="/adm/grades">');
	$r->print(&Apache::lonstathelpers::problem_selector('.',undef,1));
	$r->print('<input type="hidden" name="command" value="gradingmenu" />');
	$r->print('<input type="submit" value="'.&mt('Next').' →" /></form>');
	}

sub handler {	sub handler {
my $request=$_[0];	my $request=$_[0];
&reset_caches();	&reset_caches();
Line 9200 sub handler {	Line 9209 sub handler {
&Apache::lonenc::check_decrypt(\$symb);	&Apache::lonenc::check_decrypt(\$symb);

$ssi_error = 0;	$ssi_error = 0;
if ($symb eq '' && $command eq '') {	if ($symb eq '' \|\| $command eq '') {
#	#
# Not called from a resource	# Not called from a resource
#	#
	&startpage($request,undef,[],1,1);
	&select_problem($request);
} else {	} else {
&init_perm();	&init_perm();
if ($command eq 'submission' && $perm{'vgr'}) {	if ($command eq 'submission' && $perm{'vgr'}) {