--- loncom/interface/lonquickgrades.pm 2005/04/07 06:56:23 1.36
+++ loncom/interface/lonquickgrades.pm 2008/08/17 23:25:40 1.42
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.36 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.42 2008/08/17 23:25:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -35,6 +35,7 @@ use POSIX;
use Apache::loncommon;
use Apache::lonlocal;
use Apache::lonnet;
+use Apache::grades;
sub handler {
my $r = shift;
@@ -47,22 +48,17 @@ sub real_handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
# Handle header-only request
+ if ($env{'browser.mathml'}) {
+ &Apache::loncommon::content_type($r,'text/xml');
+ } else {
+ &Apache::loncommon::content_type($r,'text/html');
+ }
if ($r->header_only) {
- if ($env{'browser.mathml'}) {
- &Apache::loncommon::content_type($r,'text/xml');
- } else {
- &Apache::loncommon::content_type($r,'text/html');
- }
- $r->send_http_header;
+ $r->send_http_header;
return OK;
}
# Send header, don't cache this page
- if ($env{'browser.mathml'}) {
- &Apache::loncommon::content_type($r, 'text/xml');
- } else {
- &Apache::loncommon::content_type($r, 'text/html');
- }
&Apache::loncommon::no_cache($r);
$r->send_http_header;
@@ -86,7 +82,7 @@ sub real_handler {
# Header
my $title = $showPoints ? "Points Display" : "Completed Problems Display";
- $r->print(&Apache::loncommon::bodytag($title, '', ''));
+ $r->print(&Apache::loncommon::start_page($title));
if (!$showPoints && !$notshowSPRSlink ) {
$r->print(<