loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.102, 2011/06/25 20:12:56	version 1.105, 2015/03/13 22:06:10
Line 29	Line 29
package Apache::lonquickgrades;	package Apache::lonquickgrades;

use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http REDIRECT);
use POSIX;	use POSIX;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
Line 75 sub real_handler {	Line 75 sub real_handler {
return OK;	return OK;
}	}

	# Check for critical messages and redirect if present.
	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
	if ($redirect) {
	&Apache::loncommon::content_type($r,'text/html');
	$r->header_out(Location => $url);
	return REDIRECT;
	}

# Send header, don't cache this page	# Send header, don't cache this page
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
Line 261 sub startGradeScreen {	Line 269 sub startGradeScreen {
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
$r->print("\n".'<li'.($mode eq 'probgrading'?' class="active"':'').'><a href="/adm/grades?symb='.	$r->print("\n".'<li'.($mode eq 'probgrading'?' class="active"':'').'><a href="/adm/grades?symb='.
&Apache::lonhtmlcommon::entity_encode($env{'form.symb'}).	&Apache::lonhtmlcommon::entity_encode($env{'form.symb'}).
'&command=gradingmenu"><b>    '.	'&command=gradingmenu"><b>    '.
&mt('Problem Grading').'    </b></a></li>');	&mt('Problem Grading').'    </b></a></li>');

}	}