--- loncom/interface/lonstatistics.pm	2002/03/07 00:05:21	1.9
+++ loncom/interface/lonstatistics.pm	2002/03/17 01:30:00	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstatistics.pm,v 1.9 2002/03/07 00:05:21 minaeibi Exp $
+# $Id: lonstatistics.pm,v 1.11 2002/03/17 01:30:00 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@
 # 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
 # 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; 
@@ -80,6 +80,35 @@ my %Header = (0,"Homework Sets Order",1,
               4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",
               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
 sub ProcessDisc {
     my @List = @_;
@@ -313,8 +342,6 @@ sub PreStatTable {
                   "_$ENV{'user.domain'}_$cid\_statistics.db";
     my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
                   "_$ENV{'user.domain'}_$cid\_graph.db";
-    my $CachDisFac = "/home/httpd/perl/tmp/$ENV{'user.name'}".
-		     "_$ENV{'user.domain'}_$cid\_DiscFactor.db";
     my $OpSel11='';
     my $OpSel12='';
     my $OpSel13='';
@@ -371,7 +398,6 @@ sub PreStatTable {
 
     if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) {
 	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);
 	    &Cache_Statistics();
         }
@@ -381,7 +407,6 @@ sub PreStatTable {
     }
     else {
 	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);
 	    foreach (keys %DiscFac) {delete $CachData{$_};}
 	    foreach (keys %CachData) {delete $CachData{$_};}
@@ -396,7 +421,6 @@ sub PreStatTable {
 
     untie(%CachData);
     untie(%GraphDat);
-    untie(%DiscFac);       
 }
 
 
@@ -520,7 +544,6 @@ sub ExtractStudentData {
 			    $TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0;        
 			    $TotalTries += $TempHash{"$Part.Tries"};
 			    $TotParCr += $TempHash{"$Part.ParCr"};
-#$r->print($Version.'---'.$Prob.'==='.$Time.'<br>');
 			    my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
 			    if ( $Val eq 'correct_by_student' )
                                { $Wrongs = $Tries - 1; $Code = 'C'; } 
@@ -568,7 +591,7 @@ sub ExtractStudentData {
             }
 	    #else { 
 		#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++; 
 		#}
 	    #}
@@ -626,7 +649,7 @@ sub tracetable {
 			       $P_Order++;
 			       $mapsort{$HWN} .= '&'.$P_Order;
 			       $PartNo++;
-			       $r->print('<br>'.$PartNo.'---'.$P_Order);
+			       #$r->print('<br>'.$PartNo.'---'.$P_Order);
 			   }
 		       }
 		   }
@@ -1080,11 +1103,7 @@ sub Menu {
 	else {
 	    &initial();
 	    &ClassList();
-	    if ( $content eq 'Discrimination' || #'Problem Evaluation' ||
-                 $content eq 'Recalculate Discrimintion Factor' ) {
-		&CreateDiscFac();
-	    }
-	    elsif ( $content eq 'Student Assessment' || 
+	    if ( $content eq 'Student Assessment' || 
                     $content eq 'Create Student Report' ) {
 		&StudentOptions();
 		&StudentReport($CurStu,$StuBox{"$CurStu"});