--- loncom/interface/lonquickgrades.pm 2002/11/14 21:36:23 1.1 +++ loncom/interface/lonquickgrades.pm 2002/11/19 21:11:25 1.4 @@ -60,8 +60,31 @@ sub handler { # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new( $ENV{"request.course.fn"}.".db", - $ENV{"request.course.fn"}."_parms.db", 0, 0); + $ENV{"request.course.fn"}."_parms.db", 1, 0); + # Keep this hash in sync with %statusIconMap in lonnavmaps; they + # should match color/icon + my $res = $navmap->firstResource(); # temp resource to access constants + + my $green = "#AAFFAA"; + my $red = "#FFAAAA"; + my $yellow = "#FFFFAA"; + my $orange = "#FFBB88"; + my $neutral = ""; + my %statusColorMap = + ( $res->NETWORK_FAILURE => $neutral, + $res->NOTHING_SET => $neutral, + $res->CORRECT => $green, + $res->EXCUSED => $green, + $res->PAST_DUE_NO_ANSWER => $orange, + $res->PAST_DUE_ANSWER_LATER => $orange, + $res->ANSWER_OPEN => $orange, + $res->OPEN_LATER => $neutral, + $res->TRIES_LEFT => $neutral, + $res->INCORRECT => $orange, + $res->OPEN => $yellow, + $res->ATTEMPTED => $yellow ); + if (!defined($navmap)) { my $requrl = $r->uri; $ENV{'user.error.msg'} = "$requrl:bre:0:0:Course not initialized"; @@ -69,15 +92,22 @@ sub handler { } # Header - $r->print(&Apache::loncommon::bodytag('Navigate Course Map','', + $r->print(&Apache::loncommon::bodytag('Quick Score Display','', '')); + $navmap->init(); + # End navmap using boilerplate my $iterator = $navmap->getIterator(undef, undef, undef, 1); my $depth = 1; $iterator->next(); # ignore first BEGIN_MAP my $curRes = $iterator->next(); + my $totalParts = 0; + my $totalRight = 0; + my $totalCurrentlyPossible = 0; + + $r->print("