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

Diff for /loncom/interface/lonstatistics.pm between versions 1.6 and 1.7

version 1.6, 2002/03/02 23:22:32 version 1.7, 2002/03/06 18:42:01
Line 30 Line 30
 # 5/05,7/09,7/25/01,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei  # 5/05,7/09,7/25/01,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei
 # 11/1, 11/4, 11/16, 12/14, 12/16, 12/18,12/20,12/31 Behrouz Minaei  # 11/1, 11/4, 11/16, 12/14, 12/16, 12/18,12/20,12/31 Behrouz Minaei
 # YEAR=2002  # YEAR=2002
 # 1/22, 2/1, 2/6, 2/25, 3/2 Behrouz Minaei  # 1/22, 2/1, 2/6, 2/25, 3/2, 3/6 Behrouz Minaei
 ###  ###
   
 package Apache::lonstatistics;   package Apache::lonstatistics; 
Line 41  use Apache::lonnet(); Line 41  use Apache::lonnet();
 use Apache::lonhomework;  use Apache::lonhomework;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
 #use Benchmark;  
   
 # -------------------------------------------------------------- Module Globals  # -------------------------------------------------------------- Module Globals
 my %hash;  my %hash;
Line 52  my %mapsort; Line 51  my %mapsort;
 my %section;  my %section;
 my %StuBox;  my %StuBox;
 my %DiscFac;  my %DiscFac;
   my %DisUp;
   my %DisLow;
   my $UpCnt;
 my $CurMap;  my $CurMap;
 my $CurSec;  my $CurSec;
 my $CurStu;  my $CurStu;
Line 77  my $HWN; Line 79  my $HWN;
 my $P_Order;  my $P_Order;
 my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",  my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",
               4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",                4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",
               9,"S.D.",10,"Skew.",11,"Map");                9,"S.D.",10,"Skew.",
 #             11,"Dis.F.",12,"Resourse URL");                11,"D.F.",12,"U.A.",13,"L.A.",14,"U.R.",15,"L.R.");
   
   #------- Processing upperlist and lowerlist according to each problem
   sub ProcessDisc {
       my @List = @_;
       @List = sort (@List);
       my $Count = $#List+1;
       my $Prb;
       my @Dis;
       my $Slvd=0;
       my $tmp;
       my $Sum=0;
       my $nIdx=0;
       my $nStud=0;
       my %Proc;
       undef %Proc;
       while ($nIdx<$Count) {
    ($Prb,$tmp)=split(/\=/,$List[$nIdx]);
    @Dis=split(/\+/,$tmp);
    my $Temp = $Prb;
    do {
       $nIdx++;
       $nStud++;
       $Sum += $Dis[$CurDis];
       ($Prb,$tmp)=split(/\=/,$List[$nIdx]);
       @Dis=split(/\+/,$tmp);
    } while ( $Prb eq $Temp && $nIdx < $Count );
    $Proc{$Temp}=$Sum.':'.$nStud;
    $Proc{$Temp}=($Sum/$nStud).':'.$nStud;
   #        $r->print("$nIdx) $Temp --> ($nStud) $Proc{$Temp} <br>");
    $Sum=0;
    $nStud=0;
       }
       return %Proc;
   }
   
   
   #------- Creating Discimination factor   
   sub Discriminant {
       my $Count=0;
       foreach (keys(%DiscFac)){ 
    $Count++;
       }
       $UpCnt = int(0.27*$Count);
       my $low=0;
       my $up=$Count-$UpCnt;
       my @UpList=();
       my @LowList=();
       $Count=0;
       foreach my $key (sort(keys(%DiscFac))){ 
    $Count++;    
           #$r->print("<br>$Count) $key = $DiscFac{$key}");
    if ($low < $UpCnt || $Count > $up) {
       $low++;
       my $str=$DiscFac{$key};
       foreach(split(/\:/,$str)){
    if ($_) {
       if ($low<$UpCnt){push(@LowList,$_);}
       else {push(@UpList,$_);}
    }
       }
    }
       }
       %DisUp=&ProcessDisc(@UpList);
       %DisLow=&ProcessDisc(@LowList);
   }
   
      
 sub NumericSort {            sub NumericSort {          
     $a <=> $b;      $a <=> $b;
 }  }
   
 # ------ Create different Student Report   # ------ Create different Student Report 
 sub StudentReport {  sub StudentReport {
   
     my ($sname,$sdom)=@_;      my ($sname,$sdom)=@_;
   
     if ( $sname eq 'All Students' ) {      if ( $sname eq 'All Students' ) {
  $r->print( '<h3><font color=blue>WARNING:    $r->print( '<h3><font color=blue>WARNING: 
                     Please select a student</font></h3>' );                      Please select a student</font></h3>' );
  return;   return;
     }      }
     my $shome=&Apache::lonnet::homeserver( $sname,$sdom );                my $shome=&Apache::lonnet::homeserver($sname,$sdom);          
     my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$cid,$shome );      my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$cid,$shome );
     my %result = ();      my %result = ();
     my $ResId;      my $ResId;
Line 164  sub StudentReport { Line 234  sub StudentReport {
             $Code='U';              $Code='U';
             $Tries = 0;              $Tries = 0;
             $Wrongs = 0;              $Wrongs = 0;
      $LatestVersion = $result{"version:$Prob"};              $LatestVersion = $result{"version:$Prob"};
   
     if ( $LatestVersion ) {      if ( $LatestVersion ) {
  for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {   for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) {
     my $vkeys = $result{"$Version:keys:$Prob"};      my $vkeys = $result{"$Version:keys:$Prob"};
Line 189  sub StudentReport { Line 258  sub StudentReport {
     $TempHash{"$Part.Wrongs"} = $Wrongs;      $TempHash{"$Part.Wrongs"} = $Wrongs;
  }   }
          }           }
                 }                   }
  for ( my $n = 0; $n < $PartNo; $n++ ) {     for ( my $n = 0; $n < $PartNo; $n++ ) {  
     my $part = $TempHash{$n};      my $part = $TempHash{$n};
     if ($PtrTry ne '') {$PtrTry .= ',';}      if ($PtrTry ne '') {$PtrTry .= ',';}
Line 212  sub StudentReport { Line 281  sub StudentReport {
 }  }
   
 sub CreateTable {  sub CreateTable {
       my $ColNo=0;
       foreach (keys(%Header)){ 
    $ColNo++;
       } 
     my ($Hd, $Hid)=@_;      my ($Hd, $Hid)=@_;
     if ( $Hd == 1 ) {      if ( $Hd == 1 ) {
 # $Hid=~/(\d+)\.(\d+)/;  
  $r->print('<br><a href="'.$hash{'src_'.$Hid}.   $r->print('<br><a href="'.$hash{'src_'.$Hid}.
                   '" target="_blank">'.$hash{'title_'.$Hid}.'</a>'                    '" target="_blank">'.$hash{'title_'.$Hid}.'</a>');
 #                  .' ('.&Apache::lonnet::declutter($hash{'map_id_'.$1}).')'  
                  );  
     }      }
     my $Result = "\n".'<table border=2>';      my $Result = "\n".'<table border=2>';
     $Result .= '<tr><th>P#</th>'."\n";      $Result .= '<tr><th>P#</th>'."\n";
     for ( my $nIdx=0; $nIdx < 11; $nIdx++ ) {       for ( my $nIdx=0; $nIdx < $ColNo; $nIdx++ ) { 
  $Result .= '<th>'.'<input type="submit" name="sort" value="'.   $Result .= '<th>'.'<input type="submit" name="sort" value="'.
                    $Header{$nIdx}.'" />'.'</th>'."\n";                     $Header{$nIdx}.'" />'.'</th>'."\n";
     }      }
Line 270  sub PreStatTable { Line 340  sub PreStatTable {
     $Ptr .= '<input type="submit" name="sort" value="%Wrong Graph" />'."\n";      $Ptr .= '<input type="submit" name="sort" value="%Wrong Graph" />'."\n";
   
     $Ptr .= '<pre>'.      $Ptr .= '<pre>'.
     '  #Stdnts: Total Number of Students opened the problem.<br>'.       '<b>  #Stdnts</b>: Total Number of Students opened the problem.<br>'. 
     '  Tries  : Total Number of Tries for solving the problem.<br>'.       '<b>  Tries  </b>: Total Number of Tries for solving the problem.<br>'. 
     '  Mod    : Maximunm Number of Tries for solving the problem.<br>'.       '<b>  Mod   </b> : Maximunm Number of Tries for solving the problem.<br>'. 
     '  Mean   : Average Number of the tries. [ Tries / #Stdnts ]<br>'.      '<b>  Mean   </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'.
     '  #YES   : Number of students solved the problem correctly.<br>'.       '<b>  #YES   </b>: Number of students solved the problem correctly.<br>'. 
     '  #yes   : Number of students solved the problem by override.<br>'.      '<b>  #yes   </b>: Number of students solved the problem by override.<br>'.
     '  %Wrng  : Percentage of students tried to solve the problem but'.      '<b>  %Wrng  </b>: Percentage of students tried to solve the problem but'.
     ' still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]<br>'.      ' still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]<br>'.
 #    '  DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'.  #    '  DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'.
     '  DoDiff : Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'.      '<b>  DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'.
     '  S.D.   : Standard Deviation of the tries.'.      '<b>  S.D.  </b> : Standard Deviation of the tries.'.
     '[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'.      '[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'.
     ' where Xi denotes every student\'s tries ]<br>'.      ' where Xi denotes every student\'s tries ]<br>'.
     '  Skew.  : Skewness of the students tries.'.      '<b>  Skew.  </b>: Skewness of the students tries.'.
     ' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]<br>'.      ' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]<br>'.
   
 #    '  Dis.F. : Discrimination Factor. [ Sum of Partial Credits Awarded / Total Number of Tries in %27 upper and lower students]</b>'.      '<b>  Dis.F. </b>: Discrimination Factor. [ Sum of Partial Credits'.
       ' Awarded / Total Number of Tries in %27 upper and lower students]<br>'.
       '<b>  U.A.   </b>: Upper %27 Award<br>'.
       '<b>  L.A.   </b>: Lower %27 Award<br>'.
       '<b>  U.R.   </b>: Upper %27 Records<br>'.
       '<b>  L.R.   </b>: Lower %27 Records'.
   
   #    "<br>The <b>Upper 27%</b> has <b>$UpCnt</b> records.".
   #    "&nbsp;&nbsp;The <b>Lower 27%</b> has <b>$UpCnt</b> records <br>".
   #    "The Criterion of sorting the students: ". 
   #    "<b>( Sum of Partial Credits Awarded / ".
   #    "Total Number of Tries )</b>".
   
             '</pre>';              '</pre>';
   
     $r->print($Ptr);      $r->print($Ptr);
Line 294  sub PreStatTable { Line 376  sub PreStatTable {
   
     if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) {      if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) {
  if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {   if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
       tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_READER,0640);
     tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);      tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
     &Cache_Statistics();      &Cache_Statistics();
         }          }
Line 461  sub ExtractStudentData { Line 544  sub ExtractStudentData {
     my $Yes = 0;      my $Yes = 0;
                     if ( $TempHash{$part.'.Code'} eq 'C' ||                      if ( $TempHash{$part.'.Code'} eq 'C' ||
                          $TempHash{$part.'.Code'} eq 'O'  )                            $TempHash{$part.'.Code'} eq 'O'  ) 
        {$ProbSolved++;$Yes=1;}             {$ProbSolved++;$Yes=1;}
 #    my $ptr = "$hash{'title_'.$ResId}";  
    #    my $ptr = "$hash{'title_'.$ResId}";
     my $ptr = $TempHash{$part.'.PrOrd'}.':'.$ResId;      my $ptr = $TempHash{$part.'.PrOrd'}.':'.$ResId;
   
     if ( $PartNo > 1 ) {                      if ( $PartNo > 1 ) {                
  $ptr .= "*(part $part)";   $ptr .= "*(part $part)";
  $Dis .= ':';   $Dis .= ':';
Line 477  sub ExtractStudentData { Line 562  sub ExtractStudentData {
     else {$DisF = $Fac;}      else {$DisF = $Fac;}
 #    $DisF .= '+'.$TempHash{"$part.Time"};  #    $DisF .= '+'.$TempHash{"$part.Time"};
     $TimeTot += $TempHash{"$part.Time"};      $TimeTot += $TempHash{"$part.Time"};
     $Dis .= $ptr.'*'.$ResId.'='.$DisF.'+'.$Yes;      $Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes;
   
               #$r->print('<br>'.$DisFactor,'###',$DiscFac{$DisFactor});
     $ptr .= ":$TempHash{$part.'.Tries'}".      $ptr .= ":$TempHash{$part.'.Tries'}".
             ":$TempHash{$part.'.Wrongs'}".              ":$TempHash{$part.'.Wrongs'}".
                             ":$TempHash{$part.'.Code'}";                              ":$TempHash{$part.'.Code'}";
Line 495  sub ExtractStudentData { Line 582  sub ExtractStudentData {
         }          }
  if ( $TotalTries ) {   if ( $TotalTries ) {
     my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;      my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;
 #    my $DisFactor = int(sprintf( "%.4f", $DisFac ) * 100);  
     my $DisFactor = sprintf( "%.4f", $DisFac );      my $DisFactor = sprintf( "%.4f", $DisFac );
     my $time;      $DiscFac{$DisFactor}=$Dis;
     if ($ProbSolved){              #$r->print('<br>'.$DisFactor,'###',$DiscFac{$DisFactor});
  $time = int(($TimeTot/$ProbSolved)-10000000);      #my $time;
     }      #if ($ProbSolved){
     $DiscFac{($DisFactor.':'.$sname.':'.$ProbTot.':'.$TotalOpend.':'.   #$time = int(($TimeTot/$ProbSolved)-10000000);
                       $TotalTries.':'.$ProbSolved.':'.$time)}=$Dis;      #}
 #$r->print($DisFactor.$sname.'<br> --- Dis= '.$Dis.'<br>');      #$DiscFac{($DisFactor.':'.$sname.':'.$ProbTot.':'.$TotalOpend.':'.
               #          $TotalTries.':'.$ProbSolved.':'.$time)}=$Dis;
  }   }
     }      }
     #$r->print($sname.' PrCr= '.$TotParCr.' Slvd= '.$ProbSolved.' Tries='.$TotalTries.'<br>');      #$r->print($sname.' PrCr= '.$TotParCr.' Slvd= '.$ProbSolved.' Tries='.$TotalTries.'<br>');
Line 593  sub Build_Statistics { Line 680  sub Build_Statistics {
     $r->print(<<ENDPOP);      $r->print(<<ENDPOP);
     <script>      <script>
     popwin=open('','popwin','width=400,height=100');      popwin=open('','popwin','width=400,height=100');
     popwin.document.writeln('<html><body bgcolor="#88CC88">'+      popwin.document.writeln('<html><body bgcolor="#88DDFF">'+
       '<title>LON-CAPA Statistics</title>'+        '<title>LON-CAPA Statistics</title>'+
       '<h4>Computation Progress</h4>'+        '<h4>Computation Progress</h4>'+
       '<form name=popremain>'+        '<form name=popremain>'+
Line 615  ENDPOP Line 702  ENDPOP
   
         &ExtractStudentData($students[$index],$cid);          &ExtractStudentData($students[$index],$cid);
     }      }
 #--------------------- close Progress Line  
     $r->print('<script>popwin.close()</script>');  
     $r->rflush();   
 # -------------------- sorting the Data  # -------------------- sorting the Data
       $r->print('<script>popwin.document.popremain.remaining.value="'.
                 'Calculating Discrimination Factors...";</script>');
   
     @list = sort (@list);      @list = sort (@list);
   
   
       &Discriminant();
   
     $OpSel2='';      $OpSel2='';
     $OpSel1='selected';      $OpSel1='selected';
           
Line 718  ENDPOP Line 809  ENDPOP
  $Skewness /= $StdNo;   $Skewness /= $StdNo;
     $Skewness /= $StdDev*$StdDev*$StdDev;      $Skewness /= $StdDev*$StdDev*$StdDev;
     }      }
   
   #--------------------- Compute the Discrimination Factors
       my ($UpD,$UpNo)=split(/\:/,$DisUp{$lpr[$i]});
       my ($LwD,$LwNo)=split(/\:/,$DisLow{$lpr[$i]});
       $UpNo = ($UpNo) ? $UpNo : 0;
       $LwNo = ($LwNo) ? $LwNo : 0;
       my $U_D = sprintf("%.2f", $UpD);
       my $L_D = sprintf("%.2f", $LwD);
       my $DisFac = $UpD - $LwD;
       my $_Dis = sprintf("%.2f", $DisFac);
   
 #-----------------  Some restition in presenting the float numbers  #-----------------  Some restition in presenting the float numbers
     my $Avg = sprintf( "%.2f", $Average );      my $Avg = sprintf( "%.2f", $Average );
     my $Wrng = sprintf( "%.1f", $Wrong );      my $Wrng = sprintf( "%.1f", $Wrong );
Line 727  ENDPOP Line 829  ENDPOP
     my $join = $PrOrd.':'.$Temp.':'.$StdNo.':'.      my $join = $PrOrd.':'.$Temp.':'.$StdNo.':'.
                        $TotalTries.':'.$MxTries.':'.$Avg.':'.                         $TotalTries.':'.$MxTries.':'.$Avg.':'.
                        $YES.':'.$Override.':'.$Wrng.':'.$DoD.':'.                         $YES.':'.$Override.':'.$Wrng.':'.$DoD.':'.
        $SD.':'.$Sk.':'.$Prob;         $SD.':'.$Sk.':'.$_Dis.':'.$U_D.':'.
                          $L_D.':'.$UpNo.':'.$LwNo.':'.$Prob;
     $CachData{($p_count-1)}=$join;      $CachData{($p_count-1)}=$join;
   
     $urlres=~/^(\w+)\/(\w+)/;      $urlres=~/^(\w+)\/(\w+)/;
Line 741  ENDPOP Line 844  ENDPOP
  }   }
  &CloseTable();   &CloseTable();
     }      }
   #--------------------- close Progress Line
       $r->print('<script>popwin.close()</script>');
       $r->rflush(); 
 }  }
   
 sub Cache_Statistics {  sub Cache_Statistics {
Line 793  sub Cache_Statistics { Line 899  sub Cache_Statistics {
 sub TableRow {  sub TableRow {
     my ($Str,$Idx,$RealIdx)=@_;      my ($Str,$Idx,$RealIdx)=@_;
     my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,      my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,
        $Override,$Wrng,$DoD,$SD,$Sk,$Prob)=split(/\:/,$Str);         $Override,$Wrng,$DoD,$SD,$Sk,$_Dis,$U_D,$L_D,$UpNo,$LwNo,
          $Prob)=split(/\:/,$Str);
     $r->print( "\n".'<tr>'.      $r->print( "\n".'<tr>'.
                "\n".'<td>'.($RealIdx+1).'</td>'.                 "\n".'<td>'.($RealIdx+1).'</td>'.
                "\n".'<td bgcolor="#FFFFFF">'.$Temp.'</td>'.                 "\n".'<td bgcolor="#FFFFFF">'.$Temp.'</td>'.
                "\n".'<td bgcolor="#EEFFDD"> '.$StdNo.'</td>'.                 "\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'.
                "\n".'<td bgcolor="#EEFFDD">'.$TotalTries.'</td>'.                 "\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'.
                "\n".'<td bgcolor="#EEFFDD">'.$MxTries.'</td>'.                 "\n".'<td bgcolor="#EEFFCC">'.$MxTries.'</td>'.
                "\n".'<td bgcolor="#DDFFFF">'.$Avg.'</td>'.                 "\n".'<td bgcolor="#DDFFFF">'.$Avg.'</td>'.
                "\n".'<td bgcolor="#DDFFFF"> '.$YES.'</td>'.                 "\n".'<td bgcolor="#DDFFFF"> '.$YES.'</td>'.
                "\n".'<td bgcolor="#DDFFFF"> '.$Override.'</td>'.                 "\n".'<td bgcolor="#DDFFFF"> '.$Override.'</td>'.
Line 807  sub TableRow { Line 914  sub TableRow {
                "\n".'<td bgcolor="#FFDDDD">'.$DoD.'</td>'.                 "\n".'<td bgcolor="#FFDDDD">'.$DoD.'</td>'.
                "\n".'<td bgcolor="#DDFFDD"> '.$SD.'</td>'.                 "\n".'<td bgcolor="#DDFFDD"> '.$SD.'</td>'.
                "\n".'<td bgcolor="#DDFFDD"> '.$Sk.'</td>'.                 "\n".'<td bgcolor="#DDFFDD"> '.$Sk.'</td>'.
 #               "\n".'<td>'.$res.'</td>'.                 "\n".'<td bgcolor="#FFDDCC"> '.$_Dis.'</td>'.
                  "\n".'<td bgcolor="#FFFFDD"> '.$U_D.'</td>'.
                  "\n".'<td bgcolor="#FFFFDD"> '.$L_D.'</td>'.
                  "\n".'<td bgcolor="#FFFFDD"> '.$UpNo.'</td>'.
                  "\n".'<td bgcolor="#FFFFDD"> '.$LwNo.'</td>'.
                "\n".'</tr>' );                 "\n".'</tr>' );
     $GraphDat{$RealIdx}=$DoD.':'.$Wrng;      $GraphDat{$RealIdx}=$DoD.':'.$Wrng;
 }  }
Line 924  sub ClassList { Line 1035  sub ClassList {
     $section{$ssec}=$ssec;      $section{$ssec}=$ssec;
     if ($CurSec eq 'All Sections' || $ssec eq $CurSec) {      if ($CurSec eq 'All Sections' || $ssec eq $CurSec) {
  $students[$StudNo]=$name;   $students[$StudNo]=$name;
  $StuBox{$sname}=$ssec;   $StuBox{$sname}=$sdom;
     }      }
     $StudNo++;      $StudNo++;
         }          }
Line 984  sub Menu { Line 1095  sub Menu {
  my $content = $ENV{'form.sort'};   my $content = $ENV{'form.sort'};
  if ($content eq '' || $content eq 'Return to Menu') {   if ($content eq '' || $content eq 'Return to Menu') {
     my $Ptr = '<h3>';      my $Ptr = '<h3>';
     $Ptr .= '<input type=submit name=sort value="Problem Evaluation"/>';#General Statistics"/>';      $Ptr .= '<input type=submit name=sort value="Problem Evaluation"/>';
     $Ptr .= '<br><br>';      $Ptr .= '<br><br>';
     $Ptr .= '<input type=submit name=sort value="Student Assessment"/>';      $Ptr .= '<input type=submit name=sort value="Student Assessment"/>';
     $Ptr .= '<br><br>';  
 #    $Ptr .= '<input type=submit name=sort value=Discrimination>';#"Problem Evaluation"/>';  
     $Ptr .= '</h3>';      $Ptr .= '</h3>';
     $r->print( $Ptr );      $r->print( $Ptr );
       }        }
Line 1040  sub StudentOptions { Line 1149  sub StudentOptions {
   
 sub GetStatus {  sub GetStatus {
   
     $OpSelDis1='';  #    $OpSelDis1='';
     $OpSelDis2='';  #    $OpSelDis2='';
     $OpSel1='';      $OpSel1='';
     $OpSel2='';      $OpSel2='';
     $OpSel3='';      $OpSel3='';
Removed from v.1.6  
changed lines
  Added in v.1.7

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