[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.12 and 1.13

version 1.12, 2002/03/22 00:18:12 version 1.13, 2002/03/22 23:06:30
Line 30 Line 30
 # 5/05,7/09,7/25/01,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei  # 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  # 11/1, 11/4, 11/16, 12/14, 12/16, 12/18,12/20,12/31 Behrouz Minaei
 # YEAR=2002  # 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;   package Apache::lonstatistics; 
Line 644  sub tracetable { Line 644  sub tracetable {
               
        my $meta=$hash{'src_'.$frid};         my $meta=$hash{'src_'.$frid};
        my $PartNo = 0;         my $PartNo = 0;
        if ($IsMap==0){   #       if ($IsMap==0){
                if ($meta) {                 if ($meta) {
    if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {     if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {
        foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {         foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
Line 656  sub tracetable { Line 656  sub tracetable {
        #$r->print('<br>'.$PartNo.'---'.$P_Order);         #$r->print('<br>'.$PartNo.'---'.$P_Order);
    }     }
        }         }
        foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {  #       foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
    if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) {  #   if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) {
 #       $r->print('<br>'.$_.&Apache::lonnet::metadata($meta,$_));  #       $r->print('<br>'.$_.&Apache::lonnet::metadata($meta,$_));
        $r->print('<br>'.$_.'...'.$P_Order);  #       $r->print('<br>'.$_.'...'.$P_Order);
        $OpResp{$P_Order+1}=$frid;  #       $OpResp{$P_Order+1}=$frid;
    }   #   } 
        }  #       }
    }     }
                }                 }
    }     }
    }   #  }
        } else {         } else {
    $cols[$#cols+1]=($P_Order+1).':'.$rid;     $cols[$#cols+1]=($P_Order+1).':'.$rid;
    my $meta=$hash{'src_'.$rid};     my $meta=$hash{'src_'.$rid};
Line 935  sub TableRow { Line 935  sub TableRow {
        $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);         $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str);
     my $Ptr =  "\n".'<tr>'.      my $Ptr =  "\n".'<tr>'.
                "\n".'<td>'.($RealIdx+1).'</td>'.                 "\n".'<td>'.($RealIdx+1).'</td>'.
 #               "\n".'<td>'.$PrOrd.$Temp.'</td>'.            #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.
                "\n".'<td>'.$Temp.'</td>'.                 "\n".'<td>'.$Temp.'</td>'.
                "\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'.                 "\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'.
                "\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'.                 "\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'.
Removed from v.1.12  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>