loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.16 and 1.69

-version 1.16, 2002/05/13 15:01:54
+version 1.69, 2003/05/13 14:25:37
  Line 1
  # The LearningOnline Network with CAPA
- # (Publication Handler
  #
  # $Id$
  #
- Line 26
+ Line 25
  # http://www.lon-capa.org/
  #
  # (Navigate problems for statistical reports
- # YEAR=2001
- # 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei
- # 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
- # YEAR=2002
- # 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6,5/12 Behrouz Minaei
  #
  ###
- package Apache::lonstatistics;
+ =pod
- use strict;
+ =head1 NAME
+ lonstatistics
+ =head1 SYNOPSIS
+ Main handler for statistics and chart.
+ =head1 PACKAGES USED
+     use strict;
+     use Apache::Constants qw(:common :http);
+     use Apache::lonnet();
+     use Apache::lonhomework;
+     use Apache::loncommon;
+     use Apache::loncoursedata;
+     use Apache::lonhtmlcommon;
+     use Apache::lonproblemanalysis;
+     use Apache::lonproblemstatistics;
+     use Apache::lonstudentassessment;
+     use Apache::lonpercentage;
+     use Apache::lonmysql;
+ =over 4
+ =cut
+ package Apache::lonstatistics;
+ use strict;
  use Apache::Constants qw(:common :http);
+ use vars qw(
+     @FullClasslist
+     @Students
+     @Sections
+     @SelectedSections
+     %StudentData
+     @StudentDataOrder
+     @SelectedStudentData
+     $top_map
+     @Sequences
+     @SelectedMaps
+     @Assessments);
  use Apache::lonnet();
  use Apache::lonhomework;
  use Apache::loncommon;
- use HTML::TokeParser;
+ use Apache::loncoursedata;
- use GDBM_File;
+ use Apache::lonhtmlcommon;
+ use Apache::lonproblemanalysis();
+ use Apache::lonproblemstatistics();
+ use Apache::lonstudentassessment();
+ use Apache::lonpercentage;
+ use Apache::lonmysql;
+ use Time::HiRes;
- # -------------------------------------------------------------- Module Globals
+ #######################################################
- my %hash;
+ #######################################################
- my %CachData;
- my %GraphDat;
- my %OpResp;
- my %maps;
- my %mapsort;
- my %section;
- my %StuBox;
- my %DiscFac;
- my %DisUp;
- my %DisLow;
- my $UpCnt;
- my $CurMap;
- my $CurSec;
- my $CurStu;
- my @cols;
- my @list;
- my @students;
- my $p_count;
- my $Pos;
- my $r;
- my $OpSel1;
- my $OpSel2;
- my $OpSel3;
- my $OpSel4;
- my $GData;
- my $cid;
- my $firstres;
- my $lastres;
- my $DiscFlag;
- my $HWN;
- my $P_Order;
- my %foil_to_concept;
- my @Concepts;
- my %ConceptData;
- my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",
-,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",
-,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");
- my %Answer = ();
- my @shown;
- sub InitAnalysis {
-     my ($rid, $student)=@_;
-     my ($uname,$udom)=split(/\:/,$student);
-     $rid=~/(\d+)\.(\d+)/;
-     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
- 	     &Apache::lonnet::declutter($hash{'src_'.$rid});
-     my $URI = $hash{'src_'.$rid};
-     my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze',
-                                   'grade_username' => $uname,
-                                   'grade_domain' => $udom,
-                                   'grade_courseid' => $cid,
-                                   'grade_symb' => $symb));
- #    my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze'));
-     (my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2);
-     %Answer=();
-     %Answer=&Apache::lonnet::str2hash($Answ);
-     my $parts='';
-     foreach my $elm (@{$Answer{"parts"}}) {
- 	$parts.="$elm,";
-     }
-     chop($parts);
-     my $conc='';
-     foreach my $elm (@{$Answer{"$parts.concepts"}}) {
- 	$conc.="$elm@";
-     }
-     chop($conc);
-     @Concepts=split(/\@/,$conc);
-     my $show='';
-     foreach my $elm (@{$Answer{"$parts.shown"}}) {
- 	$show.="$elm@";
-     }
-     chop($show);
-     @shown=split(/\@/,$show);
- #    $r->print("<br> shown:".$show);
- #    $r->rflush();
-     foreach my $concept (@{$Answer{"$parts.concepts"}}) {
- 	foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) {
- 	    $foil_to_concept{$foil} = $concept;
- 	}
-     }
-     return $symb;
- }
+ =pod
- sub Interval {
+ =item Package Variables
-     my ($rid,$part,$symb)=@_;
-     my $Int=$ConceptData{"Interval"};
+ =item @FullClasslist The full classlist
-     my $due = &Apache::lonnet::EXT('resource.$part.duedate',$symb)+1;
-     my $opn = &Apache::lonnet::EXT('resource.$part.opendate',$symb);
+ =item @Students The students we are concerned with for this invocation
-     my $add=int(($due-$opn)/$Int);
- #$r->print("<br> $opn, to $due add=$add  int=$Int");
+ =item @Sections The sections available in this class
- #$r->rflush();
-     $ConceptData{"Int.0"}=$opn;
+ =item $curr_student The student currently being examined
-     for (my $i=1;$i<$Int;$i++) {
- 	$ConceptData{"Int.$i"}=$opn+$i*$add;
+ =item $prev_student The student previous in the classlist
-     }
-     $ConceptData{"Int.$Int"}=$due;
+ =item $next_student The student next in the classlist
-     for (my $i=0;$i<$Int;$i++) {
- 	for (my $n=0; $n<=$#Concepts; $n++ ) {
+ =over
- 	    my $tmp=$Concepts[$n];
- 	    $ConceptData{"$tmp.$i.true"}=0;
+ =cut
- 	    $ConceptData{"$tmp.$i.false"}=0;
- 	}
+ #######################################################
-     }
+ #######################################################
+ #
+ # Classlist variables
+ #
+ my $curr_student;
+ my $prev_student;
+ my $next_student;
+ #######################################################
+ #######################################################
+ =pod
+ =item &clear_classlist_variables()
+ undef the following package variables:
+ =over
+ =item @FullClasslist
+ =item @Students
+ =item @Sections
+ =item @SelectedSections
+ =item %StudentData
+ =item @StudentDataOrder
+ =item @SelectedStudentData
+ =item $curr_student
+ =item $prev_student
+ =item $next_student
+ =back
+ =cut
+ #######################################################
+ #######################################################
+ sub clear_classlist_variables {
+     undef(@FullClasslist);
+     undef(@Students);
+     undef(@Sections);
+     undef(@SelectedSections);
+     undef(%StudentData);
+     undef(@SelectedStudentData);
+     undef($curr_student);
+     undef($prev_student);
+     undef($next_student);
  }
+ #######################################################
+ #######################################################
+ =pod
+ =item &PrepareClasslist()
+ Build up the classlist information.  The classlist information is kept in
+ the following package variables:
+ =over
+ =item @FullClasslist
+ =item @Students
+ =item @Sections
+ =item @SelectedSections
- sub ShowOpGraph {
+ =item %StudentData
-     my ($InpStr, $Int_No)=@_;
+ =item @SelectedStudentData
-     $r->print(<<ENDPOP);
+ =item $curr_student
-     <script language="JavaScript">
-     function display(name) {
+ =item $prev_student
- 	document.forms.displayform.elements.dis.value=name;
- 	window.status=name;
+ =item $next_student
-     }
-     function cleardisplay() {
+ =back
- 	document.forms.displayform.elements.dis.value='';
- 	window.status='No Concept in particular';
+ $curr_student, $prev_student, and $next_student may not be defined, depending
-     }
+ upon the calling context.
-     </script>
+ =cut
- ENDPOP
+ #######################################################
-     my ($rid,$part)=split(/\:/,substr($InpStr,8));
+ #######################################################
-     $ConceptData{"Interval"}=$Int_No;
+ sub PrepareClasslist {
-     my $symb=&InitAnalysis($rid,$students[0]);
+     my $r = shift;
-     &Interval($rid,$part,$symb);
+     my %Sections;
-     my $URI = $hash{'src_'.$rid};
+     &clear_classlist_variables();
-     my $Src = $hash{'title_'.$rid};
+     #
-     $Src =~ s/\ /"_"/eg;
+     # Retrieve the classlist
-     $r->print('<br><b>'.$URI.'</b>');
+     my $cid  = $ENV{'request.course.id'};
-     for (my $n=1; $n<=$#Concepts+1; $n++ ) {
+     my $cdom = $ENV{'course.'.$cid.'.domain'};
- 	my $tmp=$Concepts[$n-1];
+     my $cnum = $ENV{'course.'.$cid.'.num'};
- 	$tmp =~ s/</" less than "/eg;
+     my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid,
- 	$r->print("<br><b>Concept $n</b>:$tmp");
+                                                                   $cdom,$cnum);
+     if (exists($ENV{'form.Section'})) {
+         if (ref($ENV{'form.Section'})) {
+             @SelectedSections = @{$ENV{'form.Section'}};
+         } elsif ($ENV{'form.Section'} !~ /^\s*$/) {
+             @SelectedSections = ($ENV{'form.Section'});
+         }
      }
-     $r->rflush();
+     @SelectedSections = ('all') if (! @SelectedSections);
+     foreach (@SelectedSections) {
-     &Create_PrgWin();
+         if ($_ eq 'all') {
-     &Update_PrgWin("Starting to analyze problem");
+             @SelectedSections = ('all');
-     for (my $index=0;$index<=$#students;$index++) {
+         }
- 	&Update_PrgWin($index);
+     }
- 	&OpStatus($rid,$students[$index]);
+     #
-     }
+     # Deal with instructors with restricted section access
-     &Close_PrgWin();
+     if ($ENV{'request.course.sec'} ne '') {
+         @SelectedSections = ($ENV{'request.course.sec'});
- #$Apache::lonxml::debug=1;
+     }
- #&Apache::lonhomework::showhash(%ConceptData);
+     #
- #$Apache::lonxml::debug=0;
+     # Set up %StudentData
+     @StudentDataOrder = qw/fullname username domain id section status/;
-     for (my $k=0; $k<$Int_No; $k++ ) {
+     foreach my $field (@StudentDataOrder) {
-  	my $data1='';
+         $StudentData{$field}->{'title'} = $field;
- 	my $data2='';
+         $StudentData{$field}->{'base_width'} = length($field);
- 	&DrawGraph(&AdjustData($k).'+'.$Src.'+'.($k+1));
+         $StudentData{$field}->{'width'} =
+                                $StudentData{$field}->{'base_width'};
+     }
+     #
+     # get the status requested
+     my $requested_status = 'Active';
+     $requested_status = $ENV{'form.Status'} if (exists($ENV{'form.Status'}));
+     #
+     # Process the classlist
+     while (my ($student,$student_data) = each (%$classlist)) {
+         my $studenthash = ();
+         for (my $i=0; $i< scalar(@$field_names);$i++) {
+             my $field = $field_names->[$i];
+             # Store the data
+             $studenthash->{$field}=$student_data->[$i];
+             # Keep track of the width of the fields
+             next if (! exists($StudentData{$field}));
+             my $length = length($student_data->[$i]);
+             if ($StudentData{$field}->{'width'} < $length) {
+                 $StudentData{$field}->{'width'} = $length;
+             }
+         }
+         push (@FullClasslist,$studenthash);
+         #
+         # Build up a list of sections
+         my $section = $studenthash->{'section'};
+         if (! defined($section) || $section =~/^\s*$/ || $section == -1) {
+             $studenthash->{'section'} = 'none';
+             $section = $studenthash->{'section'};
+         }
+         $Sections{$section}++;
+         #
+         # Only put in the list those students we are interested in
+         foreach my $sect (@SelectedSections) {
+             if ( (($sect eq 'all') ||
+                   ($section eq $sect)) &&
+                  (($studenthash->{'status'} eq $requested_status) ||
+                   ($requested_status eq 'Any'))
+                  ){
+                 push (@Students,$studenthash);
+                 last;
+             }
+         }
+     }
+     #
+     # Put the consolidated section data in the right place
+     if ($ENV{'request.course.sec'} ne '') {
+         @Sections = ($ENV{'request.course.sec'});
+     } else {
+         @Sections = sort {$a cmp $b} keys(%Sections);
+         unshift(@Sections,'all'); # Put 'all' at the front of the list
+     }
+     #
+     # Sort the Students
+     my $sortby = 'fullname';
+     $sortby = $ENV{'form.sort'} if (exists($ENV{'form.sort'}));
+     my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} ||
+                              $a->{'fullname'} cmp $b->{'fullname'} } @Students;
+     @Students = @TmpStudents;
+     #
+     # Now deal with that current student thing....
+     if (exists($ENV{'form.StudentAssessmentStudent'})) {
+         my ($current_uname,$current_dom) =
+             split(':',$ENV{'form.StudentAssessmentStudent'});
+         my $i;
+         for ($i = 0; $i<=$#Students; $i++) {
+             next if (($Students[$i]->{'username'} ne $current_uname) ||
+                      ($Students[$i]->{'domain'}   ne $current_dom));
+             $curr_student = $Students[$i];
+             last; # If we get here, we have our student.
+         }
+         if ($i == 0) {
+             $prev_student = 'none';
+         } else {
+             $prev_student = $Students[$i-1];
+         }
+         if ($i == $#Students) {
+             $next_student = 'none';
+         } else {
+             $next_student = $Students[$i+1];
+         }
      }
-     my $Answ=&Apache::lonnet::ssi($URI);
+     #
-     $r->print("<br><b>Here you can see the Problem:</b><br>$Answ");
+     if (exists($ENV{'form.StudentData'})) {
+         if (ref($ENV{'form.StudentData'}) eq 'ARRAY') {
+             @SelectedStudentData = @{$ENV{'form.StudentData'}};
+         } else {
+             @SelectedStudentData = ($ENV{'form.StudentData'});
+         }
+     } else {
+         @SelectedStudentData = ('fullname');
+     }
+     foreach (@SelectedStudentData) {
+         if ($_ eq 'all') {
+             @SelectedStudentData = ('all');
+             last;
+         }
+     }
+     #
+     return;
  }
- sub AdjustData {
+ #######################################################
-     my $k=shift;
+ #######################################################
-     my $Max=0;
-     my @data1;
-     my @data2;
-     for (my $n=0; $n<=$#Concepts; $n++ ) {
- 	my $tmp=$Concepts[$n];
- 	$data1[$n]=$ConceptData{"$tmp.$k.true"};
- 	$data2[$n]=$ConceptData{"$tmp.$k.false"};
- 	my $Sum=$data1[$n]+$data2[$n];
- 	if ( $Max<$Sum ) {$Max=$Sum;}
-     }
-     for (my $n=0; $n<=$#Concepts; $n++ ) {
- 	if ($data1[$n]+$data2[$n]<$Max) {
- 	    $data2[$n]+=$Max-($data1[$n]+$data2[$n]);
- 	}
-     }
-     return join(',',@data1).'+'.
-            join(',',@data2).'+'.
-            $Max.'+'.($#data1+1);
- }
+ =pod
- sub DrawGraph {
+ =item &current_student()
-     my $data=shift;
-     my($data1,$data2,$Max,$P_No,$Src,$k)=split(/\+/,$data);
-     my $Str="\n".'<table border=1>'.
-             "\n".'<tr>'.
- 	    "\n".'<th> Correct Answers </th>'.
- 	    "\n".'<th> Wrong Answers </th>'.
- 	    "\n".'<th> From </th>'.
- 	    "\n".'<th> To </th>'.
- 	    "\n".'</tr>'.
- 	    "\n"."<tr>".
- 	    "\n"."<td> $data1 </td>".
-             "\n"."<td> $data2 </td>".
-             "\n"."<td> ".localtime($ConceptData{'Int.'.($k-1)})." </td>".
-             "\n"."<td> ".localtime($ConceptData{'Int.'.$k}-1)." </td>".
-             "\n"."</tr></table>";
-     $r->print($Str);
- #    $r->print('<br><b>Correct Answers:</b> '.$data1.
+ Returns a pointer to a hash containing data about the currently
- #              '<br><b>Wrong Answers: </b>'.$data2);
+ selected student.
- #    $r->print('<br><b>From: </b>'.localtime($ConceptData{'Int.'.($k-1)}).
- #              '<br><b>To: </b>'.localtime($ConceptData{"Int.$k"}));
- #   if ( $Max > 1 ) {
- #	$Max += (10 - $Max % 10);
- #	$Max = int($Max);
- #   }
- #   else { $Max = 1; }
-     my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.$k : $Src;
-     $GData=$Titr.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
-     if($ConceptData{'Interval'}>1){
- 	$r->print('<br><IMG src="/cgi-bin/graph.gif?'.$GData.'" />');
- 	return;
-     }
-     $r->print('<br>Move your mouse over a bar to find out the concept');
-     my $ptr='';
-     $ptr.="\n".'<form method="post" action="" name="displayform"> <input type=text name="dis" size=80> </form>';
-     $ptr.="\n".'<p><img src=/cgi-bin/graph.gif?'.$GData.
-           ' usemap="#Map" border=1>'.
-           "\n".'<map name="Map">';
-     my $gap=12;
-     my $Size=340;
-     my $barsize=($P_No) ? int($Size/$P_No) : 1;
-     for (my $i=0; $i<$P_No; $i++) {
- 	my $x1=80+$gap*$i+($i*$barsize);
- 	my $x2=$x1+$barsize;
- 	my $y1=25;
- 	my $y2=350;
- 	my $j=$i+1;
- 	$ptr.="\n".'<area shape="rect" coords='.$x1.','.$y1.','.$x2.','.$y2.' onMouseOver="display('."'Concept $j: $Concepts[$i]'".'); " href="javascript:alert('."'Concept $j: $Concepts[$i]'".');">';
-     }
-     $ptr.="\n".'<area shape="default" onMouseOver="cleardisplay(); " href="javascript:alert('.'No Concept  in particular'.');">';
-     $ptr.="\n".'</map></p>';
-     $r->print('<br>'.$ptr.'<br>');
- }
+ =cut
- sub AnalyzeProblem {
+ #######################################################
- # -------------------------------- Selecting the number of intervals
+ #######################################################
-     my $OpSel='';
+ sub current_student {
-     my $CurInt = $ENV{'form.interval'};
+     if (defined($curr_student)) {
-     if ($CurInt eq '') {$CurMap = '1';}
+         return $curr_student;
-     my $Ptr = '<b>Select number of intervals</b>'."\n".
+     } else {
-        	      '<select name="interval">'."\n";
+         return 'All Students';
-     for (my $n=1;$n<=7;$n++) {
+     }
- 	$Ptr .= '<option';
-         if ($CurInt eq $n) {$Ptr .= ' selected';}
- 	$Ptr .= '>'.$n."</option>"."\n";
-     }
-     $Ptr .= '</select>'."\n";
-     $r->print( $Ptr );
-     $r->print('<br><b> Option Response Problems in this course:</b><br><br>');
-     my $Str = "\n".'<table border=2>'.
-               "\n".'<tr>'.
-               "\n".'<th> # </th>'.
- 	      "\n".'<th> Problem Title </th>'.
- 	      "\n".'<th> Resouse </th>'.
- 	      "\n".'<th> Address </th>'.
- 	      "\n".'</tr>';
-      my $P_No=1;
-      foreach (sort keys %OpResp) {
- 	 my ($rid,$part)=split(/\:/,$OpResp{$_});
- 	 my $Temp = '<a href="'.$hash{'src_'.$rid}.
-                     '" target="_blank">'.$hash{'title_'.$rid}.'</a>';
- 	 $Str .= "\n"."<tr>".
- 	         "\n"."<td> $P_No </td>".
-                  "\n"."<td bgcolor=#DDFFDD> ".$Temp." </td>".
-                  "\n"."<td bgcolor=#EEFFCC> ".$hash{'src_'.$rid}." </td>".
- 	         "\n"."<td> ".'<input type="submit" name="sort" value="'.'Analyze_'.$rid.'" />'.'</td>'.
-                  "\n"."</tr>";
- 	 $P_No++;
-      }
-      $Str .= "\n".'</table>';
-      $Str .= "\n".'</form>';
-      $r->print($Str);
-      $r->rflush();
  }
+ #######################################################
+ #######################################################
- sub Decide {
+ =pod
-     my ($type,$foil,$time)=@_;
-     my $k=0;
-     while ($time>$ConceptData{'Int.'.($k+1)} &&
-            $k<$ConceptData{'Interval'}) {$k++;}
-     $ConceptData{"$foil_to_concept{$foil}.$k.$type"}++;
- }
+ =item &previous_student()
- sub OpStatus {
+ Returns a pointer to a hash containing data about the student prior
-     my ($rid,$student)=@_;
+ in the list of students.  Or something.
-     my ($uname,$udom)=split(/\:/,$student);
-     my $code='U';
-     $rid=~/(\d+)\.(\d+)/;
-     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
- 	     &Apache::lonnet::declutter($hash{'src_'.$rid});
-     my %reshash=&Apache::lonnet::restore($symb,$cid,$udom,$uname);
-     my @True = ();
-     my @False = ();
-     my $flag=0;
-     @shown=();
-     if ($reshash{'version'}) {
- 	for (my $version=1;$version<=$reshash{'version'};$version++) {
- 	    my $time=$reshash{"$version:timestamp"};
- 	    foreach (sort(split(/\:/,$reshash{$version.':keys'}))) {
- 		if (($_=~/\.(\w+)\.(\w+)\.submission$/)) {
- 		    my $Id1 = $1;
- 		    my $Id2 = $2;
- 		    my $Resp = $reshash{$_};
- 		    my %submission=&Apache::lonnet::str2hash($Resp);
- 		    foreach (keys %submission) {
- 			my $Ansr = $Answer{"$Id1.$Id2.foil.value.$_"};
- 			#$r->print("<br>shown: ".join(',',@shown)." size=$#shown");
- 			if ($submission{$_}) {
- 			    #if($#shown==-1){
- 				#my @str=split(/\&/,$Resp);
- 				#my $garb;
- 				#for(my $j=0;$j<=$#str;$j++){
- 				#    ($shown[$j],$garb)=split(/\=/,$str[$j]);
- 				#}
- 				##$r->print("<br>shown: ".join(',',@shown)." size=$#shown");
- 			    #}
- 			    if ($submission{$_} eq $Ansr) {
- 				&Decide("true",$_,$time );
- 			    }
- 			    else {&Decide("false",$_,$time );}
- 			}
- 			#else {
- 			#    if ($#shown==-1 && $flag==0) {
- 			#	$flag++;
- 			#	&InitAnalysis($rid,$student);
- 			#    }
- 			#    my @erl=split(/\:/,$_);
- 			#    for (my $i=0;$i<=$#shown; $i++){
- 			#	my $Ans=$Answer{"$Id1.$Id2.foil.value.$shown[$i]"};
- 			#	if ($erl[$i] eq $Ans) {
- 			#	    &Decide("true",$shown[$i],$time);
- 			#	}
- 			#	else {&Decide("false",$shown[$i],$time);}
- 			#    }
- 			#}
- 		    }
- 	        }
- 	    }
-         }
-     }
- }
+ =cut
- #------- Processing upperlist and lowerlist according to each problem
+ #######################################################
- sub ProcessDisc {
+ #######################################################
-     my @List = @_;
+ sub previous_student {
-     @List = sort (@List);
+     if (defined($prev_student)) {
-     my $Count = $#List+1;
+         return $prev_student;
-     my $Prb;
+     } else {
-     my @Dis;
+         return 'No Student Selected';
-     my $Slvd=0;
-     my $tmp;
-     my $Sum1=0;
-     my $Sum2=0;
-     my $nIdx=0;
-     my $nStud=0;
-     my %Proc;
-     undef %Proc;
-     while ($nIdx<$Count) {
- 	($Prb,$tmp)=split(/\=/,$List[$nIdx]);
- 	@Dis=split(/\+/,$tmp);
- 	my $Temp = $Prb;
- 	do {
- 	    $nIdx++;
- 	    $nStud++;
- 	    $Sum1 += $Dis[0];
- 	    $Sum2 += $Dis[1];
- 	    ($Prb,$tmp)=split(/\=/,$List[$nIdx]);
- 	    @Dis=split(/\+/,$tmp);
- 	} while ( $Prb eq $Temp && $nIdx < $Count );
- #	$Proc{$Temp}=($Sum1/$nStud).':'.$nStud;
- 	$Proc{$Temp}=($Sum1/$nStud).':'.($Sum2/$nStud);
- #       $r->print("$nIdx) $Temp --> ($nStud) $Proc{$Temp} <br>");
- 	$Sum1=0;
- 	$Sum2=0;
- 	$nStud=0;
      }
-     return %Proc;
  }
+ #######################################################
+ #######################################################
- #------- Creating Discimination factor
+ =pod
- sub Discriminant {
-     my $Count=0;
+ =item &next_student()
-     foreach (keys(%DiscFac)){
- 	$Count++;
+ Returns a pointer to a hash containing data about the next student
-     }
+ to be viewed.
-     $UpCnt = int(0.27*$Count);
-     my $low=0;
+ =cut
-     my $up=$Count-$UpCnt;
-     my @UpList=();
+ #######################################################
-     my @LowList=();
+ #######################################################
-     $Count=0;
+ sub next_student {
-     foreach my $key (sort(keys(%DiscFac))){
+     if (defined($next_student)) {
- 	$Count++;
+         return $next_student;
-         #$r->print("<br>$Count) $key = $DiscFac{$key}");
+     } else {
- 	if ($low < $UpCnt || $Count > $up) {
+         return 'No Student Selected';
- 	    $low++;
- 	    my $str=$DiscFac{$key};
- 	    foreach(split(/\:/,$str)){
- 		if ($_) {
- 		    if ($low<$UpCnt){push(@LowList,$_);}
- 		    else {push(@UpList,$_);}
- 		}
- 	    }
- 	}
      }
-     %DisUp=&ProcessDisc(@UpList);
-     %DisLow=&ProcessDisc(@LowList);
  }
+ #######################################################
- sub NumericSort {
+ #######################################################
-     $a <=> $b;
+ =pod
+ =item &clear_sequence_variables()
+ =cut
+ #######################################################
+ #######################################################
+ sub clear_sequence_variables {
+     undef($top_map);
+     undef(@Sequences);
+     undef(@Assessments);
  }
- # ------ Create different Student Report
+ #######################################################
- sub StudentReport {
+ #######################################################
-     my ($sname,$sdom)=@_;
-     if ( $sname eq 'All Students' ) {
- 	$r->print( '<h3><font color=blue>WARNING:
-                     Please select a student</font></h3>' );
- 	return;
-     }
-     my %result = &Apache::lonnet::dump($cid,$sdom,$sname);
-     my $ResId;
-     my $PrOrd;
-     my $Code;
-     my $Tries;
-     my $TotalTries = 0;
-     my $ParCr = 0;
-     my $Wrongs;
-     my %TempHash;
-     my $Version;
-     my $LatestVersion;
-     my $PtrTry='';
-     my $PtrCod='';
-     my $SetNo=0;
-     my $Str = "\n".'<table border=2>'.
-               "\n".'<tr>'.
-               "\n".'<th> # </th>'.
- 	      "\n".'<th> Set Title </th>'.
- 	      "\n".'<th> Results </th>'.
- 	      "\n".'<th> Tries </th>'.
- 	      "\n".'</tr>';
-     my ($temp)=keys(%result);
-     unless ($temp=~/^error\:/) {
-         foreach my $CurCol (@cols) {
- 	    if (!$CurCol){
- 		my $Set=&Apache::lonnet::declutter($hash{'map_id_'.$1});
- 		if ( $Set ) {
- 		    $SetNo++;
- 		    $Str .= "\n"."<tr>".
- 			    "\n"."<td> $SetNo </td>".
-                             "\n"."<td> $Set </td>".
-                             "\n"."<td> $PtrCod </td>".
-                             "\n"."<td> $PtrTry</td>".
-                             "\n"."</tr>";
- 		}
- 		$PtrTry='';
- 		$PtrCod='';
- 		next;
- 	    }
- 	    ($PrOrd,$ResId)=split(/\:/,$CurCol);
-             $ResId=~/(\d+)\.(\d+)/;
-             my $Map = &Apache::lonnet::declutter( $hash{'map_id_'.$1} );
-             if ( $CurMap ne 'All Maps' ) {
- 		my ( $ResMap, $NameMap ) = split(/\=/,$CurMap);
- 		if ( $Map ne $ResMap ) { next; }
- 	    }
- 	    my $meta=$hash{'src_'.$ResId};
- 	    my $PartNo = 0;
- 	    undef %TempHash;
- 	    foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))){
- 		if ($_=~/^stores\_(\w+)\_tries$/) {
-                     my $Part=&Apache::lonnet::metadata($meta,$_.'.part');
- 		    if ( $TempHash{"$Part"} eq '' ) {
- 			$TempHash{"$Part"} = $Part;
- 			$TempHash{$PartNo}=$Part;
- 			$TempHash{"$Part.Code"} = '-';
- 			$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo;
- 			$PartNo++;
- 		    }
- 		}
-             }
-             my $Prob = $Map.'___'.$2.'___'.
+ =pod
-                        &Apache::lonnet::declutter( $hash{'src_'.$ResId} );
-             $Code='U';
+ =item &SetSelectedMaps($elementname)
-             $Tries = 0;
-             $Wrongs = 0;
+ Sets the @SelectedMaps array from $ENV{'form.'.$elementname};
-   	    $LatestVersion = $result{"version:$Prob"};
- 	    if ( $LatestVersion ) {
+ =cut
- 		for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {
- 		    my $vkeys = $result{"$Version:keys:$Prob"};
+ #######################################################
- 		    my @keys = split(/\:/,$vkeys);
+ #######################################################
+ sub SetSelectedMaps {
- 		    foreach my $Key (@keys) {
+     my $elementname = shift;
- 			if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
+     if (exists($ENV{'form.'.$elementname})) {
- 			    my $Part = $1;
+         if (ref($ENV{'form.'.$elementname})) {
- 			    $Tries = $result{"$Version:$Prob:resource.$Part.tries"};
+             @SelectedMaps = @{$ENV{'form.'.$elementname}};
- 			    $TempHash{"$Part.Tries"} = ($Tries) ? $Tries : 0;
+         } else {
- 			    $TotalTries += $Tries;
+             @SelectedMaps = ($ENV{'form.'.$elementname});
- 			    my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
- 			    if ( $Val eq 'correct_by_student' )
-                                 { $Wrongs = $Tries - 1; $Code = 'Y'; }
- 			    elsif ( $Val eq 'correct_by_override' )
-                                 { $Wrongs = $Tries - 1; $Code = 'y'; }
- 			    elsif ( $Val eq 'incorrect_attempted' ||
-                                 $Val eq 'incorrect_by_override' )
- 		                { $Wrongs = $Tries; $Code = 'N'; }
- 			    $TempHash{"$Part.Code"} = $Code;
- 			    $TempHash{"$Part.Wrongs"} = $Wrongs;
- 			}
-      		    }
-                 }
- 		for ( my $n = 0; $n < $PartNo; $n++ ) {
- 		    my $part = $TempHash{$n};
- 		    if ($PtrTry ne '') {$PtrTry .= ',';}
- 		    $PtrTry .= "$TempHash{$part.'.Tries'}";
-                     $PtrCod .= "$TempHash{$part.'.Code'}";
- 		}
-             }
- 	    else {
- 		for(my $n=0; $n<$PartNo; $n++) {
- 		    if ($PtrTry ne '') {$PtrTry .= ',';}
- 		    $PtrTry .= "0";
-                     $PtrCod .= "-";
- 		}
- 	    }
          }
+     } else {
+         @SelectedMaps = ('all');
      }
-     $Str .= "\n".'</table>';
-     $r->print($Str);
-     $r->rflush();
  }
- sub CreateTable {
-     my $ColNo=0;
-     foreach (keys(%Header)){
- 	$ColNo++;
-     }
-     my ($Hd, $Hid)=@_;
-     if ( $Hd == 1 ) {
- 	$r->print('<br><a href="'.$hash{'src_'.$Hid}.
-                   '" target="_blank">'.$hash{'title_'.$Hid}.'</a>');
-     }
-     my $Result = "\n".'<table border=2>';
-     $Result .= '<tr><th>P#</th>'."\n";
-     for ( my $nIdx=0; $nIdx < $ColNo; $nIdx++ ) {
- 	$Result .= '<th>'.'<input type="submit" name="sort" value="'.
-                    $Header{$nIdx}.'" />'.'</th>'."\n";
-     }
-     $Result .= "\n".'</tr>'."\n";
-     $r->print( $Result );
-     $r->rflush();
- }
- sub CloseTable {
+ #######################################################
-     $r->print("\n".'</table>'."\n");
+ #######################################################
-     $r->rflush();
- }
+ =pod
- # ------------------------------------------- Prepare Statistics Table
+ =item &Sequences_with_Assess()
- sub PreStatTable {
-     my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
+ Returns an array containing the subset of @Sequences which contain
-                   "_$ENV{'user.domain'}_$cid\_statistics.db";
+ assessments.
-     my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
-                   "_$ENV{'user.domain'}_$cid\_graph.db";
+ =cut
-     my $OpSel11='';
-     my $OpSel12='';
+ #######################################################
-     my $OpSel13='';
+ #######################################################
-     my $Status = $ENV{'form.status'};
+ sub Sequences_with_Assess {
-     if ( $Status eq 'Any' ) { $OpSel13='selected'; }
+     my @Sequences_to_Show;
-     elsif ($Status eq 'Expired' ) { $OpSel12 = 'selected'; }
+     foreach my $map_symb (@SelectedMaps) {
-     else { $OpSel11 = 'selected'; }
+         foreach my $sequence (@Sequences) {
+             next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');
-     my $Ptr = '';
+             next if ($sequence->{'num_assess'} < 1);
-     $Ptr .= '<br><b> Student Status: &nbsp; </b>'."\n".
+             push (@Sequences_to_Show,$sequence);
-             '<select name="status">'.
+         }
-             '<option '.$OpSel11.' >Active</option>'."\n".
+     }
-             '<option '.$OpSel12.' >Expired</option>'."\n".
+     return @Sequences_to_Show;
- 	    '<option '.$OpSel13.' >Any</option> </select> '."\n";
-     $Ptr .= '&nbsp;&nbsp;&nbsp;';
-     $Ptr .= '<input type=submit name=sort value="Recalculate Statistics"/>'."\n";
-     $Ptr .= '<br><b> Sorting Type: &nbsp; </b>'."\n".
-             '<select name="order"> <option '.$OpSel1.' >Ascending</option>'."\n".
- 	    '<option '.$OpSel2.'>Descending</option> </select> '."\n";
-     $Ptr .= '&nbsp;&nbsp;&nbsp;';
-     $Ptr .= '<input type="submit" name="sort" value="DoDiff Graph" />'."\n";
-     $Ptr .= '&nbsp;&nbsp;&nbsp;';
-     $Ptr .= '<input type="submit" name="sort" value="%Wrong Graph" />'."\n";
-     $Ptr .= '<pre>'.
-     '<b>  #Stdnts</b>: Total Number of Students opened the problem.<br>'.
-     '<b>  Tries  </b>: Total Number of Tries for solving the problem.<br>'.
-     '<b>  Mod   </b> : Maximunm Number of Tries for solving the problem.<br>'.
-     '<b>  Mean   </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'.
-     '<b>  #YES   </b>: Number of students solved the problem correctly.<br>'.
-     '<b>  #yes   </b>: Number of students solved the problem by override.<br>'.
-     '<b>  %Wrng  </b>: Percentage of students tried to solve the problem but'.
-     ' still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]<br>'.
- #    '  DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'. Kashy formula
-     '<b>  DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'. #Gerd formula
-     '<b>  S.D.  </b> : Standard Deviation of the tries.'.
-     '[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'.
-     ' where Xi denotes every student\'s tries ]<br>'.
-     '<b>  Skew.  </b>: Skewness of the students tries.'.
- 	' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]<br>'.
-     '<b>  Dis.F. </b>: Discrimination Factor: A Standard for '.
- 	'evaluating the problem according to a Criterion<br>'.
- 	'<b>           [Applied Criterion in %27 Upper Students - '.
- 	'Applied the same Criterion in %27 Lower Students]</b><br>'.
-     '<b>           1st Criterion</b> for Sorting the Students: '.
- 	'<b>Sum of Partial Credit Awarded / Total Number of Tries</b><br>'.
-     '<b>           2nd Criterion</b> for Sorting the Students: '.
- 	'<b>Total number of Correct Answers / Total Number of Tries</b>'.
-             '</pre>';
-     $r->print($Ptr);
-     $r->rflush();
-     if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) {
- 	if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
- 	    tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
- 	    &Cache_Statistics();
-         }
-         else {
- 	    $r->print("Unable to tie hash to db file");
-         }
-     }
-     else {
- 	if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
- 	    tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
- 	    foreach (keys %DiscFac) {delete $CachData{$_};}
- 	    foreach (keys %CachData) {delete $CachData{$_};}
- 	    $DiscFlag=0;
- 	    &Build_Statistics();
- 	}
-         else {
- 	    $r->print("Unable to tie hash to db file");
-         }
-     }
- #    $r->print('Total instances of the problems : '.($p_count*($#students+1)));
-     untie(%CachData);
-     untie(%GraphDat);
  }
+ #######################################################
+ #######################################################
- # ------------------------------------- Find the section of student in a course
+ =pod
- sub usection {
+ =item &PrepareCourseData($r)
-     my ($udom,$unam,$courseid,$ActiveFlag)=@_;
-     $courseid=~s/\_/\//g;
+ =cut
-     $courseid=~s/^(\w)/\/$1/;
-     foreach (split(/\&/,&Apache::lonnet::reply('dump:'.
+ #######################################################
-              $udom.':'.$unam.':roles',
+ #######################################################
-              &Apache::lonnet::homeserver($unam,$udom)))){
+ sub PrepareCourseData {
-         my ($key,$value)=split(/\=/,$_);
+     my ($r) = @_;
-         $key=&Apache::lonnet::unescape($key);
+     &clear_sequence_variables();
-         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {
+     my ($top,$sequences,$assessments) =
-             my $section=$1;
+         &Apache::loncoursedata::get_sequence_assessment_data();
-             if ($key eq $courseid.'_st') { $section=''; }
+     if (! defined($top) || ! ref($top)) {
- 	    my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value));
+         # There has been an error, better report it
- 	    if ( $ActiveFlag ne 'Any' ) {
+         &Apache::lonnet::logthis('top is undefined');
- 		my $now=time;
+         return;
- 		my $notactive=0;
+     }
- 		if ($start) {
+     $top_map = $top if (ref($top));
- 		    if ($now<$start) { $notactive=1; }
+     @Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');
- 		}
+     @Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');
- 		if ($end) {
+     #
- 		    if ($now>$end) { $notactive=1; }
+     # Compute column widths
- 		}
+     foreach my $seq (@Sequences) {
- 		if ((($ActiveFlag eq 'Expired') && $notactive == 1) ||
+         my $name_length = length($seq->{'title'});
-                     (($ActiveFlag eq 'Active') && $notactive == 0 ) ) {
+         my $num_parts = $seq->{'num_assess_parts'};
- 		    return $section;
+         #
- 		}
+         # The number of columns needed for the summation text:
- 		else { return '-1'; }
+         #    " 1/5" = 1+3 columns, " 10/99" = 1+5 columns
- 	    }
+         my $sum_length = 1+1+2*(length($num_parts));
- 	    return $section;
+         my $num_col = $num_parts+$sum_length;
+         if ($num_col < $name_length) {
+             $num_col = $name_length;
          }
+         $seq->{'base_width'} = $name_length;
+         $seq->{'width'} = $num_col;
      }
-     return '-1';
+     return;
  }
+ #######################################################
+ #######################################################
+ =pod
- # ------ Dump the Student's DB file and handling the data for statistics table
+ =item &log_sequence($sequence,$recursive,$padding)
- sub ExtractStudentData {
-     my $student=shift;
+ Write data about the sequence to a logfile.  If $recursive is not
-     my ($sname,$sdom) = split( /\:/, $student );
+ undef the data is written recursively.  $padding is used for recursive
-     my %result = &Apache::lonnet::dump($cid,$sdom,$sname);
+ calls.
-     my $ResId;
-     my $PrOrd;
+ =cut
-     my $Dis = '';
-     my $Code;
+ #######################################################
-     my $Tries;
+ #######################################################
-     my $ParCr;
+ sub log_sequence {
-     my $TotalTries = 0;
+     my ($seq,$recursive,$padding) = @_;
-     my $TotalOpend = 0;
+     $padding = '' if (! defined($padding));
-     my $ProbSolved = 0;
+     if (ref($seq) ne 'HASH') {
-     my $ProbTot = 0;
+         &Apache::lonnet::logthis('log_sequence passed bad sequnce');
-     my $TimeTot = 0;
+         return;
-     my $TotParCr = 0;
+     }
-     my $Wrongs;
+     &Apache::lonnet::logthis($padding.'sequence '.$seq->{'title'});
-     my %TempHash;
+     while (my($key,$value) = each(%$seq)) {
-     my $Version;
+         next if ($key eq 'contents');
-     my $LatestVersion;
+         if (ref($value) eq 'ARRAY') {
-     my $SecLimit;
+             for (my $i=0;$i< scalar(@$value);$i++) {
-     my $MapLimit;
+                 &Apache::lonnet::logthis($padding.$key.'['.$i.']='.
-     my ($temp)=keys(%result);
+                                          $value->[$i]);
-     unless ($temp=~/^error\:/) {
-         foreach my $CurCol(@cols) {
- 	    ($PrOrd,$ResId)=split(/\:/,$CurCol);
- 	    if ( !$CurCol ) { next; }
-             $ResId=~/(\d+)\.(\d+)/;
- 	    my $MapId=$1;
- 	    my $PrbId=$2;
-             my $MapOrg = $hash{'map_id_'.$MapId};
-             my $Map = &Apache::lonnet::declutter($MapOrg);
-             if ( $CurMap ne 'All Maps' ) {
- 		my ( $ResMap, $NameMap ) = split(/\=/,$CurMap);
- 		if ( $Map ne $ResMap ) { next; }
- 	    }
- 	    my $meta=$hash{'src_'.$ResId};
- 	    my $PartNo = 0;
- 	    $Dis .= ':';
- 	    undef %TempHash;
- 	    foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
- 		if ($_=~/^stores\_(\w+)\_tries$/) {
-                     my $Part=&Apache::lonnet::metadata($meta,$_.'.part');
- 		    if ( $TempHash{"$Part"} eq '' ) {
- 			$TempHash{"$Part"} = $Part;
- 			$TempHash{$PartNo}=$Part;
- 			$TempHash{"$Part.Code"} = 'U';
- 			$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo;
- 			$PartNo++;
- 		    }
-                     #my $Part=&Apache::lonnet::metadata($meta,$_.'.part');
- 		}
              }
-             &Apache::lonnet::declutter( $hash{'src_'.$ResId} );
+         } else {
- 	    my $URI = $hash{'src_'.$ResId};
+             &Apache::lonnet::logthis($padding.$key.'='.$value);
-             my $Prob = $Map.'___'.$PrbId.'___'.
+         }
-                        &Apache::lonnet::declutter($URI);
+     }
-             $Code='U';
+     if (defined($recursive)) {
-             $Tries = 0;
+         &Apache::lonnet::logthis($padding.'-'x20);
- 	    $ParCr = 0;
+         &Apache::lonnet::logthis($padding.'contains:');
-             $Wrongs = 0;
+         foreach my $item (@{$seq->{'contents'}}) {
-   	    $LatestVersion = $result{"version:$Prob"};
+             if ($item->{'type'} eq 'container') {
- 	    if ( $LatestVersion ) {
+                 &log_sequence($item,$recursive,$padding.'    ');
- 		for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {
+             } else {
- 		    my $vkeys = $result{"$Version:keys:$Prob"};
+                 &Apache::lonnet::logthis($padding.'title = '.$item->{'title'});
- 		    my @keys = split(/\:/,$vkeys);
+                 while (my($key,$value) = each(%$item)) {
- 		    foreach my $Key (@keys) {
+                     next if ($key eq 'title');
- 			if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
+                     if (ref($value) eq 'ARRAY') {
- 			    my $Part = $1;
+                         for (my $i=0;$i< scalar(@$value);$i++) {
- 			    $Tries = $result{"$Version:$Prob:resource.$Part.tries"};
+                             &Apache::lonnet::logthis($padding.$key.'['.$i.']='.
- 			    $ParCr = $result{"$Version:$Prob:resource.$Part.awarded"};
+                                                      $value->[$i]);
- 			    my $Time = $result{"$Version:$Prob:timestamp"};
+                         }
- 			    $TempHash{"$Part.Time"} = ($Time) ? $Time : 0;
+                     } else {
- 			    $TempHash{"$Part.Tries"} = ($Tries) ? $Tries : 0;
+                         &Apache::lonnet::logthis($padding.$key.'='.$value);
- 			    $TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0;
+                     }
- 			    $TotalTries += $TempHash{"$Part.Tries"};
+                 }
- 			    $TotParCr += $TempHash{"$Part.ParCr"};
- 			    my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
- 			    if ( $Val eq 'correct_by_student' )
-                                { $Wrongs = $Tries - 1; $Code = 'C'; }
- 			    elsif ( $Val eq 'correct_by_override' )
-                                { $Wrongs = $Tries - 1; $Code = 'O'; }
- 			    elsif ( $Val eq 'incorrect_attempted' ||
-                                 $Val eq 'incorrect_by_override' )
- 		               { $Wrongs = $Tries; $Code = 'I'; }
- 			    $TempHash{"$Part.Code"} = $Code;
- 			    $TempHash{"$Part.Wrongs"} = $Wrongs;
- 			}
-      		    }
-                 }
- 		for ( my $n = 0; $n < $PartNo; $n++ ) {
- 		    my $part = $TempHash{$n};
- 		    my $Yes = 0;
-                     if ( $TempHash{$part.'.Code'} eq 'C' ||
-                          $TempHash{$part.'.Code'} eq 'O'  )
- 		       {$ProbSolved++;$Yes=1;}
-  #		    my $ptr = "$hash{'title_'.$ResId}";
- 		    my $ptr = $TempHash{$part.'.PrOrd'}.'&'.$ResId;
- 		    if ( $PartNo > 1 ) {
- 			$ptr .= "*(part $part)";
- 			$Dis .= '&';
- 		    }
- 		    my $Fac = ($TempHash{"$part.Tries"}) ?
-                               ($TempHash{"$part.ParCr"}/$TempHash{"$part.Tries"}) : 0;
- 		    my $DisF;
- 		    if ( $Fac > 0 &&  $Fac < 1 ) {
- 			$DisF = sprintf( "%.4f", $Fac );
- 		    }
- 		    else {$DisF = $Fac;}
- #		    $DisF .= '+'.$TempHash{"$part.Time"};33333333
- 		    $TimeTot += $TempHash{"$part.Time"};
- 		    $Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes;
- 		    $ptr .= "&$TempHash{$part.'.Tries'}".
- 		            "&$TempHash{$part.'.Wrongs'}".
-                             "&$TempHash{$part.'.Code'}";
- 		    push (@list, $ptr);
- 		    $TotalOpend++;
- 		    $ProbTot++;
- 		}
              }
- 	    #else {
+         }
- 		#for(my $n=0; $n<$PartNo; $n++) {
+         &Apache::lonnet::logthis($padding.'end contents of '.$seq->{'title'});
- 		#    push (@list, "$TempHash{'0'.'.PrOrd'}.':'.$ResId:0:0:U");
+         &Apache::lonnet::logthis($padding.'-'x20);
- 		#    $ProbTot++;
- 		#}
- 	    #}
-         }
- 	if ( $TotalTries ) {
- 	    my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;
- 	    my $DisFactor = sprintf( "%.4f", $DisFac );
- 	    $DiscFac{$DisFactor}=$Dis;
- 	    #my $time;
- 	    #if ($ProbSolved){
- 		#$time = int(($TimeTot/$ProbSolved)-10000000);
- 	    #}
- 	    #$DiscFac{($DisFactor.':'.$sname.':'.$ProbTot.':'.$TotalOpend.':'.
-             #          $TotalTries.':'.$ProbSolved.':'.$time)}=$Dis;
- 	}
      }
-     #$r->print($sname.' PrCr= '.$TotParCr.' Slvd= '.$ProbSolved.' Tries='.$TotalTries.'<br>');
+     return;
  }
+ ##############################################
+ ##############################################
- # ------------------------------------------------------------ Build page table
+ =pod
- sub tracetable {
-     my ($rid,$beenhere)=@_;
-     my $IsMap=0;
-     $rid=~/(\d+)\.(\d+)/;
-     $maps{&Apache::lonnet::declutter($hash{'map_id_'.$1})}='';#$hash{'title_'.$rid};
-     #$maps{$HWN}=$hash{'title_'.$rid};
-     unless ($beenhere=~/\&$rid\&/) {
-        $beenhere.=$rid.'&';
-        if (defined($hash{'is_map_'.$rid})) {
- 	   my $cmap=$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}};
-            if ( $cmap eq 'sequence' || $cmap eq 'page' ) {
-                $cols[$#cols+1]=0;
- 	       $P_Order++;
- 	       $HWN=$P_Order;
-                $mapsort{$HWN} = $rid.':';
- 	       $IsMap=1;
-                #$maps{&Apache::lonnet::declutter($hash{'src_'.$rid})}=
-                #      $hash{'title_'.$rid};
-            }
-            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.'&');
- 	       $cols[$#cols+1]=($P_Order+1).':'.$frid;
- 	       my $meta=$hash{'src_'.$frid};
- 	       my $PartNo = 0;
- 	       my $Part;
- 	#       if ($IsMap==0){
-                if ($meta) {
- 		   if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {
- 		       foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
- 			   if ($_=~/^stores\_(\w+)\_tries$/) {
- 			       $Part=&Apache::lonnet::metadata($meta,$_.'.part');
- 			       $P_Order++;
- 			       $mapsort{$HWN} .= '&'.$P_Order;
- 			       $PartNo++;
- 			       #$r->print('<br>'.$PartNo.'---'.$P_Order);
- 			   }
- 			   foreach my $K(split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
- 			       if ($K=~/^optionresponse\_($Part)\_(\w+)$/) {
- 				   #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);
- 				   $OpResp{$P_Order}="$frid:$Part";
- 			       }
- 			   }
- 		       }
- 		   }
-                }
- 	   }
- 	 #  }
-        } else {
- 	   $cols[$#cols+1]=($P_Order+1).':'.$rid;
- 	   my $meta=$hash{'src_'.$rid};
- 	   my $PartNo = 0;
- 	   if ($meta) {
- 	       if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {
- 		   foreach my $Key(split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
- 		       if ($Key=~/^stores\_(\w+)\_tries$/) {
- 			   my $Part=&Apache::lonnet::metadata($meta,$Key.'.part');
- 			   $P_Order++;
- 			   $mapsort{$HWN} .= '&'.$P_Order;
- 			   $PartNo++;
- 			   foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
- 			       if ($_=~/^optionresponse\_($Part)\_(\w+)$/) {
- 				   #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);
- 				   $OpResp{$P_Order}="$rid:$Part";;
- 			       }
- 			   }
- 		       }
- 		   }
- 	       }
- 	   }
-        }
-        if (defined($hash{'to_'.$rid})) {
-           foreach (split(/\,/,$hash{'to_'.$rid})){
-               &tracetable($hash{'goesto_'.$_},$beenhere);
-           }
-        }
-     }
- }
- sub MySort {
+ =item &StudentDataSelect($elementname,$status,$numvisible,$selected)
-     if ( $Pos > 0 ) {
- 	if ($ENV{'form.order'} eq 'Descending') {$b <=> $a;}
- 	else { $a <=> $b; }
-     }
-     else {
- 	if ($ENV{'form.order'} eq 'Descending') {$b cmp $a;}
- 	else { $a cmp $b; }
-     }
- }
- sub Create_PrgWin {
+ Returns html for a selection box allowing the user to choose one (or more)
- #----------- Create progress
+ of the fields of student data available (fullname, username, id, section, etc)
-     $r->print(<<ENDPOP);
-     <script>
-     popwin=open('','popwin','width=400,height=100');
-     popwin.document.writeln('<html><body bgcolor="#88DDFF">'+
-       '<title>LON-CAPA Statistics</title>'+
-       '<h4>Computation Progress</h4>'+
-       '<form name=popremain>'+
-       '<input type=text size=35 name=remaining value=Starting></form>'+
-       '</body></html>');
-     popwin.document.close();
-     </script>
- ENDPOP
-     $r->rflush();
+ =over 4
- }
+ =item $elementname The name of the HTML form element
- sub Update_PrgWin {
+ =item $status 'multiple' or 'single' selection box
- #----------- update progress
-     my $index = shift;
-     $r->print('<script>popwin.document.popremain.remaining.value="'.
-               'Computing '.($index+1).'/'.($#students+1).': '.
-               $students[$index].'";</script>');
-     $r->rflush();
- }
- sub Close_PrgWin {
+ =item $numvisible The number of options to be visible
- #--------------------- close Progress Line
-     $r->print('<script>popwin.close()</script>');
-     $r->rflush();
- }
- sub Build_Statistics {
+ =back
-     &Create_PrgWin();
- # ---------------------------- Gathering the Data of students' tries
+ =cut
-     for (my $index=0;$index<=$#students;$index++) {
- 	&Update_PrgWin($index);
-         &ExtractStudentData($students[$index]);
-     }
- # -------------------- sorting the Data
-     $r->print('<script>popwin.document.popremain.remaining.value="'.
-               'Calculating Discrimination Factors...";</script>');
-     @list = sort (@list);
-     &Discriminant();
-     $OpSel2='';
-     $OpSel1='selected';
-     $p_count = 0;
-     my $nIdx = 0;
-     my $dummy;
-     my $p_val;
-     my $ResId;
-     my $NoElements = $#list + 1;
- #-------------------------------- loop for data representation
-     foreach (sort keys %mapsort) {
- 	my ($Hid,$pr)=split(/\:/,$mapsort{$_});
- 	my @lpr=split(/\&/,$pr);
- 	&CreateTable(1,$Hid);
- 	for (my $i=1; $i<=$#lpr; $i++) {
- 	    my %storestats=();
- 	    my ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]);
- 	    my $Temp = $Prob;
- 	    my $MxTries = 0;
- 	    my $TotalTries = 0;
- 	    my $YES = 0;
- 	    my $Incorrect = 0;
- 	    my $Override = 0;
- 	    my $StdNo = 0;
- 	    my @StdLst;
- 	    while ( $PrOrd == $lpr[$i] )
- 	    {
- 		$nIdx++;
- 		$StdNo++;
- 		$StdLst[ $StdNo ] = $Tries;
- 		$TotalTries += $Tries;
- 		if ( $MxTries < $Tries ) { $MxTries = $Tries; }
- 		if ( $Code eq 'C' ){ $YES++; }
- 		elsif( $Code eq 'I' ) { $Incorrect++; }
- 		elsif( $Code eq 'O' ) { $Override++; }
- 		elsif( $Code eq 'U' ) { $StdNo--; }
- 		($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]);
- 	    }
- 	    $p_count++;
- 	    my $Dummy;
- 	    ($ResId,$Dummy)=split(/\*/,$Temp);
- 	    $Temp = '<a href="'.$hash{'src_'.$ResId}.
-                 '" target="_blank">'.$hash{'title_'.$ResId}.$Dummy.'</a>';
- 	    my $res = &Apache::lonnet::declutter($hash{'src_'.$ResId});
- 	    my $urlres=$res;
- 	    $ResId=~/(\d+)\.(\d+)/;
- 	    my $Map = &Apache::lonnet::declutter( $hash{'map_id_'.$1} );
- 	    $urlres=$Map;
- 	    $res = '<a href="'.$hash{'src_'.$ResId}.'">'.$res.'</a>';
- 	    #$Map = '<a href="'.$Map.'">'.$res.'</a>';
- #------------------------ Compute the Average of Tries about one problem
- 	    my $Average = ($StdNo) ? $TotalTries/$StdNo : 0;
- 	    $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___timestamp'}=time;
- 	    $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___stdno'}=$StdNo;
- 	    $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___avetries'}=$Average;
- #-------------------------------- Compute percentage of Wrong tries
- 	    my $Wrong = ( $StdNo ) ? 100 * ( $Incorrect / $StdNo ) : 0;
- #-------------------------------- Compute Standard Deviation
- 	    my $StdDev = 0;
- 	    if ( $StdNo > 1 ) {
- 		for ( my $n = 0; $n < $StdNo; $n++ ) {
- 		    my $Dif = $StdLst[ $n ]-$Average;
- 		    $StdDev += $Dif*$Dif;
- 		}
- 		$StdDev /= ( $StdNo - 1 );
- 		$StdDev = sqrt( $StdDev );
- 	    }
- #-------------------------------- Compute Degree of Difficulty
- 	    my $DoDiff = 0;
- 	    if( $TotalTries > 0 ) {
- 		$DoDiff = 1 - ( ( $YES + $Override ) / $TotalTries );
- #	    $DoDiff =  ($TotalTries)/($YES + $Override+ 0.1);
- 	    }
- 	    $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___difficulty'}=$DoDiff;
- #-------------------------------- Compute the Skewness
- 	    my $Skewness = 0;
- 	    my $Sum = 0;
- 	    if ( $StdNo > 0 && $StdDev > 0 ) {
- 		for ( my $n = 0; $n < $StdNo; $n++ ) {
- 		    my $Dif = $StdLst[ $n ]-$Average;
- 		    $Skewness += $Dif*$Dif*$Dif;
- 		}
- 		$Skewness /= $StdNo;
- 		$Skewness /= $StdDev*$StdDev*$StdDev;
- 	    }
- #--------------------- Compute the Discrimination Factors
- 	    my ($Up1,$Up2)=split(/\:/,$DisUp{$lpr[$i]});
- 	    my ($Lw1,$Lw2)=split(/\:/,$DisLow{$lpr[$i]});
- 	    my $Dis1 = $Up1 - $Lw1;
- 	    my $Dis2 = $Up2 - $Lw2;
- 	    my $_D1 = sprintf("%.2f", $Dis1);
- 	    my $_D2 = sprintf("%.2f", $Dis2);
- #-----------------  Some restition in presenting the float numbers
- 	    my $Avg = sprintf( "%.2f", $Average );
- 	    my $Wrng = sprintf( "%.1f", $Wrong );
- 	    my $SD = sprintf( "%.1f", $StdDev );
- 	    my $DoD = sprintf( "%.2f", $DoDiff );
- 	    my $Sk = sprintf( "%.1f", $Skewness );
- 	    my $join = $lpr[$i].'&'.$Temp.'&'.$StdNo.'&'.
-                        $TotalTries.'&'.$MxTries.'&'.$Avg.'&'.
-                        $YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'.
- 		       $SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'.
-                        $Prob;
- 	    $CachData{($p_count-1)}=$join;
- 	    $urlres=~/^(\w+)\/(\w+)/;
- 	    if ($StdNo) {
- 		&Apache::lonnet::put('resevaldata',\%storestats,$1,$2);
- 	    }
- #-------------------------------- Row of statistical table
- 	    if ( $DiscFlag == 0 ) {
- 		&TableRow($join,$i,($p_count-1));
- 	    }
- 	}
- 	&CloseTable();
-     }
-     &Close_PrgWin();
- }
- sub Cache_Statistics {
+ ##############################################
-     my @list = ();
+ ##############################################
-     my $Useful;
+ sub StudentDataSelect {
-     my $UnUseful;
+     my ($elementname,$status,$numvisible)=@_;
-     my %myHeader = reverse( %Header );
+     if ($numvisible < 1) {
-     $Pos = $myHeader{$ENV{'form.sort'}};
+         return;
-     if ($Pos > 0) {$Pos++;}
+     }
-     $p_count = 0;
+     #
-     foreach my $key( keys %CachData) {
+     # Build the form element
- 	my @Temp=split(/\&/,$CachData{$key});
+     my $Str = "\n";
- 	if ( $Pos == 0 ) {
+     $Str .= '<select name="'.$elementname.'" ';
- 	    ($UnUseful,$Useful)=split(/\>/,$Temp[$Pos]);
+     if ($status ne 'single') {
- 	}
+         $Str .= 'multiple="true" ';
- 	else {
+     }
- 	    $Useful = $Temp[$Pos];
+     $Str .= 'size="'.$numvisible.'" >'."\n";
- 	}
+     #
- 	$list[$p_count]=$Useful.'@'.$CachData{$key};
+     # Deal with 'all'
-         $p_count++;
+     $Str .= '    <option value="all" ';
-     }
+     foreach (@SelectedStudentData) {
+         if ($_ eq 'all') {
-     @list = sort MySort (@list);
+             $Str .= 'selected ';
+             last;
-     my $nIdx=0;
+         }
+     }
-     if ( $Pos == 0 ) {
+     $Str .= ">all</option>\n";
- 	foreach (sort keys %mapsort) {
+     #
- 	    my ($Hid,$pr)=split(/\:/,$mapsort{$_});
+     # Loop through the student data fields
- 	    &CreateTable(1,$Hid);
+     foreach my $item (@StudentDataOrder) {
- 	    my @lpr=split(/\&/,$pr);
+         $Str .= '    <option value="'.$item.'" ';
- 	    for (my $i=1; $i<=$#lpr; $i++) {
+         foreach (@SelectedStudentData) {
- 		my($Pre, $Post) = split(/\@/,$list[$nIdx]);
+             if ($item eq $_ ) {
- 		#$r->print('<br>'.$Pre.'---'.$Post);
+                 $Str .= 'selected ';
- 		&TableRow($Post,$i,$nIdx);
+                 last;
- 		$nIdx++;
+             }
- 	    }
+         }
- 	    &CloseTable();
+         $Str .= '>'.$item."</option>\n";
- 	}
-     }
-     else {
- 	&CreateTable(0);
- 	for ( my $nIdx = 0; $nIdx < $p_count; $nIdx++ ) {
- 	    my($Pre, $Post) = split(/\@/,$list[$nIdx]);
- 	    &TableRow($Post,$nIdx,$nIdx);
- 	}
- 	&CloseTable();
      }
+     $Str .= "</select>\n";
+     return $Str;
  }
- sub TableRow {
+ ##############################################
-     my ($Str,$Idx,$RealIdx)=@_;
+ ##############################################
-     my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override,
-        $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);
-     my $Ptr =  "\n".'<tr>'.
-                "\n".'<td>'.($RealIdx+1).'</td>'.
-           #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.
-                "\n".'<td>'.$Temp.'</td>'.
-                "\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'.
-                "\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'.
-                "\n".'<td bgcolor="#EEFFCC">'.$MxTries.'</td>'.
-                "\n".'<td bgcolor="#DDFFFF">'.$Avg.'</td>'.
-                "\n".'<td bgcolor="#DDFFFF"> '.$YES.'</td>'.
-                "\n".'<td bgcolor="#DDFFFF"> '.$Override.'</td>'.
-                "\n".'<td bgcolor="#FFDDDD"> '.$Wrng.'</td>'.
-                "\n".'<td bgcolor="#FFDDDD">'.$DoD.'</td>'.
-                "\n".'<td bgcolor="#DDFFDD"> '.$SD.'</td>'.
-                "\n".'<td bgcolor="#DDFFDD"> '.$Sk.'</td>'.
-                "\n".'<td bgcolor="#FFDDFF"> '.$_D1.'</td>'.
- 	       "\n".'<td bgcolor="#FFDDFF"> '.$_D2.'</td>';
-     $r->print("\n".$Ptr.'</tr>' );
-     $GraphDat{$RealIdx}=$DoD.':'.$Wrng;
- }
- # ------------------------------------------- Prepare data for Graphical chart
+ =pod
- sub GetGraphData {
+ =item &MapSelect($elementname,$status,$numvisible,$restriction)
-     my $Tag = shift;
-     my $Col;
-     my $data='';
-     my $count = 0;
-     my $Max = 0;
-     my $cid=$ENV{'request.course.id'};
-     my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
-                   "_$ENV{'user.domain'}_$cid\_graph.db";
-     foreach (keys %GraphDat) {delete $GraphDat{$_};}
-     if (-e "$GraphDB") {
- 	if (tie(%GraphDat,'GDBM_File',"$GraphDB",&GDBM_READER,0640)) {
- 	    if ( $Tag eq 'DoDiff Graph' ) {
- 		$Tag = 'Degree-of-Difficulty';
- 		$Col = 0;
- 	    }
- 	    else {
- 		$Tag = 'Wrong-Percentage';
- 		$Col = 1;
- 	    }
- 	    foreach (sort NumericSort keys %GraphDat) {
- 		my @Temp=split(/\:/,$GraphDat{$_});
-                 my $inf = $Temp[$Col];
- 		if ( $Max < $inf ) {$Max = $inf;}
- 		$data .= $inf.',';
- 		$count++;
- 	    }
- 	    if ( $Max > 1 ) {
- 		$Max += (10 - $Max % 10);
- 		$Max = int($Max);
- 	    }
- 	    else { $Max = 1; }
-             untie(%GraphDat);
- 	    my $Course = $ENV{'course.'.$cid.'.description'};
- 	    $Course =~ s/\ /"_"/eg;
- 	    $GData=$Course.'&'.$Tag.'&'.$Max.'&'.$count.'&'.$data;
- 	}
- 	else {
- 	    $r->print("Unable to tie hash to db file");
- 	}
-     }
- }
+ Returns html for a selection box allowing the user to choose one (or more)
+ of the sequences in the course.  The values of the sequences are the symbs.
+ If the top sequence is selected, the value 'top' will result.
- sub initial {
+ =over 4
- # --------------------------------- Initialize the global varaibles
-   undef @students;
-   undef @cols;
-   undef %maps;
-   undef %section;
-   undef %StuBox;
-   undef @list;
-   undef %CachData;
-   undef %GraphDat;
-   undef %DiscFac;
-   undef %OpResp;
-   undef %ConceptData;
-   undef $CurMap;
-   undef $CurSec;
-   undef $CurStu;
-   undef $p_count;
-   undef $Pos;
-   undef $GData;
-   $DiscFlag=0;
-   $P_Order=100000;
-   $HWN=$P_Order;
- }
+ =item $elementname The name of the HTML form element
- sub ClassList {
+ =item $status 'multiple' or 'single' selection box
-     &GetStatus();
+ =item $numvisible The number of options to be visible
-     $cid=$ENV{'request.course.id'};
+ =item $restriction Code reference to subroutine which returns true or
-     my $chome=$ENV{'course.'.$cid.'.home'};
+ false.  The code must expect a reference to a sequence data structure.
-     my ($cdom,$cnum)=split(/\_/,$cid);
- # ----------------------- Get first and last resource, see if there is anything
-     $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};
-     $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};
-     if (($firstres) && ($lastres)) {
- # ----------------------------------------------------------------- Render page
- 	my $classlst=&Apache::lonnet::reply
-                  ('dump:'.$cdom.':'.$cnum.':classlist',$chome);
- 	my $StudNo = 0;
- 	my $now=time;
- 	unless ($classlst=~/^error\:/) {
- 	    foreach (sort split(/\&/,$classlst)) {
- 		my ($name,$value)=split(/\=/,$_);
- 		my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value));
- 		$name=&Apache::lonnet::unescape($name);
- 		my ($sname,$sdom)=split(/\:/,$name);
- 		my $active=1;
- 		my $Status=$ENV{'form.status'};
- 		$Status = ($Status) ? $Status : 'Active';
- 		if ( ( ($end) && $now > $end ) &&
-                      ( ($Status eq 'Active') ) ) { $active=0; }
- 		if ( ($Status eq 'Expired') &&
-                      ($end == 0 || $now < $end) ) { $active=0; }
- #//new
- #		$Status = 'Any';
- #end new
- 		if ($active) {
- 		    my $thisindex=$#students+1;
- 		    $name=&Apache::lonnet::unescape($name);
- 		    $students[$thisindex]=$name;
- 		    my ($sname,$sdom)=split(/\:/,$name);
- 		    #my %reply=&Apache::lonnet::idrget($sdom,$sname);
- 		    #my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
- 		    #         ':environment:lastname&generation&firstname&middlename',
- 		    #         &Apache::lonnet::homeserver($sname,$sdom));
- 		    my $ssec=&usection($sdom,$sname,$cid,$Status);
- #		    if ($ssec==-1 ) {next;}
- 		    if ($ssec==-1 || $ssec eq 'adm' ) {next;}
- 		    $ssec=($ssec) ? $ssec : '(none)';
- 		    #$ssec=(int($ssec)) ? int($ssec) : $ssec;
- 		    $section{$ssec}=$ssec;
- 		    if ($CurSec eq 'All Sections' || $ssec eq $CurSec) {
- 			$students[$StudNo]=$name;
- 			$StuBox{$sname}=$sdom;
- 		    }
- 		    $StudNo++;
- 	        }
- 	    }
- 	}
- 	else {
- 	    $r->print('<h1>Could not access course data</h1>');
- 	}
-         $r->print("Total number of students : ".($#students+1));
-         $r->rflush();
- # --------------- Find all assessments and put them into some linear-like order
- 	&tracetable($firstres,'&'.$lastres.'&');
- #    my $c=0;
- #    foreach (sort keys %mapsort) {
- #	$r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_});
- #	$c++;
- #    }
- #	my $c=1;
- #	foreach (sort keys %OpResp) {
- #	    $r->print('<br>'.$c.')'.$_.' ... '.$OpResp{$_}.' ... '.$hash{'src_'.$OpResp{$_}});
- #	    $c++;
- #	}
-     }
- # ------------------------------------------------------------- End render page
-     else {
- 	$r->print('<h3>Undefined course sequence</h3>');
-     }
- }
+ =back
- sub Title {
+ =cut
-     $r->print('<html><head><title>LON-CAPA Statistics</title></head>');
-     $r->print('<body bgcolor="#FFFFFF">'.
-               '<script>window.focus(); window.width=500;window.height=500;</script>'.
-               '<img align=right src=/adm/lonIcons/lonlogos.gif>');
- # ---------------------------------------------------------------- Course title
-     $r->print('<h1> Course : "'.
-               $ENV{'course.'.$ENV{'request.course.id'}.
-               '.description'}.'"</h1><h2>'.localtime().'</h2>');
- # ------------------------------- This is going to take a while, produce output
-     $r->rflush();
- }
- sub CreateForm {
+ ##############################################
-     $r->print("\n".'<form name=stat method=post action="/adm/statistics" >');
+ ##############################################
-     my $content = $ENV{'form.sort'};
+ sub MapSelect {
-     if ($content eq '' || $content eq 'Return to Menu') {
+     my ($elementname,$status,$numvisible,$restriction)=@_;
- 	my $Ptr = '<h3>';
+     if ($numvisible < 1) {
- 	$Ptr .= '<input type=submit name=sort value="Problem Stats"/>';
+         return;
- 	$Ptr .= '<br><br>';
+     }
- 	$Ptr .= '<input type=submit name=sort value="Problem Analysis"/>';
+     #
- 	$Ptr .= '<br><br>';
+     # Set up array of selected items
- 	$Ptr .= '<input type=submit name=sort value="Student Assessment"/>';
+     &SetSelectedMaps($elementname);
- 	$Ptr .= '</h3>';
+     #
- 	$r->print( $Ptr );
+     # Set up the restriction call
-     }
+     if (! defined($restriction)) {
-     else {
+         $restriction = sub { 1; };
- 	if ( $content eq 'Student Assessment' ||
+     }
- 	     $content eq 'Create Student Report' ) {
+     #
- 	    &MapSecOptions();
+     # Build the form element
- 	    &StudentOptions();
+     my $Str = "\n";
- 	    &StudentReport($CurStu,$StuBox{"$CurStu"});
+     $Str .= '<select name="'.$elementname.'" ';
- 	}
+     if ($status ne 'single') {
- 	elsif ( $content eq 'Problem Analysis' ) {
+         $Str .= 'multiple="true" ';
- 	    &AnalyzeProblem();
+     }
- 	}
+     $Str .= 'size="'.$numvisible.'" >'."\n";
- 	else {
+     #
- 	    &MapSecOptions();
+     # Deal with 'all'
- 	    &PreStatTable();
+     foreach (@SelectedMaps) {
- 	}
+         if ($_ eq 'all') {
+             @SelectedMaps = ('all');
+             last;
+         }
+     }
+     #
+     # Put in option for 'all'
+     $Str .= '    <option value="all" ';
+     foreach (@SelectedMaps) {
+         if ($_ eq 'all') {
+             $Str .= 'selected ';
+             last;
+         }
+     }
+     $Str .= ">all</option>\n";
+     #
+     # Loop through the sequences
+     foreach my $seq (@Sequences) {
+         next if (! $restriction->($seq));
+         $Str .= '    <option value="'.$seq->{'symb'}.'" ';
+         foreach (@SelectedMaps) {
+             if ($seq->{'symb'} eq $_) {
+                 $Str .= 'selected ';
+                 last;
+             }
+         }
+         $Str .= '>'.$seq->{'title'}."</option>\n";
      }
+     $Str .= "</select>\n";
+     return $Str;
  }
+ ##############################################
+ ##############################################
- sub Menu {
+ =pod
-     &initial();
-     &Title();
-     &ClassList();
-     my $InpStr = $ENV{'form.sort'};
-     if ($InpStr=~/^Analyze\_/) {
- 	&ShowOpGraph($InpStr,$ENV{'form.interval'});
-     }
-     #elsif ($InpStr=~/^View\_/) {
- #	&ShowStG();
-  #   }
-     elsif ( $InpStr eq 'DoDiff Graph' || $InpStr eq '%Wrong Graph' ) {
- 	&GetGraphData($InpStr);
-     	$r->print('<IMG src="/cgi-bin/graph.gif?'.$GData.'" />');
-     }
-     else {
- 	&CreateForm();
- 	$r->print("\n".'</form>');
-     }
-     $r->print("\n".'</body>'.
- 	      "\n".'</html>');
-     $r->rflush();
- }
- sub StudentOptions {
+ =item &SectionSelect($elementname,$status,$numvisible)
-     my $OpSel5='';
-     $CurStu = $ENV{'form.student'};
-     if ( $CurStu eq '' ) {
-         $CurStu = 'All Students';
-         $OpSel5 = 'selected';
-     }
-     my $Ptr ='';
- # ----------------------------------- Loading the Students Combobox
-     $Ptr .= '<br><b>Select Student</b>'."\n".
-        	    '<select name="student">'."\n".
- 	    '<option '.$OpSel5.'>All Students</option>';
-     foreach my $key ( sort keys %StuBox ) {
- 	$Ptr .= '<option';
- 	if ($CurStu eq $key) {$Ptr .= ' selected';}
-         $Ptr .= '>'.$key."</option>\n";
-     }
-     $Ptr .= '</select>';
-     $Ptr .= '<br><input type="submit" name="sort" value="Create Student Report" />';
-     $r->print( $Ptr );
-     $r->rflush();
- }
+ Returns html for a selection box allowing the user to choose one (or more)
+ of the sections in the course.
- sub GetStatus {
+ =over 4
-     $OpSel1='';
-     $OpSel2='';
-     $OpSel3='';
-     $OpSel4='';
-     if ( $ENV{'form.order'} eq 'Descending' ) { $OpSel2='selected'; }
-     else { $OpSel1 = 'selected'; }
-     my %myHeader = reverse( %Header );
-     $Pos = $myHeader{$ENV{'form.sort'}};
-     if ($Pos == 0) {
- 	$OpSel1 = 'selected';
- 	$ENV{'form.order'}='Ascendig';
-     }
-     $CurMap = $ENV{'form.maps'};
-     if ( $CurMap eq '' ) {
- 	$CurMap = 'All Maps';
- 	$OpSel3 = 'selected';
-     }
-     $CurSec = $ENV{'form.section'};
-     if ( $CurSec eq '' ) {
- 	$CurSec = 'All Sections';
-         $OpSel4 = 'selected';
-     }
- }
+ =item $elementname The name of the HTML form element
- sub MapSecOptions {
+ =item $status 'multiple' or 'single' selection box
- # ----------------------------------- Loading the Maps Combobox
-     my $Ptr = '<br>';
+ =item $numvisible The number of options to be visible
-     $Ptr .= '<br><input type="submit" name="sort" value="Return to Menu" />';
-     $Ptr .= '<br><b> Select &nbsp; Map &nbsp; &nbsp; </b>'."\n".
+ =item $selected Array ref to the names of the already selected sections.
-        	    '<select name="maps">'."\n".
+ If undef, $ENV{'form.'.$elementname} is used.
- 	    '<option '.$OpSel3.'>All Maps</option>';
+ If $ENV{'form.'.$elementname} is also empty, none will be selected.
-     foreach my $key ( sort keys %maps ) {
- 	$Ptr .= '<option';
+ =item $restriction Code reference to subroutine which returns true or
-         if ($CurMap eq $key) {$Ptr .= ' selected';}
+ false.  The code must expect a reference to a sequence data structure.
- 	$Ptr .= '>'.$key."</option>\n";
-     }
+ =back
-     $Ptr .= '</select>';
-     $Ptr .= '&nbsp;&nbsp;&nbsp;';
+ =cut
- # ----------------------------------- Loading the Sections Combobox
+ ##############################################
-     $Ptr .= '<br><b>Select Section</b>'."\n".
+ ##############################################
-        	    '<select name="section">'."\n".
+ sub SectionSelect {
- 	    '<option '.$OpSel4.'>All Sections</option>';
+     my ($elementname,$status,$numvisible)=@_;
-     foreach my $key ( sort keys %section ) {
+     if ($numvisible < 1) {
- 	$Ptr .= '<option';
+         return;
-         if ($CurSec eq $key) {$Ptr .= ' selected';}
- 	$Ptr .= '>'.$key."</option>"."\n";
      }
-     $Ptr .= '</select>'."\n";
+     #
+     # Build the form element
+     my $Str = "\n";
+     $Str .= '<select name="'.$elementname.'" ';
+     if ($status ne 'single') {
+         $Str .= 'multiple="true" ';
+     }
+     $Str .= 'size="'.$numvisible.'" >'."\n";
+     #
+     # Loop through the sequences
+     foreach my $s (@Sections) {
+         $Str .= '    <option value="'.$s.'" ';
+         foreach (@SelectedSections) {
+             if ($s eq $_) {
+                 $Str .= 'selected ';
+                 last;
+             }
+         }
+         $Str .= '>'.$s."</option>\n";
+     }
+     $Str .= "</select>\n";
+     return $Str;
+ }
-     $r->print( $Ptr );
+ ##################################################
+ ##################################################
+ sub DisplayClasslist {
+     my ($r)=@_;
+     #
+     my @Fields = ('fullname','username','domain','id','section');
+     #
+     my $Str='';
+     $Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";
+     $Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";
+     foreach my $field (@Fields) {
+         $Str .= '<th><a href="/adm/statistics?reportSelected=classlist&sort='.$field.'">'.$field.
+             '</a></th>';
+     }
+     $Str .= '</tr>'."\n";
+     #
+     my $alternate = 0;
+     foreach my $student (@Students) { # @Students is a package variable
+         my $sname = $student->{'username'}.':'.$student->{'domain'};
+         if($alternate) {
+             $Str .= '<tr bgcolor="#ffffe6">';
+         } else {
+             $Str .= '<tr bgcolor="#ffffc6">';
+         }
+         $alternate = ($alternate + 1) % 2;
+         #
+         foreach my $field (@Fields) {
+             $Str .= '<td>';
+             if ($field eq 'fullname') {
+                 $Str .= '<a href="/adm/statistics?reportSelected=';
+                 $Str .= &Apache::lonnet::escape('student_assessment');
+                 $Str .= '&StudentAssessmentStudent=';
+                 $Str .= &Apache::lonnet::escape($sname).'">';
+                 $Str .= $student->{$field}.'&nbsp';
+                 $Str .= '</a>';
+             } else {
+                 $Str .= $student->{$field};
+             }
+             $Str .= '</td>';
+         }
+         $Str .= "</tr>\n";
+     }
+     $Str .= '</table></td></tr></table>'."\n";
+     #
+     $r->print($Str);
      $r->rflush();
+     #
+     return;
  }
+ ##############################################
+ ##############################################
+ sub CreateMainMenu {
+     my ($status,$reports,$current)=@_;
+     #
+     my $Str = '';
+     #
+     $Str .= '<table border="0"><tbody><tr>'."\n";
+     $Str .= '<td></td>'."\n";
+     $Str .= '<td></td>'."\n";
+     $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";
+     $Str .= '<tr>'."\n";
+     #
+     $Str .= '<td align="center">'.
+         '<input type="submit" name="Refresh" value="Update Display" />'.
+             "</td>\n";
+     $Str .= '<td align="center">'.
+         '<input type="submit" name="ClearCache" value="Clear Caches" />'.
+             "</td>\n";
+     #
+     $Str .= '<td align="center">';
+     $Str .= '<select name="reportSelected" >'."\n";
+     foreach (sort(keys(%$reports))) {
+         $Str .= '<option value="'.$_.'"';
+         if($current eq $_) {
+             $Str .= ' selected';
+         }
+         $Str .= '>'.$reports->{$_}.'</option>'."\n";
+     }
+     $Str .= '</select></td>'."\n";
+     #
+     $Str .= '</tr></tbody></table>'."\n";
+     $Str .= '<hr>'."\n";
+     #
+     return $Str;
+ }
- # ================================================================ Main Handler
+ ##############################################
+ ##############################################
  sub handler {
-     $r=shift;
+     my $r=shift;
+     my $c = $r->connection();
-     if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
+     #
- # ------------------------------------------- Set document type for header only
+     # Check for overloading
- 	if ($r->header_only) {
+     my $loaderror=&Apache::lonnet::overloaderror($r);
- 	    if ($ENV{'browser.mathml'}) {
+     if ($loaderror) { return $loaderror; }
- 		$r->content_type('text/xml');
+     $loaderror=
- 	    }
+        &Apache::lonnet::overloaderror($r,
- 	    else {
+          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
- 		$r->content_type('text/html');
+     if ($loaderror) { return $loaderror; }
- 	    }
+     #
- 	    $r->send_http_header;
+     # Check for access
- 	    return OK;
+     if (! &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
- 	}
- 	my $requrl=$r->uri;
- # ----------------------------------------------------------------- Tie db file
- 	undef %hash;
- 	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
- 		    $r->content_type('text/html');
- 		    $r->send_http_header;
- 		    &Menu();
- 		}
- 		else {
- 		    $r->content_type('text/html');
- 		    $r->send_http_header;
- 		    $r->print('<html><body>Coursemap undefined.</body></html>');
- 		}
- # ------------------------------------------------------------------ Untie hash
- 		unless (untie(%hash)) {
- 		    &Apache::lonnet::logthis("<font color=blue>WARNING: ".
-                             "Could not untie coursemap $fn (browse).</font>");
- 		}
- # -------------------------------------------------------------------- All done
- 		return OK;
- # ----------------------------------------------- Errors, hash could no be tied
- 	    }
- 	}
- 	else {
- 	    $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
- 	    return HTTP_NOT_ACCEPTABLE;
- 	}
-     }
-     else {
          $ENV{'user.error.msg'}=
-         $r->uri.":vgr:0:0:Cannot view grades for complete course";
+             $r->uri.":vgr:0:0:Cannot view grades for complete course";
+         if (! &Apache::lonnet::allowed('vgr',
-         return HTTP_NOT_ACCEPTABLE;
+                       $ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {
+             $ENV{'user.error.msg'}=
+                 $r->uri.":vgr:0:0:Cannot view grades with given role";
+             return HTTP_NOT_ACCEPTABLE;
+         }
      }
+     #
+     # 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');
+         }
+         &Apache::loncommon::no_cache($r);
+         $r->send_http_header;
+         return OK;
+     }
+     #
+     # Send the header
+     $r->content_type('text/html');
+     $r->send_http_header;
+     #
+     # Extract form elements from query string
+     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+                                             ['sort','reportSelected',
+                                              'StudentAssessmentStudent']);
+     if (! exists($ENV{'form.reportSelected'})) {
+         $ENV{'form.reportSelected'} = 'student_assessment';
+     }
+     #
+     # Give the LON-CAPA page header
+     $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));
+     $r->rflush();
+     #
+     if (! &Apache::lonmysql::verify_sql_connection()) {
+         my $serveradmin = $r->dir_config('lonAdmEMail');
+         $r->print(<<END);
+ <h2><font color="Red">Unable to connect to database!</font></h2>
+ <p>
+ Please notify the server administrator <b>$serveradmin</b>.
+ </p><p>
+ Course Statistics and Charts cannot be retrieved until the database is
+ restarted.  Your data is intact but cannot be displayed at this time.
+ </p>
+ </body>
+ </html>
+ END
+         return;
+     }
+     #
+     # Clean out the caches
+     if (exists($ENV{'form.ClearCache'})) {
+         &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
+     }
+     #
+     # Set up the statistics and chart environment
+     &PrepareClasslist($r);
+     &PrepareCourseData($r);
+     #
+     # Begin form output
+     $r->print('<form name="Statistics" ');
+     $r->print('method="post" action="/adm/statistics">');
+     #
+     # Print main menu
+     my %reports = ('classlist'          => 'Class list',
+                    'problem_statistics' => 'Problem Statistics',
+                    'student_assessment' => 'Problem Status Chart',
+                    'percentage'         => 'Correct-problems Plot',
+                    'option_response'    => 'Option Response Analysis',
+ #                   'activitylog'        => 'Activity Log',
+                    );
+     $r->print(&CreateMainMenu($ENV{'form.status'},
+                               \%reports,$ENV{'form.reportSelected'}));
+     $r->rflush();
+     #
+     my $GoToPage = $ENV{'form.reportSelected'};
+     if($GoToPage eq 'activitylog') {
+ #        &Apache::lonproblemstatistics::Activity();
+     } elsif($GoToPage eq 'problem_statistics') {
+         &Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
+     } elsif($GoToPage eq 'option_response') {
+ #        &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
+     } elsif($GoToPage eq 'student_assessment') {
+         &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
+     } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {
+ #        &Apache::lonproblemstatistics::BuildGraphicChart($r,$c);
+     } elsif($GoToPage eq 'classlist') {
+         &DisplayClasslist($r);
+     } elsif($GoToPage eq 'Correct-problems Plot') {
+ #	&Apache::lonpercentage::BuildPercentageGraph($r,$c);
+     }
+     #
+     $r->print("</form>\n");
+     $r->print("</body>\n</html>\n");
+     $r->rflush();
+     #
+     return OK;
  }
 ;
+ #######################################################
+ #######################################################
+ =pod
+ =back
+ =cut
+ #######################################################
+ #######################################################
  __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.69