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

Diff for /loncom/interface/lonstatistics.pm between versions 1.10 and 1.11

version 1.10, 2002/03/07 00:28:55 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 562  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 620  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);
    }     }
        }         }
    }     }
Removed from v.1.10  
changed lines
  Added in v.1.11

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