loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.352, 2006/04/11 20:55:50	version 1.353, 2006/05/17 22:08:17
Line 5935 sub handler {	Line 5935 sub handler {
if ($#commands > 0) {	if ($#commands > 0) {
&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));	&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));
}	}
&send_header($request);	$request->print(&Apache::loncommon::start_page('Grading'));
if ($symb eq '' && $command eq '') {	if ($symb eq '' && $command eq '') {
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
if (($env{'form.codeone'}) && ($env{'form.codetwo'}) &&	if (($env{'form.codeone'}) && ($env{'form.codetwo'}) &&
Line 6026 sub handler {	Line 6026 sub handler {
$request->print("Access Denied ($command)");	$request->print("Access Denied ($command)");
}	}
}	}
&send_footer($request);
return '';
}

sub send_header {
my ($request)= @_;
&Apache::lontexconvert::init_tth();
$request->print(&Apache::loncommon::start_page('Grading'));
$request->rflush();
}

sub send_footer {
my ($request)= @_;
$request->print(&Apache::loncommon::end_page());	$request->print(&Apache::loncommon::end_page());
	return '';
}	}

1;	1;