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

[minaeibi]

minaeibi		Mon Nov 25 13:17:37 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Again cleaning the source.
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.15 loncom/interface/statistics/lonproblemanalysis.pm:1.16
--- loncom/interface/statistics/lonproblemanalysis.pm:1.15	Mon Nov 25 13:12:52 2002
+++ loncom/interface/statistics/lonproblemanalysis.pm	Mon Nov 25 13:17:36 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemanalysis.pm,v 1.15 2002/11/25 18:12:52 minaeibi Exp $
+# $Id: lonproblemanalysis.pm,v 1.16 2002/11/25 18:17:36 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -117,10 +117,10 @@
         $r->print('Can not untie hash.');
         $r->rflush();
     }
-    #if($status eq 'true')
-    { &Apache::lonhtmlcommon::Close_PrgWin($r); }
 
+    &Apache::lonhtmlcommon::Close_PrgWin($r);
 
+### jason code for checing is there data in cache
 #    my $error =
 #        &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,
 #                                                                  'true',
@@ -134,7 +134,6 @@
 #        return;
 #    }
 
-
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         $Str .= 'Unable to tie database.';
         $r->print($Str);
@@ -146,8 +145,6 @@
     my $problem  = $cache{$problemId.':problem'};
     my $title    = $cache{$problemId.':title'};
     my $interval = $cache{'Interval'};
-
-#    my $title = 'LON-CAPA Statistics';
     my $heading = 'Restore this particular Option Response Problem '.
                   'Results, Please wait...';