loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.103, 2012/01/02 05:08:03	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