[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.108 and 1.110

version 1.108, 2006/05/05 20:03:43 version 1.110, 2006/08/18 15:15:38
Line 60  use Apache::lonlocal; Line 60  use Apache::lonlocal;
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
 use Apache::lonstathelpers();  use Apache::lonstathelpers();
 use Time::HiRes;  use Time::HiRes;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 my @StatsArray;  my @StatsArray;
 my %SeqStat;    # keys are symbs, values are hash refs  my %SeqStat;    # keys are symbs, values are hash refs
Line 614  sub CreateInterface { Line 617  sub CreateInterface {
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
     $Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>';
     $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';
     $Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>';
     $Str .= '<td rowspan="2">'.      $Str .= '<td rowspan="2">'.
Line 1565  sub get_statistics { Line 1568  sub get_statistics {
     $data->{'container'}   = $sequence->compTitle;      $data->{'container'}   = $sequence->compTitle;
     $data->{'title'}       = $resource->compTitle;      $data->{'title'}       = $resource->compTitle;
     $data->{'title.link'}  = $resource->src.'?symb='.      $data->{'title.link'}  = $resource->src.'?symb='.
         &Apache::lonnet::escape($resource->symb);          &escape($resource->symb);
     #      #
     if ($SelectedFields{'deg_of_disc'}) {      if ($SelectedFields{'deg_of_disc'}) {
         $data->{'deg_of_disc'} =           $data->{'deg_of_disc'} = 
Removed from v.1.108  
changed lines
  Added in v.1.110

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