[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.26 and 1.27

version 1.26, 2002/05/31 16:02:11 version 1.27, 2002/07/17 12:53:00
Line 42  use Apache::Constants qw(:common :http); Line 42  use Apache::Constants qw(:common :http);
 use Apache::lonnet();  use Apache::lonnet();
 use Apache::lonhomework;  use Apache::lonhomework;
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::loncoursedata;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
   
Line 49  use GDBM_File; Line 50  use GDBM_File;
 my %hash;  my %hash;
 my %CachData;  my %CachData;
 my %GraphDat;  my %GraphDat;
 my %OpResp;  
 my %maps;  
 my %mapsort;  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 $Pos;
 my $r;  my $r;
 my $OpSel1;  
 my $OpSel2;  
 my $OpSel3;  
 my $OpSel4;  
 my $GData;  my $GData;
 my $cid;  
 my $firstres;  
 my $lastres;  
 my $DiscFlag;  
 my $HWN;  
 my $P_Order;  
 my %color;  my %color;
 my %foil_to_concept;  my %foil_to_concept;
 my @Concepts;  my @Concepts;
 my %ConceptData;  my %ConceptData;
 my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",  
               4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",  
               9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");  
 my %Answer = ();  my %Answer = ();
   
   
 sub Activity {  sub Activity {
     my $file="/home/minaeibi/activity.log";      my $file="/home/minaeibi/activity.log";
     my $userid='adamsde1';      my $userid='adamsde1';
Line 133  sub Activity { Line 105  sub Activity {
 #    }  #    }
 }  }
   
   #---- Analyze Web Page ---------------------------------------------------
   
 sub InitAnalysis {  sub InitAnalysis {
     my ($rid, $student)=@_;      my ($uri,$part,$problem,$student,$courseID)=@_;
     my ($uname,$udom)=split(/\:/,$student);      my ($username,$userdomain)=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);      # Render the student's view of the problem.  $Answ is the problem 
       # Stringafied
       my $Answ=&Apache::lonnet::ssi($uri,('grade_target'   => 'analyze',
                                           'grade_username' => $username,
                                           'grade_domain'   => $userdomain,
                                           'grade_courseid' => $courseID,
                                           'grade_symb'     => $problem));
   #    my $Answ=&Apache::lonnet::ssi($uri,('grade_target' => 'analyze'));
   
   #    (undef,$Answ)=split(/_HASH_REF__/,$Answ,2);
     %Answer=();      %Answer=();
     %Answer=&Apache::lonnet::str2hash($Answ);      %Answer=&Apache::lonnet::str2hash($Answ);
   
   #    foreach (sort(keys(%Answer))) {
   #        $r->print($_.'  '.$Answer{$_}.'<br>');
   #    }
   
     my $parts='';      my $parts='';
     foreach my $elm (@{$Answer{"parts"}}) {      foreach my $elm (@{$Answer{"parts"}}) {
  $parts.="$elm,";   $parts.="$elm,";
Line 171  sub InitAnalysis { Line 146  sub InitAnalysis {
     #$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"};      #$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"};
  }   }
     }      }
     return $symb;  
 }  
   
       return;
   }
   
 sub Interval {  sub Interval {
     my ($rid,$part,$symb)=@_;      my ($part,$symb)=@_;
     my $Int=$ConceptData{"Interval"};      my $interval=$ConceptData{"Interval"};
     my $due = &Apache::lonnet::EXT('resource.$part.duedate',$symb)+1;      my $due  = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb)+1;
     my $opn = &Apache::lonnet::EXT('resource.$part.opendate',$symb);      my $open = &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
     my $add=int(($due-$opn)/$Int);      my $add=int(($due-$open)/$interval);
     $ConceptData{"Int.0"}=$opn;      $ConceptData{'Interval.0'}=$open;
     for (my $i=1;$i<$Int;$i++) {      for (my $i=1;$i<$interval;$i++) {
  $ConceptData{"Int.$i"}=$opn+$i*$add;   $ConceptData{'Interval.'.$i}=$open+$i*$add;
     }      }
     $ConceptData{"Int.$Int"}=$due;           $ConceptData{'Interval.'.$interval}=$due;     
     for (my $i=0;$i<$Int;$i++) {      for (my $i=0;$i<$interval;$i++) {
  for (my $n=0; $n<=$#Concepts; $n++ ) {   for (my $n=0; $n<=$#Concepts; $n++ ) {
     my $tmp=$Concepts[$n];      my $tmp=$Concepts[$n];
     $ConceptData{"$tmp.$i.true"}=0;      $ConceptData{$tmp.'.'.$i.'.true'}=0;
     $ConceptData{"$tmp.$i.false"}=0;      $ConceptData{$tmp.'.'.$i.'.false'}=0;
  }   }
     }      }
 }  }
   
   
 sub ShowOpGraph {  sub ShowOpGraph {
     my ($InpStr, $Int_No)=@_;      my ($cache, $students, $courseID)=@_;
     my ($rid,$part)=split(/\:/,substr($InpStr,8));      my $uri      = $cache->{'AnalyzeURI'};
     $ConceptData{"Interval"}=$Int_No;      my $part     = $cache->{'AnalyzePart'};
       my $problem  = $cache->{'AnalyzeProblem'};
       my $title    = $cache->{'AnalyzeProblem'};
       my $interval = $cache->{'Interval'};
       $ConceptData{"Interval"} = $interval;
   
     #Initialize the option response true answers      #Initialize the option response true answers
     my $symb=&InitAnalysis($rid,$students[0]);      &InitAnalysis($uri, $part, $problem, $students->[0],$courseID);
   
     #compute the intervals      #compute the intervals
     &Interval($rid,$part,$symb);      &Interval($part,$problem);
     my $URI = $hash{'src_'.$rid};  
     my $Src = $hash{'title_'.$rid};      $title =~ s/\ /"_"/eg;
     $Src =~ s/\ /"_"/eg;      $r->print('<br><b>'.$uri.'</b>');
     $r->print('<br><b>'.$URI.'</b>');  
     $r->rflush();      $r->rflush();
           
     #Java script Progress window      #Java script Progress window
     &Create_PrgWin();      &Create_PrgWin();
     &Update_PrgWin("Starting to analyze problem");      &Update_PrgWin("Starting to analyze problem",0,0,'');
     for (my $index=0;$index<=$#students;$index++) {      for(my $index=0; $index<(scalar @$students); $index++) {
  &Update_PrgWin($index);   &Update_PrgWin(scalar @$students, $index+1, $students->[$index]);
  &OpStatus($rid,$students[$index]);   &OpStatus($problem, $students->[$index], $courseID);
     }      }
     &Close_PrgWin();      &Close_PrgWin();
   
     $r->print('<br>');      $r->print('<br>');
     for (my $k=0; $k<$Int_No; $k++ ) {      for(my $k=0; $k<$interval; $k++ ) {
  &DrawGraph($k,$Src);   &DrawGraph($k,$title);
     }      }
     for (my $k=0; $k<$Int_No; $k++ ) {      for(my $k=0; $k<$interval; $k++ ) {
  &DrawTable($k);   &DrawTable($k);
     }      }
 #$Apache::lonxml::debug=1;  #$Apache::lonxml::debug=1;
 #&Apache::lonhomework::showhash(%ConceptData);  #&Apache::lonhomework::showhash(%ConceptData);
 #$Apache::lonxml::debug=0;  #$Apache::lonxml::debug=0;
     my $Answ=&Apache::lonnet::ssi($URI);      my $Answ=&Apache::lonnet::ssi($uri);
     $r->print("<br><b>Here you can see the Problem:</b><br>$Answ");      $r->print("<br><b>Here you can see the Problem:</b><br>$Answ");
 }  }
   
   
 sub DrawTable {  sub DrawTable {
     my $k=shift;      my $k=shift;
     my $Max=0;      my $Max=0;
Line 288  sub DrawTable { Line 266  sub DrawTable {
   
   
 sub DrawGraph {  sub DrawGraph {
     my ($k,$Src)=@_;      my ($currentInterval,$title)=@_;
     my $Max=0;      my $Max=0;
     my @data1;      my @data1;
     my @data2;      my @data2;
   
     # Adjust Data and find the Max       # Adjust Data and find the Max 
     for (my $n=0; $n<=$#Concepts; $n++ ) {      for(my $n=0; $n<=$#Concepts; $n++ ) {
  my $tmp=$Concepts[$n];   my $tmp=$Concepts[$n];
  $data1[$n]=$ConceptData{"$tmp.$k.true"};   $data1[$n]=$ConceptData{$tmp.'.'.$currentInterval.'.true'};
  $data2[$n]=$ConceptData{"$tmp.$k.false"};   $data2[$n]=$ConceptData{$tmp.'.'.$currentInterval.'.false'};
  my $Sum=$data1[$n]+$data2[$n];   my $Sum=$data1[$n]+$data2[$n];
  if ( $Max<$Sum ) {$Max=$Sum;}   if($Max < $Sum) { $Max = $Sum; }
     }      }
     for (my $n=0; $n<=$#Concepts; $n++ ) {      for(my $n=0; $n<=$#Concepts; $n++) {
  if ($data1[$n]+$data2[$n]<$Max) {   if($data1[$n]+$data2[$n]<$Max) {
     $data2[$n]+=$Max-($data1[$n]+$data2[$n]);      $data2[$n]+=$Max-($data1[$n]+$data2[$n]);
  }   }
     }      }
     my $P_No = $#data1+1;      my $P_No = scalar @data1;
   
     if ( $Max > 1 ) {       if($Max > 1) { 
  $Max += (10 - $Max % 10);   $Max += (10 - $Max % 10);
  $Max = int($Max);   $Max = int($Max);
     } else { $Max = 1; }      } else { 
           $Max = 1;
       }
   
     my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.($k+1) : $Src;      my $Titr=($ConceptData{'Interval'}>1) ? 
           $title.'_interval_'.($currentInterval+1) : $title;
 #    $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;  #    $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
     $GData="$Titr&Concepts&Answers&$Max&$P_No&".      $GData  = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';
            (join(',',@data1)).'&'.(join(',',@data2));      $GData .= (join(',',@data1)).'&'.(join(',',@data2));
   
     $r->print('<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>');      $r->print('<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>');
 }  }
   
   
 sub AnalyzeProblem {  
     # selecting the number of intervals  
     my $OpSel='';  
     my $CurInt = $ENV{'form.interval'};  
     if ($CurInt eq '') {$CurMap = '1';}  
     my $Ptr = '<br><b>Select number of intervals</b>'."\n".  
              '<select name="interval">'."\n";                               
     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 );  
   
     #the table of option response problems  
     $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> Resource </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=".$color{"green"}."> ".$Temp." </td>".  
                  "\n"."<td bgcolor=".$color{"yellow"}."> ".$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 {  sub Decide {
     #deciding the true or false answer belongs to each interval      #deciding the true or false answer belongs to each interval
     my ($type,$foil,$time)=@_;       my ($type,$foil,$time)=@_; 
Line 379  sub Decide { Line 315  sub Decide {
   
 #restore the student submissions and finding the result  #restore the student submissions and finding the result
 sub OpStatus {  sub OpStatus {
     my ($rid,$student)=@_;      my ($problem, $student, $courseID)=@_;
     my ($uname,$udom)=split(/\:/,$student);      my ($username,$userdomain)=split(/':'/,$student);
     my $code='U';      my $code='U';
     $rid=~/(\d+)\.(\d+)/;      my %reshash=&Apache::lonnet::restore($problem, $courseID, $userdomain, 
     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.                                           $username);
      &Apache::lonnet::declutter($hash{'src_'.$rid});  
     my %reshash=&Apache::lonnet::restore($symb,$cid,$udom,$uname);  
     my @True = ();      my @True = ();
     my @False = ();      my @False = ();
     my $flag=0;      my $flag=0;
Line 422  sub OpStatus { Line 356  sub OpStatus {
     }      }
 }  }
   
   #---- END Analyze Web Page ----------------------------------------------
   
   #---- Problem Statistics Web Page ---------------------------------------
   
 #------- Processing upperlist and lowerlist according to each problem  #------- Processing upperlist and lowerlist according to each problem
 sub ProcessDisc {  sub ProcessDiscriminant {
     my @List = @_;      my ($List) = @_;
     @List = sort (@List);      my @sortedList = sort (@$List);
     my $Count = $#List+1;      my $Count = scalar @sortedList;
     my $Prb;      my $Problem;
     my @Dis;      my @Dis;
     my $Slvd=0;      my $Slvd=0;
     my $tmp;      my $tmp;
     my $Sum1=0;      my $Sum1=0;
     my $Sum2=0;      my $Sum2=0;
     my $nIdx=0;      my $nIndex=0;
     my $nStud=0;      my $nStudent=0;
     my %Proc;      my %Proc=undef;
     undef %Proc;      while ($nIndex<$Count) {
     while ($nIdx<$Count) {   ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]);
  ($Prb,$tmp)=split(/\=/,$List[$nIdx]);  
  @Dis=split(/\+/,$tmp);   @Dis=split(/\+/,$tmp);
  my $Temp = $Prb;   my $Temp = $Problem;
  do {   do {
     $nIdx++;      $nIndex++;
     $nStud++;      $nStudent++;
     $Sum1 += $Dis[0];      $Sum1 += $Dis[0];
     $Sum2 += $Dis[1];      $Sum2 += $Dis[1];
     ($Prb,$tmp)=split(/\=/,$List[$nIdx]);      ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]);
     @Dis=split(/\+/,$tmp);      @Dis=split(/\+/,$tmp);
  } while ( $Prb eq $Temp && $nIdx < $Count );   } while ( $Problem eq $Temp && $nIndex < $Count );
 # $Proc{$Temp}=($Sum1/$nStud).':'.$nStud;  # $Proc{$Temp}=($Sum1/$nStudent).':'.$nStudent;
  $Proc{$Temp}=($Sum1/$nStud).':'.($Sum2/$nStud);   $Proc{$Temp}=($Sum1/$nStudent).':'.($Sum2/$nStudent);
 #       $r->print("$nIdx) $Temp --> ($nStud) $Proc{$Temp} <br>");  #       $r->print("$nIndex) $Temp --> ($nStudent) $Proc{$Temp} <br>");
  $Sum1=0;   $Sum1=0;
  $Sum2=0;   $Sum2=0;
  $nStud=0;   $nStudent=0;
     }      }
   
     return %Proc;      return %Proc;
 }  }
   
   
 #------- Creating Discimination factor     #------- Creating Discimination factor   
 sub Discriminant {  sub Discriminant {
     my $Count=0;      my ($discriminantFactor)=@_;
     foreach (keys(%DiscFac)){       my @discriminantKeys=keys(%$discriminantFactor);
  $Count++;      my $Count = scalar @discriminantKeys;
     }  
     $UpCnt = int(0.27*$Count);      my $UpCnt = int(0.27*$Count);
     my $low=0;      my $low=0;
     my $up=$Count-$UpCnt;      my $up=$Count-$UpCnt;
     my @UpList=();      my @UpList=();
     my @LowList=();      my @LowList=();
   
     $Count=0;      $Count=0;
     foreach my $key (sort(keys(%DiscFac))){       foreach my $key (sort(@discriminantKeys)) { 
  $Count++;       $Count++;    
         #$r->print("<br>$Count) $key = $DiscFac{$key}");   if($low < $UpCnt || $Count > $up) {
  if ($low < $UpCnt || $Count > $up) {              $low++;
     $low++;              my $str=$discriminantFactor->{$key};
     my $str=$DiscFac{$key};              foreach(split(/\:/,$str)){
     foreach(split(/\:/,$str)){                  if($_) {
  if ($_) {                      if($low<$UpCnt) { push(@LowList,$_); }
     if ($low<$UpCnt){push(@LowList,$_);}                      else            { push(@UpList,$_);  }
     else {push(@UpList,$_);}                  }
  }              }
     }          }
  }  
     }      }
     %DisUp=&ProcessDisc(@UpList);      my %DisUp =  &ProcessDiscriminant(\@UpList);
     %DisLow=&ProcessDisc(@LowList);      my %DisLow = &ProcessDiscriminant(\@LowList);
   
       return (\%DisUp, \%DisLow);
 }  }
   
      
 sub NumericSort {            sub NumericSort {          
     $a <=> $b;      $a <=> $b;
 }  }
   
 # ------ Create different Student Report   sub CreateProblemStatisticsTableHeading {
 sub StudentReport {      my ($displayFormat,$sequenceSource,$sequenceTitle,$headings)=@_;
     my ($sname,$sdom)=@_;      if($displayFormat eq 'Display CSV Format') {
     if ( $sname eq 'All Students' ) {          $r->print('<br>"'.$sequenceTitle.'","');
  $r->print( '<h3><font color=blue>WARNING:           $r->print($sequenceSource.'"');
                     Please select a student</font></h3>' );  
  return;   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=~/^(con_lost|error|no_such_host)/i) {  
         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.'___'.      $r->print('<br><a href="'.$sequenceSource.
                        &Apache::lonnet::declutter( $hash{'src_'.$ResId} );                '" target="_blank">'.$sequenceTitle.'</a>');
             $Code='U';  
             $Tries = 0;  
             $Wrongs = 0;  
      $LatestVersion = $result{"version:$Prob"};  
     if ( $LatestVersion ) {  
  for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {  
     my $vkeys = $result{"$Version:keys:$Prob"};  
     my @keys = split(/\:/,$vkeys);  
     
     foreach my $Key (@keys) {    
  if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {  
     my $Part = $1;  
     $Tries = $result{"$Version:$Prob:resource.$Part.tries"};  
     $TempHash{"$Part.Tries"} = ($Tries) ? $Tries : 0;   
     $TotalTries += $Tries;  
     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 .= "-";   
  }  
     }  
         }  
     }  
     $Str .= "\n".'</table>';  
     $r->print($Str);  
     $r->rflush();  
 }  
   
 sub CreateTable {      my $Result = "\n".'<table border=2><tr><th>P#</th>'."\n";
     my ($Hd, $Hid)=@_;      for(my $nIndex=0; $nIndex < (scalar (keys %$headings)); $nIndex++) { 
     if ($ENV{'form.showcsv'}) {    $Result .= '<th>'.'<input type="submit" name="';
  if ( $Hd == 1 ) {          $Result .= 'ProblemStatisticsHeading" value="';
     $r->print('<br>"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"');          $Result .= $headings->{$nIndex}.'" />'.'</th>'."\n";
  }  
  return;  
     }  
     my $ColNo=0;  
     foreach (keys(%Header)){   
  $ColNo++;  
     }   
     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";          $Result .= "\n".'</tr>'."\n";    
     $r->print( $Result );      $r->print($Result);
     $r->rflush();      $r->rflush();
 }  }
   
 sub CloseTable {  sub CloseTable {
     if ($ENV{'form.showcsv'}) {      my ($cache)=@_;
       if($cache->{'DisplayFormat'} eq 'Display CSV Format') {
  return;   return;
     }          }    
     $r->print("\n".'</table>'."\n");      $r->print("\n".'</table>'."\n");
     $r->rflush();      $r->rflush();
 }  }
    
 # ------------------------------------------- Prepare Statistics Table  
 sub PreStatTable {  
   
     my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".  # ------ Dump the Student's DB file and handling the data for statistics table 
                   "_$ENV{'user.domain'}_$cid\_statistics.db";  sub ExtractStudentData {
     my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".      my ($cache,$name)=@_;
                   "_$ENV{'user.domain'}_$cid\_graph.db";      my %discriminantFactor;
     my $OpSel11='';      my @list=();
     my $OpSel12='';  
     my $OpSel13='';      my $totalTries = 0;
     my $Status = $ENV{'form.status'};      my $totalAwarded = 0;
     if ( $Status eq 'Any' ) { $OpSel13='selected'; }      my $tempProblemOrder=0;
     elsif ($Status eq 'Expired' ) { $OpSel12 = 'selected'; }      foreach my $sequence (split(':', $cache->{'orderedSequences'})) {
     else { $OpSel11 = 'selected'; }          if($cache->{'ProblemStatisticsMap'} ne 'All Maps'  &&
              $cache->{'ProblemStatisticsMap'} ne $cache->{$sequence.':title'}) {
     my $Ptr = '';              next;
     $Ptr .= '<br><b> Student Status: &nbsp; </b>'."\n".  
             '<select name="status">'.   
             '<option '.$OpSel11.' >Active</option>'."\n".  
             '<option '.$OpSel12.' >Expired</option>'."\n".  
     '<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->print('Output CSV format: <input type=checkbox name=showcsv onClick="submit()"');  
     if ($ENV{'form.showcsv'}) { $r->print(' checked'); }  
     $r->print('>');  
   
     $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);  
 }  
   
           my $Dis = '';
           foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {
               my $problem = $cache->{$problemID.':problem'};
               my $LatestVersion = $cache->{$name.':version:'.$problem};
   
               # Output dashes for all the parts of this problem if there
               # is no version information about the current problem.
               #if(!$LatestVersion) {
               #    foreach my $part (split(/\:/,$cache->{$sequence.':'.
               #                                          $problemID.
               #                                          ':parts'})) {
               #        $codes    .= "-,";
               #        $attempts .= "0,"; 
               #    }
               #    next;
               #}
   
               my %partData=undef;
               # Initialize part data, display skips correctly
               # Skip refers to when a student made no submissions on that
               # part/problem.
               foreach my $part (split(/\:/,$cache->{$sequence.':'.
                                                     $problemID.
                                                     ':parts'})) {
                   $partData{$part.':tries'}=0;
                   $partData{$part.':code'}='-';
               }
   
 # ------------------------------------- Find the section of student in a course              # Looping through all the versions of each part, starting with the
               # oldest version.  Basically, it gets the most recent 
 sub usection {              # set of grade data for each part.
     my ($udom,$unam,$courseid,$ActiveFlag)=@_;      for(my $Version=1; $Version<=$LatestVersion; $Version++) {
     $courseid=~s/\_/\//g;                  foreach my $part (split(/\:/,$cache->{$sequence.':'.
     $courseid=~s/^(\w)/\/$1/;                                                        $problemID.
                                                         ':parts'})) {
     my %result=&Apache::lonnet::dump('roles',$udom,$unam);  
     my ($checkForResult)=keys(%result);                      if(!defined($cache->{$name.":$Version:$problem".
     if ($checkForResult=~/^(con_lost|error|no_such_host)/i) {                                                 ":resource.$part.solved"})) {
  return -1;                          # No grade for this submission, so skip
     }                          next;
     foreach my $key (keys (%result)) {                      }
  my $value=$result{$key};  
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {                      my $tries=0;
             my $section=$1;                      my $time=0;
             if ($key eq $courseid.'_st') { $section=''; }                      my $awarded=0;
     my ($dummy,$end,$start)=split(/\_/,$value);                      my $code='U';
     if ( $ActiveFlag ne 'Any' ) {  
  my $now=time;                      $awarded = $cache->{$name.
  my $notactive=0;                                          "$Version:$problem:resource.".
  if ($start) {                                          "$part.awarded"};
     if ($now<$start) { $notactive=1; }                      $partData{$part.':awarded'} = ($awarded) ? $awarded : 0;
  }                      $totalAwarded += $awarded;
  if ($end) {  
     if ($now>$end) { $notactive=1; }                      $tries = $cache->{$name.":$Version:$problem".
  }                                        ":resource.$part.tries"};
  if ((($ActiveFlag eq 'Expired') && $notactive == 1) ||                       $partData{$part.':tries'} = ($tries) ? $tries : 0;
                     (($ActiveFlag eq 'Active') && $notactive == 0 ) ) {                      $partData{$part.':wrong'} = $partData{$part.':tries'};
     return $section;                      $totalTries += $tries;
  }  
  else { return '-1'; }                       my $val = $cache->{$name.":$Version:$problem".
     }                                         ":resource.$part.solved"};
     return $section;                      if    ($val eq 'correct_by_student')   {$code = 'C';} 
         }                      elsif ($val eq 'correct_by_override')  {$code = 'O';}
     }                      elsif ($val eq 'incorrect_attempted')  {$code = 'I';} 
     return '-1';                      elsif ($val eq 'incorrect_by_override'){$code = 'I';}
 }                      elsif ($val eq 'excused')              {$code = 'x';}
                       $partData{$part.':code'}=$code;
   
                       if($partData{$part.':wrong'} ne 0 && 
                          ($code eq 'C' || $code eq 'O')) {
                           $partData{$part.':wrong'}--;
                       }
                   }
               }
   
               # Loop through all the parts for the current problem in the 
               # correct order and prepare the output
               foreach (split(/\:/,$cache->{$sequence.':'.$problemID.
                                            ':parts'})) {
                   my $Yes = 0;
                   if($partData{$_.':code'} eq 'C' || 
                      $partData{$_.':code'} eq 'O') {
                       $Yes=1;
                   }
                   #my $ptr = "$hash{'title_'.$ResId}";
                   my $ptr = $tempProblemOrder.'&'.$problemID;
   
 # ------ Dump the Student's DB file and handling the data for statistics table                   if($_ > 1) {
 sub ExtractStudentData {                      $ptr .= "*(part $_)";
     my $student=shift;                      $Dis .= '&';
     my ($sname,$sdom) = split( /\:/, $student );                  }
     my %result = &Apache::lonnet::dump($cid,$sdom,$sname);                  my $Fac = ($partData{$_.':Tries'}) ? 
     my $ResId;                      ($partData{$_.':awarded'}/$partData{$_.':tries'}) : 0;
     my $PrOrd;                  my $DisF;
     my $Dis = '';                  if($Fac > 0 &&  $Fac < 1) { 
     my $Code;                      $DisF = sprintf( "%.4f", $Fac );
     my $Tries;                  } else {
     my $ParCr;                      $DisF = $Fac;
     my $TotalTries = 0;                  }
     my $TotalOpend = 0;                  $Dis .= $tempProblemOrder.'='.$DisF.'+'.$Yes;
     my $ProbSolved = 0;                  $ptr .= '&'.$partData{$_.'.Tries'}.
     my $ProbTot = 0;                          '&'.$partData{$_.'.Wrongs'}.
     my $TimeTot = 0;                          '&'.$partData{$_.'.Code'};
     my $TotParCr = 0;                  push (@list, $ptr);
     my $Wrongs;                  $tempProblemOrder++;
     my %TempHash;  
     my $Version;   
     my $LatestVersion;  
     my $SecLimit;  
     my $MapLimit;  
     my ($temp)=keys(%result);  
     unless ($temp=~/^(con_lost|error|no_such_host)/i) {  
         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} );  
     my $URI = $hash{'src_'.$ResId};  
             my $Prob = $Map.'___'.$PrbId.'___'.  
                        &Apache::lonnet::declutter($URI);  
             $Code='U';  
             $Tries = 0;  
     $ParCr = 0;  
             $Wrongs = 0;  
      $LatestVersion = $result{"version:$Prob"};          
     if ( $LatestVersion ) {  
  for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {  
     my $vkeys = $result{"$Version:keys:$Prob"};  
     my @keys = split(/\:/,$vkeys);  
     foreach my $Key (@keys) {    
  if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {  
     my $Part = $1;  
     $Tries = $result{"$Version:$Prob:resource.$Part.tries"};  
     $ParCr = $result{"$Version:$Prob:resource.$Part.awarded"};  
     my $Time = $result{"$Version:$Prob:timestamp"};  
     $TempHash{"$Part.Time"} = ($Time) ? $Time : 0;  
     $TempHash{"$Part.Tries"} = ($Tries) ? $Tries : 0;  
     $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++) {  
  #    push (@list, "$TempHash{'0'.'.PrOrd'}.':'.$ResId:0:0:U");  
  #    $ProbTot++;   
  #}  
     #}  
         }          }
  if ( $TotalTries ) {          if($totalTries) {
     my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;      my $DisFac = ($totalAwarded/$totalTries);
     my $DisFactor = sprintf( "%.4f", $DisFac );      my $DisFactor = sprintf( "%.4f", $DisFac );
     $DiscFac{$DisFactor}=$Dis;      $discriminantFactor{$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 (\%discriminantFactor, \@list);
 # ------------------------------------------------------------ Build page table  
 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 {            sub MySort {          
Line 1033  sub MySort { Line 608  sub MySort {
     }      }
 }  }
   
 sub Create_PrgWin {  sub BuildStatisticsTable {
 #----------- Create progress      my ($cache,$discriminantFactor,$list,$headings)=@_;
     $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();  
 }  
   
   
 sub Update_PrgWin {  
 #----------- 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 {      my $p_count = 0;
 #--------------------- close Progress Line      my $nIndex = 0;
     $r->print('<script>popwin.close()</script>');      my $dummy;
     $r->rflush();   
 }  
   
 sub Build_Statistics {  
     &Create_PrgWin();  
 # ---------------------------- Gathering the Data of students' tries  
     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 $p_val;
     my $ResId;      my $ResId;
     my $NoElements = $#list + 1;      my $NoElements = scalar @$list;
 #-------------------------------- loop for data representation  
     foreach (sort keys %mapsort) {      foreach my $sequence (split(':', $cache->{'orderedSequences'})) {
           if($cache->{'ProblemStatisticsMap'} ne 'All Maps'  &&
              $cache->{'ProblemStatisticsMap'} ne $cache->{$sequence.':title'}) {
               next;
           }
   
    &CreateProblemStatisticsTableHeading($cache->{'DisplayFormat'},
                                                $cache->{$sequence.':source'}, 
                                                $cache->{$sequence.':title'},
                                                $headings);
  my ($Hid,$pr)=split(/\:/,$mapsort{$_});   my ($Hid,$pr)=split(/\:/,$mapsort{$_});
  my @lpr=split(/\&/,$pr);   my @lpr=split(/\&/,$pr);
  &CreateTable(1,$Hid);  
  for (my $i=1; $i<=$#lpr; $i++) {   for (my $i=1; $i<=$#lpr; $i++) {
     my %storestats=();      my %storestats=();
     my ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]);      my ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list->[$nIndex]);
     my $Temp = $Prob;      my $Temp = $Prob;
     my $MxTries = 0;      my $MxTries = 0;
     my $TotalTries = 0;      my $TotalTries = 0;
Line 1110  sub Build_Statistics { Line 643  sub Build_Statistics {
     my @StdLst;      my @StdLst;
     while ( $PrOrd == $lpr[$i] )       while ( $PrOrd == $lpr[$i] ) 
     {      {
  $nIdx++;   $nIndex++;
  $StdNo++;   $StdNo++;
  $StdLst[ $StdNo ] = $Tries;   $StdLst[ $StdNo ] = $Tries;
  $TotalTries += $Tries;   $TotalTries += $Tries;
Line 1119  sub Build_Statistics { Line 652  sub Build_Statistics {
  elsif( $Code eq 'I' ) { $Incorrect++; }   elsif( $Code eq 'I' ) { $Incorrect++; }
  elsif( $Code eq 'O' ) { $Override++; }   elsif( $Code eq 'O' ) { $Override++; }
  elsif( $Code eq 'U' ) { $StdNo--; }   elsif( $Code eq 'U' ) { $StdNo--; }
  ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]);   ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list->[$nIndex]);
     }      }
   
     $p_count++;      $p_count++;
Line 1182  sub Build_Statistics { Line 715  sub Build_Statistics {
     }      }
   
 #--------------------- Compute the Discrimination Factors  #--------------------- Compute the Discrimination Factors
     my ($Up1,$Up2)=split(/\:/,$DisUp{$lpr[$i]});              my ($Up1,$Up2)=split(/\:/,':');#jason$DisUp->{$lpr[$i]});
     my ($Lw1,$Lw2)=split(/\:/,$DisLow{$lpr[$i]});      my ($Lw1,$Lw2)=split(/\:/,':');#jason$DisLow->{$lpr[$i]});
     my $Dis1 = $Up1 - $Lw1;      my $Dis1 = $Up1 - $Lw1;
     my $Dis2 = $Up2 - $Lw2;      my $Dis2 = $Up2 - $Lw2;
     my $_D1 = sprintf("%.2f", $Dis1);      my $_D1 = sprintf("%.2f", $Dis1);
Line 1207  sub Build_Statistics { Line 740  sub Build_Statistics {
  &Apache::lonnet::put('resevaldata',\%storestats,$1,$2);    &Apache::lonnet::put('resevaldata',\%storestats,$1,$2); 
     }      }
 #-------------------------------- Row of statistical table  #-------------------------------- Row of statistical table
     if ( $DiscFlag == 0 ) {              &TableRow($cache,$join,$i,($p_count-1));
  &TableRow($join,$i,($p_count-1));  
     }   
  }   }
  &CloseTable();   &CloseTable($cache);
     }      }
     &Close_PrgWin();      &Close_PrgWin();
 }  }
   
   =pod
 sub Cache_Statistics {  sub Cache_Statistics {
       my ($cache)=@_;
     my @list = ();      my @list = ();
     my $Useful;      my $Useful;
     my $UnUseful;      my $UnUseful;
Line 1224  sub Cache_Statistics { Line 757  sub Cache_Statistics {
     my %myHeader = reverse( %Header );      my %myHeader = reverse( %Header );
     $Pos = $myHeader{$ENV{'form.sort'}};      $Pos = $myHeader{$ENV{'form.sort'}};
     if ($Pos > 0) {$Pos++;}      if ($Pos > 0) {$Pos++;}
     $p_count = 0;      my $p_count = 0;
     foreach my $key( keys %CachData) {       foreach my $key( keys %CachData) { 
  my @Temp=split(/\&/,$CachData{$key});   my @Temp=split(/\&/,$CachData{$key});
  if ( $Pos == 0 ) {   if ( $Pos == 0 ) {
Line 1239  sub Cache_Statistics { Line 772  sub Cache_Statistics {
   
     @list = sort MySort (@list);      @list = sort MySort (@list);
   
     my $nIdx=0;      my $nIndex=0;
   
     if ( $Pos == 0 ) {      if ( $Pos == 0 ) {
  foreach (sort keys %mapsort) {   foreach (sort keys %mapsort) {
     my ($Hid,$pr)=split(/\:/,$mapsort{$_});      my ($Hid,$pr)=split(/\:/,$mapsort{$_});
     &CreateTable(1,$Hid);      &CreateProblemStatisticsTableHeading($cache,1,$Hid);
     my @lpr=split(/\&/,$pr);      my @lpr=split(/\&/,$pr);
     for (my $i=1; $i<=$#lpr; $i++) {      for (my $i=1; $i<=$#lpr; $i++) {
  my($Pre, $Post) = split(/\@/,$list[$nIdx]);    my($Pre, $Post) = split(/\@/,$list[$nIndex]); 
  #$r->print('<br>'.$Pre.'---'.$Post);   #$r->print('<br>'.$Pre.'---'.$Post);
  &TableRow($Post,$i,$nIdx);   &TableRow($cache,$Post,$i,$nIndex);
  $nIdx++;   $nIndex++;
     }      }
     &CloseTable();      &CloseTable($cache);
  }   }
     }      }
     else {      else {
  &CreateTable(0);   &CreateProblemStatisticsTableHeading($cache,0);
  for ( my $nIdx = 0; $nIdx < $p_count; $nIdx++ ) {   for ( my $nIndex = 0; $nIndex < $p_count; $nIndex++ ) {
     my($Pre, $Post) = split(/\@/,$list[$nIdx]);       my($Pre, $Post) = split(/\@/,$list[$nIndex]); 
     &TableRow($Post,$nIdx,$nIdx);      &TableRow($cache,$Post,$nIndex,$nIndex);
  }    } 
  &CloseTable();   &CloseTable($cache);
     }      }
 }  }
   =cut
 sub TableRow {  sub TableRow {
     my ($Str,$Idx,$RealIdx)=@_;      my ($cache,$Str,$Idx,$RealIdx)=@_;
     my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override,      my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override,
        $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);         $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);
     if ($ENV{'form.showcsv'}) {      if($cache->{'DisplayFormat'} eq 'Display CSV Format') {
         my ($ResId,$Dummy)=split(/\*/,$Prob);          my ($ResId,$Dummy)=split(/\*/,$Prob);
         my $Ptr =  "\n".'<br>'.          my $Ptr =  "\n".'<br>'.
                "\n".'"'.($RealIdx+1).'",'.                 "\n".'"'.($RealIdx+1).'",'.
Line 1288  sub TableRow { Line 821  sub TableRow {
                "\n".'"'.$_D1.'",'.                 "\n".'"'.$_D1.'",'.
        "\n".'"'.$_D2.'"';         "\n".'"'.$_D2.'"';
         $r->print("\n".$Ptr);          $r->print("\n".$Ptr);
     }      } else {
     else{  
         my $Ptr =  "\n".'<tr>'.          my $Ptr =  "\n".'<tr>'.
                "\n".'<td>'.($RealIdx+1).'</td>'.                 "\n".'<td>'.($RealIdx+1).'</td>'.
           #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.            #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.
Line 1311  sub TableRow { Line 843  sub TableRow {
     $GraphDat{$RealIdx}=$DoD.':'.$Wrng;      $GraphDat{$RealIdx}=$DoD.':'.$Wrng;
 }  }
   
 # ------------------------------------------- Prepare data for Graphical chart  sub StatusOptions {
       my ($cache)=@_;
   
       my $Status = $cache->{'Status'};
       my $OpSel1 = '';
       my $OpSel2 = '';
       my $OpSel3 = '';
   
       if($Status eq 'Any')         { $OpSel3 = ' selected'; }
       elsif($Status eq 'Expired' ) { $OpSel2 = ' selected'; }
       else                         { $OpSel1 = ' selected'; }
   
       my $Ptr = '';
       $Ptr .= '<tr><td align="right"><b>Student Status:</b></td>'."\n";
       $Ptr .= '<td align="left"><select name="Status">';
       $Ptr .= '<option'.$OpSel1.'>Active</option>'."\n";
       $Ptr .= '<option'.$OpSel2.'>Expired</option>'."\n";
       $Ptr .= '<option'.$OpSel3.'>Any</option>'."\n";
       $Ptr .= '</select></td></tr>'."\n";
   
       return $Ptr;
   }
   
   sub AscendOrderOptions {
       my ($cache)=@_;
   
       my $order = $cache->{'Ascend'};
       my $OpSel1 = '';
       my $OpSel2 = '';
   
       if($order eq 'Ascending') {
           $OpSel1 = ' selected';
       } else {
           $OpSel2 = ' selected';
       }
   
       my $Ptr = '';
       $Ptr .= '<tr><td align="right"><b>Sorting Type:</b></td>'."\n";
       $Ptr .= '<td align="left"><select name="Ascend">'."\n";
       $Ptr .= '<option'.$OpSel1.'>Ascending</option>'."\n".
       '<option'.$OpSel2.'>Descending</option>'."\n";
       $Ptr .= '</select></td></tr>'."\n";
   
       return $Ptr;
   }
   
   sub ProblemStatisticsButtons {
       my ($cache)=@_;
   
       my $Ptr = '<tr><td></td><td align="left">';
       $Ptr .= '<input type=submit name="ProblemStatisticsRecalculate" ';
       $Ptr .= 'value="Recalculate Statistics"/>'."\n";
       $Ptr .= '&nbsp;&nbsp;&nbsp;';
       $Ptr .= '<input type="submit" name="DoDiffGraph" ';
       $Ptr .= 'value="DoDiff Graph" />'."\n";
       $Ptr .= '&nbsp;&nbsp;&nbsp;';
       $Ptr .= '<input type="submit" name="PercentWrongGraph" ';
       $Ptr .= 'value="%Wrong Graph" />'."\n";
       $Ptr .= '&nbsp;&nbsp;&nbsp;';
       $Ptr .= '<input type="submit" name="DisplayCSVFormat" ';
       if($cache->{'DisplayFormat'} eq 'Display CSV Format') {
           $Ptr .= 'value="Display CSV Format" />'."\n";
       } else {
           $Ptr .= 'value="Display Table Format" />'."\n";
       }
       $Ptr .= '</td></tr>';
   
       return $Ptr;
   }
   
   sub ProblemStatisticsLegend {
       my $Ptr = '';
       $Ptr = '<table border="0">';
       $Ptr .= '<tr><td>';
       $Ptr .= '<b>#Stdnts</b>:</td>';
       $Ptr .= '<td>Total Number of Students opened the problem.';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>Tries</b>:</td>';
       $Ptr .= '<td>Total Number of Tries for solving the problem.';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>Mod</b>:</td>';
       $Ptr .= '<td>Maximunm Number of Tries for solving the problem.';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>Mean</b>:</td>';
       $Ptr .= '<td>Average Number of the tries. [ Tries / #Stdnts ]';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>#YES</b>:</td>';
       $Ptr .= '<td>Number of students solved the problem correctly.';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>#yes</b>:</td>';
       $Ptr .= '<td>Number of students solved the problem by override.';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>%Wrng</b>:</td>';
       $Ptr .= '<td>Percentage of students tried to solve the problem ';
       $Ptr .= 'but still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]';
       $Ptr .= '</td></tr><tr><td>';
   #    Kashy formula
   #    '<b>  DoDiff </b>: Degree of Difficulty of the problem.<br>'.
   #    '[ Tries/(#YES+#yes+0.1) ]<br>'.
       #Gerd formula
       $Ptr .= '<b>DoDiff</b>:</td>';
       $Ptr .= '<td>Degree of Difficulty of the problem.  ';
       $Ptr .= '[ 1 - ((#YES+#yes) / Tries) ]';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>S.D.</b>:</td>';
       $Ptr .= '<td>Standard Deviation of the tries.  ';
       $Ptr .= '[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1) ';
       $Ptr .= 'where Xi denotes every student\'s tries ]';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>Skew.</b>:</td>';
       $Ptr .= '<td>Skewness of the students tries.';
       $Ptr .= '[(sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3)]';
       $Ptr .= '</td></tr><tr><td>';
       $Ptr .= '<b>Dis.F.</b>:</td>';
       $Ptr .= '<td>Discrimination Factor: A Standard for evaluating the ';
       $Ptr .= 'problem according to a Criterion<br>';
       $Ptr .= '<b>[Applied Criterion in %27 Upper Students - ';
       $Ptr .= 'Applied the same Criterion in %27 Lower Students]</b><br>';
       $Ptr .= '<b>1st Criterion</b> for Sorting the Students: ';
       $Ptr .= '<b>Sum of Partial Credit Awarded / Total Number of Tries</b><br>';
       $Ptr .= '<b>2nd Criterion</b> for Sorting the Students: ';
       $Ptr .= '<b>Total number of Correct Answers / Total Number of Tries</b>';
       $Ptr .= '</td></tr></table>';
   
       return $Ptr;
   }
   
   #---- END Problem Statistics Web Page ----------------------------------------
   
   #---- Problem Statistics Graph Web Page --------------------------------------
   
 sub GetGraphData {  sub GetGraphData {
     my $ylab = shift;      my ($whichGraph, $courseID)=@_;
     my $Col;      my $Col=0;
       my $graphTitle='';
     my $data='';      my $data='';
     my $count = 0;      my $count = 0;
     my $Max = 0;      my $Max = 0;
     my $cid=$ENV{'request.course.id'};      my $graphData='Graph data does not exist.';
     my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".      my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
                   "_$ENV{'user.domain'}_$cid\_graph.db";                    "_$ENV{'user.domain'}_$courseID\_graph.db";
     foreach (keys %GraphDat) {delete $GraphDat{$_};}      if(-e $GraphDB) {
     if (-e "$GraphDB") {   if(tie(%GraphDat,'GDBM_File',"$GraphDB",&GDBM_READER,0640)) {
  if (tie(%GraphDat,'GDBM_File',"$GraphDB",&GDBM_READER,0640)) {      if($whichGraph eq 'DiffGraph') {
     if ( $ylab eq 'DoDiff Graph' ) {   $graphTitle = 'Degree-of-Difficulty';
  $ylab = 'Degree-of-Difficulty';  
  $Col = 0;   $Col = 0;
     }      } else {
     else {   $graphTitle = 'Wrong-Percentage';
  $ylab = 'Wrong-Percentage';  
  $Col = 1;   $Col = 1;
     }      }
     foreach (sort NumericSort keys %GraphDat) {       foreach (sort NumericSort keys %GraphDat) { 
  my @Temp=split(/\:/,$GraphDat{$_});   my @Temp=split(/\:/,$GraphDat{$_});
                 my $inf = $Temp[$Col];                   my $inf = $Temp[$Col]; 
  if ( $Max < $inf ) {$Max = $inf;}   if($Max < $inf) {
                       $Max = $inf;
                   }
  $data .= $inf.',';   $data .= $inf.',';
  $count++;   $count++;
     }      }
     if ( $Max > 1 ) {       if($Max > 1) { 
  $Max += (10 - $Max % 10);   $Max += (10 - $Max % 10);
  $Max = int($Max);   $Max = int($Max);
     }      } else { 
     else { $Max = 1; }                  $Max = 1;
               }
             untie(%GraphDat);              untie(%GraphDat);
     my $Course = $ENV{'course.'.$cid.'.description'};      my $Course = $ENV{'course.'.$courseID.'.description'};
     $Course =~ s/\ /"_"/eg;      $Course =~ s/\ /"_"/eg;
     $GData=$Course.'&'.'Problems'.'&'.$ylab.'&'.$Max.'&'.$count.'&'.$data;      $graphData  = $Course.'&'.'Problems'.'&'.$graphTitle.'&'.$Max.'&';
               $graphData .= $count.'&'.$data;
    } else {
       $graphData = "Unable to tie hash to db file";
  }   }
  else {      }
     $r->print("Unable to tie hash to db file");  
       return $graphData;
   }
   
   #---- END Problem Statistics Graph Web Page ----------------------------------
   
   #---- Problem Analysis Web Page ----------------------------------------------
   
   sub IntervalOptions {
       my ($cache)=@_;
   
       my $interval = 1;
       for(my $n=1; $n<=7; $n++) {
           if($cache->{'Interval'} == $n) {
               $interval = $n;
           }
       }
   
       my $Ptr = '<br><b>Select number of intervals</b>'."\n".
                '<select name="Interval">'."\n";
       for(my $n=1; $n<=7;$ n++) {
    $Ptr .= '<option';
           if($interval == $n) {
               $Ptr .= ' selected';
           }
    $Ptr .= '>'.$n."</option>"."\n";
       }
       $Ptr .= '</select>'."\n";
   
       return $Ptr;
   }
   
   sub OptionResponseTable {
       my ($cache)=@_;
       my $Str = '';
       $Str .= '<br><b> Option Response Problems in this course:</b>'."\n";
       $Str .= '<br><br>'."\n";
       $Str .= "<table border=2><tr><th> \# </th><th> Problem Title </th>";
       $Str .= '<th> Resource </th><th> Analysis  </th></tr>'."\n";
   
       my $number=1;
       foreach (split(':::',$cache->{'OptionResponses'})) {
           my ($uri,$title,$part,$problem)=split('::',$_);
           my $Temp = '<a href="'.$uri.'" target="_blank">'.$title.'</a>';
           $Str .= '<tr>';
           $Str .= '<td> '.$number.' </td>';
           $Str .= '<td bgcolor="'.$color{"green"}.'"> '.$Temp.' </td>';
           $Str .= '<td bgcolor="'.$color{"yellow"}.'"> '.$uri.' </td>';
           $Str .= '<td><input type="submit" name="Analyze:::'.$uri.':::';
           $Str .= $title.':::'.$part.':::'.$problem.'" value="';
           $Str .= 'Analyze" /></td></tr>'."\n";
           $number++;
       }
       $Str .= '</table>'."\n";
   
       return $Str;
   }
   
   #---- END Problem Analysis Web Page ------------------------------------------
   
   #---- Student Assessment Web Page --------------------------------------------
   
   sub MapOptions {
       my ($cache, $page)=@_;
       my $Ptr = '<tr>';
       $Ptr .= '<td align="right"><b>Select Map</b></td>'."\n";
       $Ptr .= '<td align="left"><select name="Maps">'."\n";
   
       my $selected = 0;
       foreach my $sequence (split(':',$cache->{'orderedSequences'})) {
    $Ptr .= '<option';
           if($cache->{$page.'Map'} eq $cache->{$sequence.':title'}) {
               $Ptr .= ' selected';
               $selected = 1;
           }
    $Ptr .= '>'.$cache->{$sequence.':title'}.'</option>'."\n";     
       }
       $Ptr .= '<option';
       if(!$selected) {
           $Ptr .= ' selected';
       }
       $Ptr .= '>All Maps</option>'."\n";
   
       $Ptr .= '</select></td></tr>'."\n";
   
       return $Ptr;
   }
   
   sub StudentOptions {
       my ($students, $selectedName)=@_;
   
       my $Ptr ='<tr>';
       $Ptr .= '<td align="right"><b>Select Student</b></td>'."\n";
       $Ptr .= '<td align="left"><select name="Students">'."\n";
   
       my $selected=0;
       foreach (@$students) {
           my ($name) = split(':',$_);
    $Ptr .= '<option';
    if($selectedName eq $name) {
               $Ptr .= ' selected';
               $selected = 1;
           }
           $Ptr .= '>'.$name.'</option>'."\n";     
       }
   
       $Ptr .= '<option';
       if(!$selected) {
           $Ptr .= ' selected';
       }
       $Ptr .= '>No Student Selected</option>'."\n";
   
       $Ptr .= '</select></td></tr>'."\n";
   
       return $Ptr;
   }
   
   # ------ Create different Student Report 
   sub StudentReport {
       my ($cache, $name)=@_;
   
       my $Str = '';
       if($cache->{$name.':error'} =~ /course/) {
           my ($username)=split(':',$name);
           $Str .= '<b><font color="blue">No course data for student </font>';
           $Str .= '<font color="red">'.$username.'.</font></b><br>';
           return $Str;
       }
   
       $Str .= "<table border=2><tr><th> \# </th><th> Set Title </th>";
       $Str .= '<th> Results </th><th> Tries </th></tr>'."\n";
   
       my $codes;
       my $attempts;
       foreach my $sequence (split(':', $cache->{'orderedSequences'})) {
           if($cache->{'StudentAssessmentMap'} ne 'All Maps'  &&
              $cache->{'StudentAssessmentMap'} ne $cache->{$sequence.':title'}) {
               next;
           }
   
           $Str .= '<tr><td>'.$sequence.'</td>';
           $Str .= '<td>'.$cache->{$sequence.':title'}.'</td>';
   
           $codes = '';
           $attempts = '';
           foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {
               my $problem = $cache->{$problemID.':problem'};
               my $LatestVersion = $cache->{$name.':version:'.$problem};
   
               # Output dashes for all the parts of this problem if there
               # is no version information about the current problem.
               if(!$LatestVersion) {
                   foreach my $part (split(/\:/,$cache->{$sequence.':'.
                                                         $problemID.
                                                         ':parts'})) {
       $codes    .= "-,";
                       $attempts .= "0,"; 
                   }
                   next;
               }
   
               my %partData=undef;
               # Initialize part data, display skips correctly
               # Skip refers to when a student made no submissions on that
               # part/problem.
               foreach my $part (split(/\:/,$cache->{$sequence.':'.
                                                     $problemID.
                                                     ':parts'})) {
                   $partData{$part.':tries'}=0;
                   $partData{$part.':code'}='-';
               }
   
               # Looping through all the versions of each part, starting with the
               # oldest version.  Basically, it gets the most recent 
               # set of grade data for each part.
       for(my $Version=1; $Version<=$LatestVersion; $Version++) {
                   foreach my $part (split(/\:/,$cache->{$sequence.':'.
                                                         $problemID.
                                                         ':parts'})) {
   
                       if(!defined($cache->{$name.":$Version:$problem".
                                                  ":resource.$part.solved"})) {
                           # No grade for this submission, so skip
                           next;
                       }
   
                       my $tries=0;
                       my $code='U';
   
                       $tries = $cache->{$name.":$Version:$problem".
                                         ":resource.$part.tries"};
                       $partData{$part.':tries'}=($tries) ? $tries : 0;
   
                       my $val = $cache->{$name.":$Version:$problem".
                                          ":resource.$part.solved"};
                       if    ($val eq 'correct_by_student')   {$code = 'Y';} 
                       elsif ($val eq 'correct_by_override')  {$code = 'y';}
                       elsif ($val eq 'incorrect_attempted')  {$code = 'N';} 
                       elsif ($val eq 'incorrect_by_override'){$code = 'N';}
                       elsif ($val eq 'excused')              {$code = 'x';}
                       $partData{$part.':code'}=$code;
                   }
               }
   
               # Loop through all the parts for the current problem in the 
               # correct order and prepare the output
               foreach (split(/\:/,$cache->{$sequence.':'.$problemID.
                                            ':parts'})) {
                   $codes    .= $partData{$_.':code'}.',';
                   $attempts .= $partData{$_.':tries'}.','; 
               }
           }
           $codes    =~ s/,$//;
           $attempts =~ s/,$//;
           $Str .= '<td>'.$codes.'</td>';
           $Str .= '<td>'.$attempts.'</td>';
           $Str .= '</tr>'."\n";
       }
   
       $Str .= '</table>'."\n";
   
       return $Str;
   }
   
   #---- END Student Assessment Web Page ----------------------------------------
   
   #---- Menu Web Page ----------------------------------------------------------
   
   sub Title {
       my ($downloadTime)=@_;
   
       my $Ptr = '';
   
       $Ptr .= '<html><head><title>LON-CAPA Statistics</title></head>'."\n";
       $Ptr .= '<body bgcolor="#FFFFFF">'."\n";
       $Ptr .= '<script>window.focus(); window.width=500;window.height=500;';
       $Ptr .= '</script>'."\n";
       $Ptr .= '<img align=right src=/adm/lonIcons/lonlogos.gif>'."\n";
       $Ptr .= '<h1> Course : "';
       $Ptr .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
       $Ptr .= '"</h1>'."\n";
       $Ptr .= '<h3>'.$downloadTime.'</h3>';
   
       return $Ptr;
   }
   
   sub CreateMenuForm {
       my ($cache)=@_;
       my $Ptr = '<table border="0">';
       $Ptr .= '<tr><td><input type="submit" name="ProblemStatistics" ';
       $Ptr .= 'value="Problem Stats"/>';
       $Ptr .= '</td></tr>'."\n";
   
       if(defined($cache->{'OptionResponses'})) {
           $Ptr .= '<tr><td><input type="submit" name="ProblemAnalysis" ';
           $Ptr .= 'value="Problem Analysis"/>';
           $Ptr .= '</td></tr>'."\n";
       }
   
       $Ptr .= '<tr><td><input type="submit" name="StudentAssessment" ';
       $Ptr .= 'value="Student Assessment"/>';
       $Ptr .= '</td></tr>'."\n";
       #$Ptr .= '<input type="submit" name="ActivityLog" value="Activity Log"/>';
   
       $Ptr .= '</table>'."\n";
   
       return $Ptr;
   }
   
   #---- END Menu Web Page ------------------------------------------------------
   
   #---- HELPER FUNCTIONS -------------------------------------------------------
   
   sub CheckFormElement {
       my ($cache, $ENVName, $cacheName, $default)=@_;
   
       if(defined($ENV{'form.'.$ENVName})) {
           $cache->{$cacheName} = $ENV{'form.'.$ENVName};
       } elsif(!defined($cache->{$cacheName})) {
           $cache->{$cacheName} = $default;
       }
   
       return;
   }
   
   sub ProcessFormData{
       my ($cacheDB, $isCached)=@_;
       my %cache;
   
       if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {
           # Select page to display
           if(defined($ENV{'form.ProblemStatistics'}) ||
              defined($ENV{'form.ProblemStatisticsRecalculate'}) || 
              defined($ENV{'form.DisplayCSVFormat'})) {
               $cache{'GoToPage'} = 'ProblemStatistics';
               &CheckFormElement(\%cache, 'DisplayCSVFormat',
                                 'DisplayFormat', 'Display Table Format');
               &CheckFormElement(\%cache, 'Ascend','ProblemStatisticsAscend',
                                 'Ascending');
               &CheckFormElement(\%cache, 'Maps', 'ProblemStatisticsMap', 
                                 'All Maps');
           } elsif(defined($ENV{'form.ProblemAnalysis'})) {
               $cache{'GoToPage'} = 'ProblemAnalysis';
               &CheckFormElement(\%cache, 'Interval', 'Interval', '1');
           } elsif(defined($ENV{'form.StudentAssessment'}) ||
                   defined($ENV{'form.CreateStudentAssessment'}) ||
                   defined($ENV{'form.NextStudent'}) ||
                   defined($ENV{'form.PreviousStudent'})) {
               $cache{'GoToPage'} = 'StudentAssessment';
               if(defined($ENV{'form.NextStudent'})) {
                   $cache{'StudentAssessmentMove'} = 'next';
               } elsif(defined($ENV{'form.PreviousStudent'})) {
                   $cache{'StudentAssessmentMove'} = 'previous';
               } else {
                   $cache{'StudentAssessmentMove'} = 'selected';
               }
               &CheckFormElement(\%cache, 'Maps', 'StudentAssessmentMap', 
                                 'All Maps');
   
               &CheckFormElement(\%cache, 'Students', 'StudentAssessmentStudent', 
                                 'No Student Selected');
           } elsif(defined($ENV{'form.DoDiffGraph'})) {
               $cache{'GoToPage'} = 'DoDiffGraph';
           } elsif(defined($ENV{'form.PercentWrongGraph'})) {
               $cache{'GoToPage'} = 'PercentWrongGraph';
           } elsif(defined($ENV{'form.ActivityLog'})) {
               $cache{'GoToPage'} = 'ActivityLog';
           } else {
               $cache{'GoToPage'} = 'Menu';
           }
   
           &CheckFormElement(\%cache, 'Status', 'Status', 'Active');
   
           foreach (keys(%ENV)) {
               if(/form\.Analyze:::/) {
                   $cache{'GoToPage'} = 'Analyze';
                   my ($uri, $title, $part, $problem);
                   (undef, $uri, $title, $part, $problem)=split(':::', $_);
                   $cache{'AnalyzeURI'}     = $uri;
                   $cache{'AnalyzeTitle'}   = $title;
                   $cache{'AnalyzePart'}    = $part;
                   $cache{'AnalyzeProblem'} = $problem;
   
                   &CheckFormElement(\%cache, 'Interval', 'Interval', '1');
               }
           }
       }
   
       return;
   }
   
   =pod
   
   =item &SortStudents()
   
   Determines which students to display and in which order.  Which are 
   displayed are determined by their status(active/expired).  The order
   is determined by the sort button pressed (default to username).  The
   type of sorting is username, lastname, or section.
   
   =over 4
   
   Input: $students, $CacheData
   
   $students: A array pointer to a list of students (username:domain)
   
   $CacheData: A pointer to the hash tied to the cached data
   
   Output: \@order
   
   @order: An ordered list of students (username:domain)
   
   =back
   
   =cut
   
   sub SortStudents {
       my ($students,$cache)=@_;
   
       my @sorted1Students=();
       foreach (@$students) {
           push(@sorted1Students, $_);
       }
   #        my ($end,$start)=split(/\:/,$cache->{$_.':date'});
   #        my $active=1;
   #        my $now=time;
   #        my $Status=$cache->{'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;
   #        }
   #        if($active) {
   #            push(@sorted1Students, $_);
   #        }
   #    }
   
       my $Pos = $cache->{'form.ChartSort'};
       my %sortData;
       if($Pos eq 'Last Name') {
    for(my $index=0; $index<scalar @sorted1Students; $index++) {
       $sortData{$cache->{$sorted1Students[$index].':fullname'}}=
    $sorted1Students[$index];
    }
       } elsif($Pos eq 'Section') {
    for(my $index=0; $index<scalar @sorted1Students; $index++) {
       $sortData{$cache->{$sorted1Students[$index].':section'}.
         $sorted1Students[$index]}=$sorted1Students[$index];
  }   }
       } else {
    # Sort by user name
    for(my $index=0; $index<scalar @sorted1Students; $index++) {
       $sortData{$sorted1Students[$index]}=$sorted1Students[$index];
    }
       }
   
       my @order = ();
       foreach my $key (sort(keys(%sortData))) {
    push (@order,$sortData{$key});
     }      }
   
       return \@order;
 }  }
   
   sub PrepareData {
       my ($c, $cacheDB)=@_;
   
 sub initial {      # Test for access to the cache data
 # --------------------------------- Initialize the global varaibles      my $isCached=0;
     undef @students;      my $courseID=$ENV{'request.course.id'};
     undef @cols;      my $isRecalculate=0;
     undef %maps;      if(defined($ENV{'form.ProblemStatisticsRecalculate'}) ||
     undef %section;         defined($ENV{'form.ChartRecalculate'})) {
     undef %StuBox;          $isRecalculate=1;
     undef @list;      }
     undef %CachData;  
     undef %GraphDat;      $isRecalculate=1;
     undef %DiscFac;  
     undef %OpResp;      $isCached=&Apache::loncoursedata::TestCacheData($cacheDB, $isRecalculate);
     undef %ConceptData;      if($isCached < 0) {
     undef $CurMap;          return "Unable to tie hash to db file.";
     undef $CurSec;      }
     undef $CurStu;      &ProcessFormData($cacheDB, $isCached);
     undef $p_count;  
     undef $Pos;      # Download class list information if not using cached data
     undef $GData;      my %cache;
     $DiscFlag=0;       my @students=();
     $P_Order=100000;      if(!$isCached) {
     $HWN=$P_Order;          unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {
     &setbgcolor(0);              return "Unable to tie hash to db file.";
           }
   
           my $processTopResourceMapReturn=
               &Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c);
           if($processTopResourceMapReturn ne 'OK') {
               untie(%cache);
               return $processTopResourceMapReturn;
           }
   
           if($c->aborted()) {
               untie(%cache);
               return 'aborted'; 
           }
   
           my $classlist=&Apache::loncoursedata::DownloadStudentNamePIDSection(
                                                                      $courseID, 
                                                                      $c);
           my ($checkForError)=keys(%$classlist);
           if($checkForError =~ /^(con_lost|error|no_such_host)/i ||
              defined($classlist->{'error'})) {
               untie(%cache);
               return "Error getting student data.";
           }
   
           if($c->aborted()) {
               untie(%cache);
               return 'aborted'; 
           }
   
           # Active is a temporary solution, remember to change
           @students=&Apache::loncoursedata::ProcessClassList(\%cache, 
                                                              $classlist, 
                                                              $courseID, 
                                                              'Active', $c);
   
           if($c->aborted()) {
               untie(%cache);
               return 'aborted'; 
           }
   
           untie(%cache);
       } else {
           if(!$c->aborted() && tie(%cache,'GDBM_File',$cacheDB,
                                    &GDBM_READER,0640)) {
               @students=split(/:::/,$cache{'NamesOfStudents'});
           } else {
               return 'aborted';
           }
       }
   
       return ('OK', $isCached, \@students);
   }
   
   # Create progress
   sub Create_PrgWin {
       $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();
   }
   
   # update progress
   sub Update_PrgWin {
       my ($totalStudents,$index,$name)=@_;
       $r->print('<script>popwin.document.popremain.remaining.value="'.
                 'Computing '.$index.'/'.$totalStudents.': '.
                 $name.'";</script>');
       $r->rflush();
   }
   
   # close Progress Line
   sub Close_PrgWin {
       $r->print('<script>popwin.close()</script>');
       $r->rflush(); 
 }  }
   
 # For loading the colored table for display or un-colored for print  # For loading the colored table for display or un-colored for print
Line 1399  sub setbgcolor { Line 1572  sub setbgcolor {
  $color{"green"}="#DDFFDD";   $color{"green"}="#DDFFDD";
  $color{"purple"}="#FFDDFF";   $color{"purple"}="#FFDDFF";
     }      }
   
       return;
 }  }
   
 # my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".  sub initial {
 #                  "_$ENV{'user.domain'}_$cid\_classlist.db";      undef %hash;
 # if (-e "$CacheDB") {      undef %CachData;
 #    if (tie(%students,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {      undef %GraphDat;
 # &CachClassList();      undef %ConceptData;
 #    }      undef $Pos;
 #            else {      undef $GData;
 #        $r->print("Unable to tie hash to db file");  }
 #            }  
 #        }  
 #        else {  
 #    if (tie(%students,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {  
 #        &MakeClassList();  
 #    }  
 #            else {  
 #        $r->print("Unable to tie hash to db file");  
 #            }  
 #        }  
 #        untie(%students);  
   
 sub ClassList {  #---- END HELPER FUNCTIONS ---------------------------------------------------
   
     &GetStatus();  sub BuildProblemStatisticsPage {
       my ($cacheDB, $students)=@_;
   
     $cid=$ENV{'request.course.id'};      my %cache;
     my ($cdom,$cnum)=split(/\_/,$cid);      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
 # ----------------------- Get first and last resource, see if there is anything          $r->print('<html><body>Unable to tie database.</body></html>');
     $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};          return;
     $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};      }
     if (($firstres) && ($lastres)) {  
       my $Ptr = '';
  my $StudNo = 0;      $Ptr .= '<form name="ProblemStatisticsPage" method="post" ';
  my $now=time;      $Ptr .= 'action="/adm/statistics">'."\n";
  my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum);      $Ptr .= '<table border="0"><tbody>';
       $Ptr .= '<tr><td></td><td align="left"><input type="submit" name="Menu" ';
  my ($checkForError)=keys(%classlist);      $Ptr .= 'value="Return to Menu" /></td></tr>'."\n";
  if($checkForError=~/^(con_lost|error|no_such_host)/i) {      $r->print($Ptr);
     $r->print('<h1>Could not access course data</h1>');  
  } else {  
     foreach my $name (sort keys (%classlist)) {  
  my $value=$classlist{$name};  
  my ($end,$start)=split(/\:/,$value);  
  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; }  
  if ($active) {  
     my $thisindex=$#students+1;  
     $students[$thisindex]=$name;  
     my ($sname,$sdom)=split(/\:/,$name);  
     my $ssec=&usection($sdom,$sname,$cid,$Status);  
     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++;  
  }  
     }  
  }  
   
         $r->print("Total number of students : ".($#students+1));      $r->print(&MapOptions(\%cache, 'ProblemStatistics'));
         $r->rflush();      $r->print(&StatusOptions());
 # --------------- Find all assessments and put them into some linear-like order      $r->print(&AscendOrderOptions());
  &tracetable($firstres,'&'.$lastres.'&');      $r->print(&ProblemStatisticsButtons(\%cache));
 #    my $c=0;      $r->print('</table>');
 #    foreach (sort keys %mapsort) {  
 # $r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_});      $r->print(&ProblemStatisticsLegend());
 # $c++;  
   #    my $discriminantFactor;
   #    my $list;
   #    foreach (@$students) {
   #        ($discriminantFactor, $list) = &ExtractStudentData($_);
 #    }  #    }
 # my $c=1;  
 # foreach (sort keys %OpResp) {  
 #    $r->print('<br>'.$c.')'.$_.' ... '.$OpResp{$_}.' ... '.$hash{'src_'.$OpResp{$_}});  
 #    $c++;  
 # }  
   
     }  #    my ($upper, $lower) = &Discriminant($discriminantFactor);
   #    my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",
   #                  4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",
   #                  9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");
   #    &BuildStatisticsTable(\%cache, $discriminantFactor, $list, \%Header);
   
 # ------------------------------------------------------------- End render page       $r->print('</form>');
     else {  
  $r->print('<h3>Undefined course sequence</h3>');  
     }  
 }  
   
       untie(%cache);
   
 sub Title {      return;
     $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 BuildDiffGraph {
       my ($courseID)=@_;
   
 sub CreateForm {      my $graphData = &GetGraphData('DiffGraph', $courseID);
     $r->print("\n".'<form name=stat method=post action="/adm/statistics" >');      $r->print('<IMG src="/cgi-bin/graph.gif?'.$graphData.'" />');
     my $content = $ENV{'form.sort'};  
     if (!($ENV{'form.showcsv'}) &&       return;
         ($content eq '' || $content eq 'Return to Menu')) {  
  my $Ptr = '<h3>';  
  $Ptr .= '<input type=submit name=sort value="Problem Stats"/>';  
  $Ptr .= '<br><br>';  
  $Ptr .= '<input type=submit name=sort value="Problem Analysis"/>';  
  $Ptr .= '<br><br>';  
  $Ptr .= '<input type=submit name=sort value="Student Assessment"/>';  
  $Ptr .= '</h3>';  
  #$Ptr .= '<input type=submit name=sort value="Activity Log"/>';  
  $r->print( $Ptr );  
     }  
     else {  
  &ClassList();  
  if ( $content eq 'Student Assessment' ||   
      $content eq 'Create Student Report' ) {  
     &MapSecOptions();  
     &StudentOptions();  
     &StudentReport($CurStu,$StuBox{"$CurStu"});  
  }  
  elsif ( $content eq 'Problem Analysis' ) {  
     &AnalyzeProblem();  
  }  
  else {  
     &MapSecOptions();  
     &PreStatTable();  
  }  
     }  
 }  }
   
   sub BuildWrongGraph {
       my ($courseID)=@_;
   
 sub Menu {      my $graphData = &GetGraphData('WrongGraph', $courseID);
     &initial();      $r->print('<IMG src="/cgi-bin/graph.gif?'.$graphData.'" />');
 #    my $fn=$ENV{'request.course.fn'};  
 #    $r->print( '<br>'.$fn.'<br>' );  
   
 #    $Apache::lonxml::debug=1;      return;
 #    &Apache::lonhomework::showhash(%ENV);  }
 #    $Apache::lonxml::debug=0;  
   sub BuildAnalyzePage {
     &Title();      my ($cacheDB, $students, $courseID)=@_;
     my $InpStr = $ENV{'form.sort'};  
     if ($InpStr eq 'Activity Log') {      my %cache;
  &Activity();      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
     }              $r->print('<html><body>Unable to tie database.</body></html>');
     elsif ($InpStr=~/^Analyze\_/) {          return;
  &ClassList();  
  &ShowOpGraph($InpStr,$ENV{'form.interval'});  
     }  
     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>');      &ShowOpGraph(\%cache, $students, $courseID);
     $r->rflush();  
       untie(%cache);
   
       return;
 }  }
   
   sub BuildProblemAnalysisPage {
       my ($cacheDB)=@_;
   
 sub StudentOptions {      my %cache;
     my $OpSel5='';      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
     $CurStu = $ENV{'form.student'};          $r->print('<html><body>Unable to tie database.</body></html>');
     if ( $CurStu eq '' ) {           return;
         $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('<form name="ProblemAnalysisPage" method="post" ');
     $r->print( $Ptr );      $r->print('action="/adm/statistics">'."\n");
     $r->rflush();      $r->print('<tr><td></td><td align="left"><input type="submit" ');
       $r->print('name="Menu" value="Return to Menu" /></td></tr>'."\n");
       $r->print(&IntervalOptions());
       $r->print(&OptionResponseTable(\%cache));
       $r->print('</form>'."\n");
   
       untie(%cache);
   
       return;
 }  }
   
   sub BuildStudentAssessmentPage {
       my ($cacheDB, $students, $courseID)=@_;
   
 sub GetStatus {      my %cache;
     $OpSel1='';  
     $OpSel2='';  
     $OpSel3='';  
     $OpSel4='';  
   
     if ( $ENV{'form.order'} eq 'Descending' ) { $OpSel2='selected'; }      my $Ptr = '';
     else { $OpSel1 = 'selected'; }      $Ptr .= '<form name="StudentAssessmentPage" method="post" ';
       $Ptr .= 'action="/adm/statistics">'."\n";
       $Ptr .= '<table border="0"><tbody>';
       $Ptr .= '<tr><td></td><td align="left"><input type="submit" name="Menu" ';
       $Ptr .= 'value="Return to Menu" /></td></tr>'."\n";
       $r->print($Ptr);
   
     my %myHeader = reverse( %Header );      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
     $Pos = $myHeader{$ENV{'form.sort'}};          $r->print('<html><body>Unable to tie database.</body></html>');
     if ($Pos == 0) {          return;
  $OpSel1 = 'selected';  
  $ENV{'form.order'}='Ascendig';  
     }      }
   
     $CurMap = $ENV{'form.maps'};      my $selectedName = $cache{'StudentAssessmentStudent'};
     if ( $CurMap eq '' ) {       for(my $index=0; $index<(scalar @$students); $index++) {
  $CurMap = 'All Maps';          my ($username) = split(':', $students->[$index]);
  $OpSel3 = 'selected';          if($username eq $selectedName) {
               if($cache{'StudentAssessmentMove'} eq 'next') {
                   if($index == ((scalar @$students) - 1)) {
                       ($selectedName) = split(':',$students->[0]);
                   } else {
                       ($selectedName) = split(':',$students->[$index+1]);
                   }
               } elsif($cache{'StudentAssessmentMove'} eq 'previous') {
                   if($index == 0) {
                       ($selectedName) = split(':',
                                              $students->[(scalar @$students)-1]);
                   } else {
                       ($selectedName)=split(':',$students->[$index-1]);
                   }
               }
               last;
           }
     }      }
     $CurSec = $ENV{'form.section'};  
     if ( $CurSec eq '' ) {       $r->print(&MapOptions(\%cache, 'StudentAssessment'));
  $CurSec = 'All Sections';      $r->print(&StudentOptions($students, $selectedName));
         $OpSel4 = 'selected';  
       $Ptr  = '<tr><td></td><td align="left">';
       $Ptr .= '<input type="submit" name="CreateStudentAssessment" ';
       $Ptr .= 'value="Create Student Report" />';
       $Ptr .= '&nbsp&nbsp&nbsp';
       $Ptr .= '<input type="submit" name="PreviousStudent" ';
       $Ptr .= 'value="Previous Student" />';
       $Ptr .= '&nbsp&nbsp&nbsp';
       $Ptr .= '<input type="submit" name="NextStudent" ';
       $Ptr .= 'value="Next Student" />';
       $Ptr .= '&nbsp&nbsp&nbsp';
       $Ptr .= '</td></tr></tbody></table></form>'."\n";
       $r->print($Ptr);
   
       untie(%cache);
   
       if($selectedName eq 'No Student Selected') {
    $r->print('<h3><font color=blue>WARNING: ');
           $r->print('Please select a student</font></h3>');
           return;
     }      }
 }  
   
       my $name = '';
       foreach (@$students) {
           my ($currentName) = split(':',$_);
           if($currentName eq $selectedName) {
               $name = $_;
               last;
           }
       }
       if($name eq '') {
           $r->print('<h3><font color=blue>ERROR: Unknown student selected.');
           $r->print('</font></h3>');
           return;
       }
   
 sub MapSecOptions {      my $courseData = 
 # ----------------------------------- Loading the Maps Combobox          &Apache::loncoursedata::DownloadStudentCourseInformation($name, 
     my $Ptr = '<br>';                                                                   $courseID);
     $Ptr .= '<input type="submit" name="sort" value="Return to Menu" />';      if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {
     $Ptr .= '<br><b> Select &nbsp; Map &nbsp; &nbsp; </b>'."\n".          &Apache::loncoursedata::ProcessStudentData(\%cache, 
            '<select name="maps">'."\n".                                                      $courseData, $name);
     '<option '.$OpSel3.'>All Maps</option>';                                       untie(%cache);
     foreach my $key ( sort keys %maps ) {            
  $Ptr .= '<option';  
         if ($CurMap eq $key) {$Ptr .= ' selected';}       
  $Ptr .= '>'.$key."</option>\n";       
     }      }
     $Ptr .= '</select>';  
     $Ptr .= '&nbsp;&nbsp;&nbsp;';  
   
 # ----------------------------------- Loading the Sections Combobox      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
     $Ptr .= '<br><b>Select Section</b>'."\n".          $Ptr .= 'Could not tie database.';
            '<select name="section">'."\n".           return $Ptr;
     '<option '.$OpSel4.'>All Sections</option>';                               
     foreach my $key ( sort keys %section ) {            
  $Ptr .= '<option';  
         if ($CurSec eq $key) {$Ptr .= ' selected';}       
  $Ptr .= '>'.$key."</option>"."\n";       
     }      }
     $Ptr .= '</select>'."\n";      $r->print(&StudentReport(\%cache, $name));
       untie(%cache);
   
     $r->print( $Ptr );      return;
     $r->rflush();  
 }  }
   
   sub BuildMenu {
       my ($cacheDB)=@_;
   
       my %cache;
       unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
           $r->print('<html><body>Unable to tie database.</body></html>');
           return;
       }
   
       $r->print('<form name="Menu" method="post" action="/adm/statistics" >');
       $r->print(&CreateMenuForm(\%cache));
       $r->print('</form>'."\n");
   
       untie(%cache);
   
       return;
   }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
 sub handler {  sub handler {
     $r=shift;      $r=shift;
       &initial();
   
     if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {      unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
 # ------------------------------------------- Set document type for header only          $ENV{'user.error.msg'}=
  if ($r->header_only) {          $r->uri.":vgr:0:0:Cannot view grades for complete course";
     if ($ENV{'browser.mathml'}) {          return HTTP_NOT_ACCEPTABLE; 
  $r->content_type('text/xml');      }
     }   
     else {      # Set document type for header only
  $r->content_type('text/html');      if($r->header_only) {
     }          if ($ENV{'browser.mathml'}) {
     $r->send_http_header;              $r->content_type('text/xml');
     return OK;          } else {
  }                  $r->content_type('text/html');
           }
           &Apache::loncommon::no_cache($r);
           $r->send_http_header;
           return OK;
       }
   
       unless($ENV{'request.course.fn'}) {
  my $requrl=$r->uri;   my $requrl=$r->uri;
 # ----------------------------------------------------------------- Tie db file          $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
           return HTTP_NOT_ACCEPTABLE; 
       }
   
  undef %hash;      $r->content_type('text/html');
       $r->send_http_header;
   
  if ($ENV{'request.course.fn'}) {      my %cache;
     my $fn=$ENV{'request.course.fn'};      my $courseID=$ENV{'request.course.id'};
     if (-e "$fn.db") {      my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
  if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {                    "_$ENV{'user.domain'}_$courseID\_statistics.db";
 # ------------------------------------------------------------------- Hash tied      my $c = $r->connection;
     $r->content_type('text/html');  
     $r->send_http_header;      my ($returnValue, $isCached, $students) = &PrepareData($c, $cacheDB);
     &Menu();      if($returnValue ne 'OK') {
  }          $r->print('<html><body>'.$returnValue."\n".'</body></html>');
  else {          return OK;
     $r->content_type('text/html');      }
     $r->send_http_header;  
     $r->print('<html><body>Coursemap undefined.</body></html>');      my $downloadTime=0;
  }      my $GoToPage;
 # ------------------------------------------------------------------ Untie hash      if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {
  unless (untie(%hash)) {          $students = &SortStudents($students, \%cache);
     &Apache::lonnet::logthis("<font color=blue>WARNING: ".          if(defined($cache{'time'})) {
                             "Could not untie coursemap $fn (browse).</font>");               $downloadTime=$cache{'time'};
  }          } else {
               $downloadTime=localtime();
 # -------------------------------------------------------------------- All done          }
  return OK;          if(!defined($cache{'GoToPage'})) {
 # ----------------------------------------------- Errors, hash could no be tied              $GoToPage = 'Menu';
     }          } else {
  }               $GoToPage = $cache{'GoToPage'};
  else {          }
     $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";          untie(%cache);
     return HTTP_NOT_ACCEPTABLE;       } else {
  }          $r->print('<html><body>Unable to tie database.</body></html>');
           return OK;
     }      }
     else {  
         $ENV{'user.error.msg'}=  
         $r->uri.":vgr:0:0:Cannot view grades for complete course";  
   
         return HTTP_NOT_ACCEPTABLE;       &setbgcolor(0);
       $r->print(&Title());
   
       if($GoToPage eq 'ActivityLog') {
           &Activity();
       } elsif($GoToPage eq 'ProblemStatistics') {
           &BuildProblemStatisticsPage($cacheDB, $students);
       } elsif($GoToPage eq 'ProblemAnalysis') {
           &BuildProblemAnalysisPage($cacheDB);
       } elsif($GoToPage eq 'StudentAssessment') {
           &BuildStudentAssessmentPage($cacheDB, $students, $courseID);
       } elsif($GoToPage eq 'Analyze') {
           &BuildAnalyzePage($cacheDB, $students, $courseID);
       } elsif($GoToPage eq 'DoDiffGraph') {
           &BuildDiffGraph($courseID);
       } elsif($GoToPage eq 'PercentWrongGraph') {
           &BuildWrongGraph($courseID);
       } else {
           &BuildMenu($cacheDB);
     }      }
   
       $r->print("\n".'</body>'."\n".'</html>');
       $r->rflush();
   
       return OK;
 }  }
 1;  1;
 __END__  __END__
Removed from v.1.26  
changed lines
  Added in v.1.27

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