[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.11

version 1.8, 2002/03/06 23:56:13 version 1.11, 2002/03/17 01:30:00
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, 3/6 Behrouz Minaei  # 1/22, 2/1, 2/6, 2/25, 3/2, 3/6, 3/17 Behrouz Minaei
 ###  ###
   
 package Apache::lonstatistics;   package Apache::lonstatistics; 
Line 80  my %Header = (0,"Homework Sets Order",1, Line 80  my %Header = (0,"Homework Sets Order",1,
               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,"D.F.1st",12,"D.F.2nd");                9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");
   
   
   sub get_student_answers {
     my ($symb,$username,$domain,$courseid) = @_;
     my ($map,$id,$feedurl) = split(/___/,$symb);
     my (%old,%moreenv);
     my @elements=('symb','courseid','domain','username');
     foreach my $element (@elements) {
       $old{$element}=$ENV{'form.grade_'.$element};
       $moreenv{'form.grade_'.$element}=eval '$'.$element #'
     }
     $moreenv{'form.grade_target'}='answer';
     &Apache::lonnet::appenv(%moreenv);
     my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);
     &Apache::lonnet::delenv('form.grade_');
     foreach my $element (@elements) {
       $ENV{'form.grade_'.$element}=$old{$element};
     }
     $userview=~s/\<body[^\>]*\>//gi;
     $userview=~s/\<\/body\>//gi;
     $userview=~s/\<html\>//gi;
     $userview=~s/\<\/html\>//gi;
     $userview=~s/\<head\>//gi;
     $userview=~s/\<\/head\>//gi;
     $userview=~s/action\s*\=/would_be_action\=/gi;
     return $userview;
   }
   
   
   
 #------- Processing upperlist and lowerlist according to each problem  #------- Processing upperlist and lowerlist according to each problem
 sub ProcessDisc {  sub ProcessDisc {
     my @List = @_;      my @List = @_;
Line 313  sub PreStatTable { Line 342  sub PreStatTable {
                   "_$ENV{'user.domain'}_$cid\_statistics.db";                    "_$ENV{'user.domain'}_$cid\_statistics.db";
     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'}_$cid\_graph.db";
     my $CachDisFac = "/home/httpd/perl/tmp/$ENV{'user.name'}".  
      "_$ENV{'user.domain'}_$cid\_DiscFactor.db";  
     my $OpSel11='';      my $OpSel11='';
     my $OpSel12='';      my $OpSel12='';
     my $OpSel13='';      my $OpSel13='';
Line 371  sub PreStatTable { Line 398  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 381  sub PreStatTable { Line 407  sub PreStatTable {
     }      }
     else {      else {
  if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {   if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
     tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_WRCREAT,0640);  
     tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);      tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
     foreach (keys %DiscFac) {delete $CachData{$_};}      foreach (keys %DiscFac) {delete $CachData{$_};}
     foreach (keys %CachData) {delete $CachData{$_};}      foreach (keys %CachData) {delete $CachData{$_};}
Line 396  sub PreStatTable { Line 421  sub PreStatTable {
   
     untie(%CachData);      untie(%CachData);
     untie(%GraphDat);      untie(%GraphDat);
     untie(%DiscFac);         
 }  }
   
   
Line 520  sub ExtractStudentData { Line 544  sub ExtractStudentData {
     $TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0;              $TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0;        
     $TotalTries += $TempHash{"$Part.Tries"};      $TotalTries += $TempHash{"$Part.Tries"};
     $TotParCr += $TempHash{"$Part.ParCr"};      $TotParCr += $TempHash{"$Part.ParCr"};
 #$r->print($Version.'---'.$Prob.'==='.$Time.'<br>');  
     my $Val = $result{"$Version:$Prob:resource.$Part.solved"};      my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
     if ( $Val eq 'correct_by_student' )      if ( $Val eq 'correct_by_student' )
                                { $Wrongs = $Tries - 1; $Code = 'C'; }                                  { $Wrongs = $Tries - 1; $Code = 'C'; } 
Line 558  sub ExtractStudentData { Line 581  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 570  sub ExtractStudentData { Line 591  sub ExtractStudentData {
             }              }
     #else {       #else { 
  #for(my $n=0; $n<$PartNo; $n++) {   #for(my $n=0; $n<$PartNo; $n++) {
  #    push (@list, "$hash{'title_'.$ResId}*$ResId:0:0:U");   #    push (@list, "$TempHash{'0'.'.PrOrd'}.':'.$ResId:0:0:U");
  #    $ProbTot++;    #    $ProbTot++; 
  #}   #}
     #}      #}
Line 579  sub ExtractStudentData { Line 600  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 629  sub tracetable { Line 649  sub tracetable {
        $P_Order++;         $P_Order++;
        $mapsort{$HWN} .= '&'.$P_Order;         $mapsort{$HWN} .= '&'.$P_Order;
        $PartNo++;         $PartNo++;
        $r->print('<br>'.$PartNo.'---'.$P_Order);         #$r->print('<br>'.$PartNo.'---'.$P_Order);
    }     }
        }         }
    }     }
Line 1010  sub ClassList { Line 1030  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 1038  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 1054  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 
Line 1092  sub Menu { Line 1103  sub Menu {
  else {   else {
     &initial();      &initial();
     &ClassList();      &ClassList();
     if ( $content eq 'Discrimination' || #'Problem Evaluation' ||      if ( $content eq 'Student Assessment' || 
                  $content eq 'Recalculate Discrimintion Factor' ) {  
  &CreateDiscFac();  
     }  
     elsif ( $content eq 'Student Assessment' ||   
                     $content eq 'Create Student Report' ) {                      $content eq 'Create Student Report' ) {
  &StudentOptions();   &StudentOptions();
  &StudentReport($CurStu,$StuBox{"$CurStu"});   &StudentReport($CurStu,$StuBox{"$CurStu"});
Removed from v.1.8  
changed lines
  Added in v.1.11

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