# The LearningOnline Network with CAPA # Homework Performance Chart # # (Navigate Maps Handler # # (Page Handler # # (TeX Content Handler # # 05/29/00,05/30 Gerd Kortemeyer) # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) # # 3/1/1,6/1,17/1,29/1,30/1 Gerd Kortemeyer) # # 1/31 Gerd Kortemeyer package Apache::lonchart; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet(); use HTML::TokeParser; use GDBM_File; # -------------------------------------------------------------- Module Globals my %hash; my @cols; my @rowlabels; my @students; # ------------------------------------------------------------- Find out status sub astatus { my ($rid,$student)=@_; my ($uname,$udom)=split(/\:/,$student); my $code=' '; $rid=~/(\d+)\.(\d+)/; my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. &Apache::lonnet::declutter($hash{'src_'.$rid}); my $answer=&Apache::lonnet::reply( "restore:$udom:$uname:". $ENV{'request.course.id'}.':'. &Apache::lonnet::escape($symb), &Apache::lonnet::homeserver($uname,$udom)); my %returnhash=(); map { my ($name,$value)=split(/\=/,$_); $returnhash{&Apache::lonnet::unescape($name)}= &Apache::lonnet::unescape($value); } split(/\&/,$answer); if ($returnhash{'version'}) { my $version; for ($version=1;$version<=$returnhash{'version'};$version++) { map { $returnhash{$_}=$returnhash{$version.':'.$_}; } split(/\:/,$returnhash{$version.':keys'}); } my $totaltries=0; map { if (($_=~/\.(\w+)\.solved$/) && ($_!~/^\d+\:/)) { my $part=$1; if ($returnhash{$_} eq 'correct_by_student') { unless (($code eq '.') || ($code eq '-')) { $code='*'; } $totaltries+=$returnhash{'resource.'.$part.'.tries'}; } elsif ($returnhash{$_} eq 'correct_by_override') { unless (($code eq '.') || ($code eq '-')) { $code='+'; } } elsif ($returnhash{$_} eq 'incorrect_attempted') { $code='.'; } elsif ($returnhash{$_} eq 'incorrect_by_override') { $code='-'; } elsif ($returnhash{$_} eq 'excused') { unless (($code eq '.') || ($code eq '-')) { $code='x'; } } } } keys %returnhash; if (($code eq '*') && ($totaltries<10)) { $code="$totaltries"; } } return $code; } # ------------------------------------------------------------ Build page table sub tracetable { my ($rid,$beenhere)=@_; unless ($beenhere=~/\&$rid\&/) { $beenhere.=$rid.'&'; if (defined($hash{'is_map_'.$rid})) { if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}} eq 'sequence') { $cols[$#cols+1]=0; } if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; &tracetable($hash{'map_start_'.$hash{'src_'.$rid}}, '&'.$frid.'&'); if ($hash{'src_'.$frid}) { if ($hash{'src_'.$frid}=~ /\.(problem|exam|quiz|assess|survey|form)$/) { $cols[$#cols+1]=$frid; } } } } else { if ($hash{'src_'.$rid}) { if ($hash{'src_'.$rid}=~ /\.(problem|exam|quiz|assess|survey|form)$/) { $cols[$#cols+1]=$rid; } } } if (defined($hash{'to_'.$rid})) { map { &tracetable($hash{'goesto_'.$_},$beenhere); } split(/\,/,$hash{'to_'.$rid}); } } } # ================================================================ Main Handler sub handler { my $r=shift; if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { # ------------------------------------------- Set document type for header only 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; } my $requrl=$r->uri; # ----------------------------------------------------------------- Tie db file if ($ENV{'request.course.fn'}) { my $fn=$ENV{'request.course.fn'}; if (-e "$fn.db") { if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) { # ------------------------------------------------------------------- Hash tied # ------------------------------------------------------------------ Build page # ---------------------------------------------------------------- Send headers $r->content_type('text/html'); $r->send_http_header; $r->print( '
'); my $index; for ($index=0;$index<=$#students;$index++) { $r->print( substr($students[$index]. ' ',0,14).' ! '. substr($rowlabels[$index]. ' ',0,45).' ! '); map { if ($_) { $r->print(&astatus($_,$students[$index])); } else { $r->print(' ! '); } } @cols; $r->print("\n"); $r->rflush(); } $r->print(''); } else { $r->print('