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

[minaeibi]

minaeibi		Sat Sep  7 19:07:38 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Fixed a bug in showing the problem Analyais table
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.9 loncom/interface/statistics/lonproblemanalysis.pm:1.10
--- loncom/interface/statistics/lonproblemanalysis.pm:1.9	Wed Aug 14 17:51:51 2002
+++ loncom/interface/statistics/lonproblemanalysis.pm	Sat Sep  7 19:07:38 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemanalysis.pm,v 1.9 2002/08/14 21:51:51 stredwic Exp $
+# $Id: lonproblemanalysis.pm,v 1.10 2002/09/07 23:07:38 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,12 +26,8 @@
 # http://www.lon-capa.org/
 #
 # (Navigate problems for statistical reports
-# YEAR=2001
-# 5/5,7/9,7/25/1,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,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
-# 5/12,5/14,5/15,5/19,5/26,7/16  Behrouz Minaei
+# 5/12,7/26  Behrouz Minaei
 #
 ###
 
@@ -70,7 +66,7 @@
     $Ptr .= '</td></tr></table><br>';
     $r->print($Ptr);
     $r->rflush();
-    $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache));
+    $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r));
 
     untie(%cache);
 
@@ -230,7 +226,7 @@
 }
 
 sub OptionResponseTable {
-    my ($optionResponses,$cache)=@_;
+    my ($optionResponses,$cache,$r)=@_;
 
     my @optionResponses=split(':::', $optionResponses);
     my %partCount;
@@ -246,7 +242,7 @@
             $sequences{$sequence} .= ':::'.$_;
         }
     }
-
+    
     my $Str = '';
 
     foreach my $sequence (@orderedSequences) {
@@ -259,7 +255,8 @@
         my $count = 1;
         foreach(@optionProblems) {
             my (undef, $problemId, $part, $response)=
-                split(':',$sequences{$sequence});
+                split(':',$optionProblems[$count-1]);
+#                split(':',$sequences{$sequence});
             my $uri = $cache->{$problemId.':source'};
             my $title = $cache->{$problemId.':title'};