--- loncom/interface/lonstatistics.pm 2002/03/22 00:18:12 1.12
+++ loncom/interface/lonstatistics.pm 2002/03/22 23:06:30 1.13
@@ -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 @@ sub tracetable {
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 @@ sub tracetable {
#$r->print('
'.$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('
'.$_.&Apache::lonnet::metadata($meta,$_));
- $r->print('
'.$_.'...'.$P_Order);
- $OpResp{$P_Order+1}=$frid;
- }
- }
+# $r->print('
'.$_.'...'.$P_Order);
+# $OpResp{$P_Order+1}=$frid;
+# }
+# }
}
}
}
- }
+ # }
} else {
$cols[$#cols+1]=($P_Order+1).':'.$rid;
my $meta=$hash{'src_'.$rid};
@@ -935,7 +935,7 @@ sub TableRow {
$Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);
my $Ptr = "\n".'