--- loncom/interface/lonquickgrades.pm	2006/02/27 19:40:43	1.39
+++ loncom/interface/lonquickgrades.pm	2006/03/15 22:11:04	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.39 2006/02/27 19:40:43 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.40 2006/03/15 22:11:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,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;
 
@@ -87,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(<<HEADER); 
@@ -287,7 +282,7 @@ HEADER
 	$r->print(&mt("Total $title In Course").": <b>$totalParts</b></td></tr>\n\n");
     }
 
-    $r->print("</table></body></html>");
+    $r->print("</table>".&Apache::loncommon::end_page());
 
     return OK;
 }