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.104, 2014/05/20 20:32:16
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 62 sub handler {	Line 62 sub handler {
sub real_handler {	sub real_handler {
my $r = shift;	my $r = shift;

	# 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;
	}

&Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});	&Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});

# Handle header-only request	# Handle header-only request
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>');

}	}