Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

Now with Extra Color, and not in a table, either. It's still not quite right
though, but we can work on it.

# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
# $Id:
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
# Created Nov. 14, 2002 by Jeremy Bowers

package Apache::lonquickgrades;

use strict;
use Apache::Constants qw(:common :http);

sub handler {
    my $r = shift;

    &Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});

    # Handle header-only request
    if ($r->header_only) {
        if ($ENV{'browser.mathml'}) {
            $r->content_type('text/xml');
        } else {
            $r->content_type('text/html');
        }
        $r->send_http_header;
        return OK;
    }

    # Send header, don't cache this page
    if ($ENV{'browser.mathml'}) {
        $r->content_type('text/xml');
    } else {
        $r->content_type('text/html');
    }
    &Apache::loncommon::no_cache($r);
    $r->send_http_header;

    # Create the nav map
    my $navmap = Apache::lonnavmaps::navmap->new(
                        $ENV{"request.course.fn"}.".db",
                        $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";
        return HTTP_NOT_ACCEPTABLE;
    }
 
    # Header
    $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("<div width=\"50%\">\n"); # use this to format the col
   
    while ( $depth > 0 ) {
        if ($curRes == $iterator->BEGIN_MAP()) {$depth++;}
        if ($curRes == $iterator->END_MAP()) { $depth--; }

        if (ref($curRes) && $curRes->is_problem()) {
            my $title = $curRes->compTitle();
            my $stack = $iterator->getStack();
            my $src = Apache::lonnavmaps::getLinkForResource($stack);
            my $srcHasQuestion = $src =~ /\?/;
            my $link = $src.
                ($srcHasQuestion?'&':'?') .
                'symb='.&Apache::lonnet::escape($curRes->symb()).
                '"';
            my $parts = $curRes->parts();
            my $multipart = scalar(@{$parts}) > 1;

            for my $part (@{$parts}) {
                if ($multipart && $part eq '0') { next; }
                $totalParts++;

                my $status = $curRes->status($part);
                my $color = $statusColorMap{$status};
                if ($color eq $green) { # I'm being bad here... ;-)
                    $totalRight++; $totalCurrentlyPossible++;
                }
                if ($color eq $yellow || $color eq $orange) {
                    $totalCurrentlyPossible++;
                }

                $r->print("<div style=\"background-color: $color\" width=\"100%\">" .
                          "<nobr><a href=\"$link\">$title" . 
                          ($multipart ? ', ' . $part : '') . '</a></nobr></div>'
                          ."\n");

                if (!($totalParts % 20)) { $r->rflush(); }
            }
        }

        $curRes = $iterator->next();
    }

    $r->print("<br><hr>\n");
    $r->print("<div width=\"100%\" align=\"right\">");
    $r->print("Total Parts Correct: <b>$totalRight</b><br>");
    $r->print("Number Of Parts Possibly Correct: <b>$totalCurrentlyPossible</b><br>");
    $r->print("Total Parts In Course: <b>$totalParts</b></div></div>\n\n");

    $r->print("</body></html>");

    $navmap->untieHashes();

    return OK;
}

1;