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

minaeibi lon-capa-cvs@mail.lon-capa.org
Fri, 22 Mar 2002 23:06:30 -0000


minaeibi		Fri Mar 22 18:06:30 2002 EDT

  Modified files:              
    /loncom/interface	lonstatistics.pm 
  Log:
  fixing the bugs
  
  
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.12 loncom/interface/lonstatistics.pm:1.13
--- loncom/interface/lonstatistics.pm:1.12	Thu Mar 21 19:18:12 2002
+++ loncom/interface/lonstatistics.pm	Fri Mar 22 18:06:30 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstatistics.pm,v 1.12 2002/03/22 00:18:12 minaeibi Exp $
+# $Id: lonstatistics.pm,v 1.13 2002/03/22 23:06:30 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, 3/17, 3/21 Behrouz Minaei
+# 1/22, 2/1, 2/6, 2/25, 3/2, 3/6, 3/17, 3/21, 3/22 Behrouz Minaei
 ###
 
 package Apache::lonstatistics; 
@@ -644,7 +644,7 @@
       
 	       my $meta=$hash{'src_'.$frid};
 	       my $PartNo = 0;
-	       if ($IsMap==0){
+	#       if ($IsMap==0){
                if ($meta) {
 		   if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {
 		       foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
@@ -656,17 +656,17 @@
 			       #$r->print('<br>'.$PartNo.'---'.$P_Order);
 			   }
 		       }
-		       foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
-			   if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) {
+#		       foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
+#			   if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) {
 #			       $r->print('<br>'.$_.&Apache::lonnet::metadata($meta,$_));
-			       $r->print('<br>'.$_.'...'.$P_Order);
-			       $OpResp{$P_Order+1}=$frid;
-			   } 
-		       }
+#			       $r->print('<br>'.$_.'...'.$P_Order);
+#			       $OpResp{$P_Order+1}=$frid;
+#			   } 
+#		       }
 		   }
                }
 	   }
-	   }
+	 #  }
        } else {
 	   $cols[$#cols+1]=($P_Order+1).':'.$rid;
 	   my $meta=$hash{'src_'.$rid};
@@ -935,7 +935,7 @@
        $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);	
     my $Ptr =  "\n".'<tr>'.
                "\n".'<td>'.($RealIdx+1).'</td>'.
-#               "\n".'<td>'.$PrOrd.$Temp.'</td>'.
+          #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.
                "\n".'<td>'.$Temp.'</td>'.
                "\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'.
                "\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'.