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

Diff for /loncom/interface/lonstatistics.pm between versions 1.8 and 1.9

version 1.8, 2002/03/06 23:56:13 version 1.9, 2002/03/07 00:05:21
Line 558  sub ExtractStudentData { Line 558  sub ExtractStudentData {
 #    $DisF .= '+'.$TempHash{"$part.Time"};  #    $DisF .= '+'.$TempHash{"$part.Time"};
     $TimeTot += $TempHash{"$part.Time"};      $TimeTot += $TempHash{"$part.Time"};
     $Dis .= $TempHash{$part.'.PrOrd'}.'='.$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 579  sub ExtractStudentData { Line 577  sub ExtractStudentData {
     my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;      my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0;
     my $DisFactor = sprintf( "%.4f", $DisFac );      my $DisFactor = sprintf( "%.4f", $DisFac );
     $DiscFac{$DisFactor}=$Dis;      $DiscFac{$DisFactor}=$Dis;
             #$r->print('<br>'.$DisFactor,'###',$DiscFac{$DisFactor});  
     #my $time;      #my $time;
     #if ($ProbSolved){      #if ($ProbSolved){
  #$time = int(($TimeTot/$ProbSolved)-10000000);   #$time = int(($TimeTot/$ProbSolved)-10000000);
Line 1010  sub ClassList { Line 1007  sub ClassList {
     $name=&Apache::lonnet::unescape($name);      $name=&Apache::lonnet::unescape($name);
     $students[$thisindex]=$name;      $students[$thisindex]=$name;
     my ($sname,$sdom)=split(/\:/,$name);      my ($sname,$sdom)=split(/\:/,$name);
   
     #my %reply=&Apache::lonnet::idrget($sdom,$sname);      #my %reply=&Apache::lonnet::idrget($sdom,$sname);
     #my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.      #my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
     #         ':environment:lastname&generation&firstname&middlename',      #         ':environment:lastname&generation&firstname&middlename',
Line 1019  sub ClassList { Line 1015  sub ClassList {
     if ($ssec==-1) {next;}      if ($ssec==-1) {next;}
     $ssec=($ssec) ? $ssec : '(none)';      $ssec=($ssec) ? $ssec : '(none)';
     #$ssec=(int($ssec)) ? int($ssec) : $ssec;      #$ssec=(int($ssec)) ? int($ssec) : $ssec;
     #$r->print($sname.'...'.$ssec.'<br>');  
     $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;
Line 1036  sub ClassList { Line 1031  sub ClassList {
         $r->rflush();          $r->rflush();
 # --------------- Find all assessments and put them into some linear-like order  # --------------- Find all assessments and put them into some linear-like order
  &tracetable($firstres,'&'.$lastres.'&');   &tracetable($firstres,'&'.$lastres.'&');
   
 #    my $c=0;  #    my $c=0;
 #    foreach (sort keys %mapsort) {  #    foreach (sort keys %mapsort) {
 # $r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_});  # $r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_});
 # $c++;  # $c++;
 #    }  #    }
 #foreach(@cols) {  
 #    $c++;  
 #    $r->print('<br>'.$cols[$c]);  
 #}  
 #$r->print('<br> Count = '.$c);  
   
     }      }
   
 # ------------------------------------------------------------- End render page   # ------------------------------------------------------------- End render page 
Removed from v.1.8  
changed lines
  Added in v.1.9

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