[LON-CAPA-cvs] cvs: loncom /interface lonstatistics.pm

minaeibi lon-capa-cvs@mail.lon-capa.org
Thu, 07 Mar 2002 00:28:55 -0000


minaeibi		Wed Mar  6 19:28:55 2002 EDT

  Modified files:              
    /loncom/interface	lonstatistics.pm 
  Log:
  leaaning the codes (2)
  
  
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.9 loncom/interface/lonstatistics.pm:1.10
--- loncom/interface/lonstatistics.pm:1.9	Wed Mar  6 19:05:21 2002
+++ loncom/interface/lonstatistics.pm	Wed Mar  6 19:28:55 2002
@@ -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.10 2002/03/07 00:28:55 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -313,8 +313,6 @@
                   "_$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 +369,6 @@
 
     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 +378,6 @@
     }
     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 +392,6 @@
 
     untie(%CachData);
     untie(%GraphDat);
-    untie(%DiscFac);       
 }
 
 
@@ -520,7 +515,6 @@
 			    $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'; } 
@@ -1080,11 +1074,7 @@
 	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"});