--- loncom/interface/lonquickgrades.pm 2002/11/22 20:07:11 1.5
+++ loncom/interface/lonquickgrades.pm 2002/12/02 10:14:57 1.8
@@ -68,6 +68,12 @@ sub real_handler {
$ENV{"request.course.fn"}.".db",
$ENV{"request.course.fn"}."_parms.db", 1, 0);
+ if (!defined($navmap)) {
+ my $requrl = $r->uri;
+ $ENV{'user.error.msg'} = "$requrl:bre:0:0:Navamp initialization failed.";
+ return HTTP_NOT_ACCEPTABLE;
+ }
+
# Keep this hash in sync with %statusIconMap in lonnavmaps; they
# should match color/icon
my $res = $navmap->firstResource(); # temp resource to access constants
@@ -82,6 +88,12 @@ sub real_handler {
$r->print(&Apache::loncommon::bodytag('Quick Score Display','',
''));
+ $r->print(<
Sequence | '); $r->print('Correct / Total |
"); - - for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); } + $unaccountedTotal -= $total; + $unaccountedCorrect -= $correct; - $r->print("$title | "); - $r->print("$correct / $total |
"); + + for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); } + + $r->print("$title | "); + $r->print("$correct / $total |
"); + $r->print("Problems Not Contained In Sequences | "); + $r->print("$unaccountedCorrect / $unaccountedTotal |
Total Parts Correct: $totalRight "); - $r->print("Number Of Parts Possibly Correct: $totalPossible "); + $r->print("Max Possible To Date $maxHelpLink: $totalPossible "); $r->print("Total Parts In Course: $totalParts |