--- loncom/interface/lonquickgrades.pm 2003/06/18 19:31:38 1.15
+++ loncom/interface/lonquickgrades.pm 2003/09/22 00:48:32 1.25
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-#
+# $Id: lonquickgrades.pm,v 1.25 2003/09/22 00:48:32 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,6 +32,8 @@ package Apache::lonquickgrades;
use strict;
use Apache::Constants qw(:common :http);
use POSIX;
+use Apache::loncommon;
+use Apache::lonlocal;
sub handler {
my $r = shift;
@@ -46,9 +48,9 @@ sub real_handler {
# Handle header-only request
if ($r->header_only) {
if ($ENV{'browser.mathml'}) {
- $r->content_type('text/xml');
+ &Apache::loncommon::content_type($r,'text/xml');
} else {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
}
$r->send_http_header;
return OK;
@@ -56,17 +58,18 @@ sub real_handler {
# Send header, don't cache this page
if ($ENV{'browser.mathml'}) {
- $r->content_type('text/xml');
+ &Apache::loncommon::content_type('text/xml');
} else {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type('text/html');
}
&Apache::loncommon::no_cache($r);
$r->send_http_header;
+ my $showPoints =
+ $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard';
+
# Create the nav map
- my $navmap = Apache::lonnavmaps::navmap->new(
- $ENV{"request.course.fn"}.".db",
- $ENV{"request.course.fn"}."_parms.db", 1, 0);
+ my $navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {
my $requrl = $r->uri;
@@ -79,16 +82,20 @@ sub real_handler {
my $res = $navmap->firstResource(); # temp resource to access constants
# Header
- $r->print(&Apache::loncommon::bodytag('Quick Score Display','',
- ''));
+ my $title = $showPoints ? "Quick Points Display" : "Quick Completed Problems Display";
+ $r->print(&Apache::loncommon::bodytag($title, '', ''));
- $r->print(<
Sequence | '); - $r->print('Done / Total | |||||||
Folder | '); + $title =&mt($showPoints ? "Points Scored" : "Done"); + $r->print("$title / Total | |
"); - $r->print("Problems Not Contained In A Folder | "); + $r->print(&mt("Problems Not Contained In A Folder")." | "); $r->print("$topLevelRight / $topLevelParts |
Total Parts Done: $totalRight "); - $r->print("Max Possible To Date $maxHelpLink: $totalPossible "); - $r->print("Total Parts In Course: $totalParts | ||
Total $title: $totalRight "); + $r->print(&mt("Max Possible To Date")." $maxHelpLink: $totalPossible "); + $title = $showPoints ? "Points" : "Parts"; + $r->print(&mt("Total $title In Course").": $totalParts |