# 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);

    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

    # Col labels
    $r->print(<<TABLETOP);
<table border="1" cellpadding="3" cellspacing="0">
  <tr>
    <td align="center"><b>Problem</b></td>
    <td align="center"><b>Score</b></td>
  </tr>
TABLETOP

    my $iterator = $navmap->getIterator(undef, undef, undef, 1);
    my $depth = 1;
    $iterator->next(); # ignore first BEGIN_MAP
    my $curRes = $iterator->next();
    my $totalAvailable = 0;
    my $total = 0;
   
    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();
            $r->print('    <tr>');
            my $stack = $iterator->getStack();
            my $src = Apache::lonnavmaps::getLinkForResource($stack);
            my $srcHasQuestion = $src =~ /\?/;
            my $link = $src.
                ($srcHasQuestion?'&':'?') .
                'symb='.&Apache::lonnet::escape($curRes->symb()).
                '"';
            $r->print("<td><a href=\"$link\">$title</td>");
            
            my $avail = 0;
            my $score = 0;
            my $parts = $curRes->parts();
            for my $part (@{$parts}) {
                my $partAvail = $curRes->weight($part);
                my $partScore = $curRes->awarded($part) * $partAvail;
                $avail += $partAvail;
                $score += $partScore;
            }
            
            $r->print("<td align=\"right\">$score / $avail</td></tr>\n");
            $totalAvailable += $avail;
            $total += $score;
        }

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

    $r->print("<td colspan=\"2\" align=\"right\">Total Points Scored: <b>$total</b>");
    $r->print("<br />Total Points Available: <b>$totalAvailable</b>");
    $r->print("</td></tr></table>\n\n");

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

    $navmap->untieHashes();

    return OK;
}

1;