--- 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".''. "\n".''.($RealIdx+1).''. -# "\n".''.$PrOrd.$Temp.''. + # "\n".''.$PrOrd.$Temp.''. "\n".''.$Temp.''. "\n".' '.$StdNo.''. "\n".''.$TotalTries.''.