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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.52 and 1.54

version 1.52, 2003/06/10 19:19:57 version 1.54, 2003/06/16 15:54:58
Line 203  sub CreateInterface { Line 203  sub CreateInterface {
     $Str .= '</td></tr>'."\n";      $Str .= '</td></tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     $Str .= '<input type="submit" value="Generate Statistics" />';      $Str .= '<input type="submit" value="Generate Statistics" />';
       $Str .= '&nbsp;'x5;
       $Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
       $Str .= '&nbsp;'x5;
     return $Str;      return $Str;
 }  }
   
Line 707  sub statistics_html_table_data { Line 710  sub statistics_html_table_data {
             }              }
         $row .= '>';          $row .= '>';
         if (exists($field->{'special'}) && $field->{'special'} eq 'link') {          if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
             $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.              $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';
                 ' target="_blank">';  
         }          }
         if (exists($field->{'format'})) {          if (exists($field->{'format'})) {
             $row .= sprintf($field->{'format'},$data->{$field->{'name'}});              $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
Line 882  sub get_statistics { Line 884  sub get_statistics {
     $data->{'problem_num'} = $problem_num;      $data->{'problem_num'} = $problem_num;
     $data->{'container'}   = $sequence->{'title'};      $data->{'container'}   = $sequence->{'title'};
     $data->{'title'}       = $resource->{'title'};      $data->{'title'}       = $resource->{'title'};
     $data->{'title.link'}  = $resource->{'src'};      $data->{'title.link'}  = $resource->{'src'}.'?symb='.
           &Apache::lonnet::escape($resource->{'symb'});
     #      #
     return $data;      return $data;
 }  }
Removed from v.1.52  
changed lines
  Added in v.1.54

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