[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.109 and 1.112

version 1.109, 2006/05/30 12:46:50 version 1.112, 2008/01/14 14:32:49
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;  use LONCAPA;
     
   
Line 617  sub CreateInterface { Line 616  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 1586  sub get_statistics { Line 1585  sub get_statistics {
         $data->{'urlres'}=$urlres;          $data->{'urlres'}=$urlres;
         my %storestats =           my %storestats = 
             &LONCAPA::lonmetadata::dynamic_metadata_storage($data);              &LONCAPA::lonmetadata::dynamic_metadata_storage($data);
         my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/;           my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)}); 
         &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);          &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
     }      }
     #      #
Line 1594  sub get_statistics { Line 1593  sub get_statistics {
         ($data->{'num_solved'}+0.1);          ($data->{'num_solved'}+0.1);
     #      #
     # Get the due date for research purposes (commented out most of the time)      # Get the due date for research purposes (commented out most of the time)
 #    $data->{'duedate'} =   #    my $duedate = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);;
 #        &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);  #    my $opendate = &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
 #    $data->{'opendate'} =   #    my $maxtries = &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);
 #        &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);  #    my $hinttries = &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);
 #    $data->{'maxtries'} =       my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb);
 #        &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);      $data->{'weight'} = $weight;
 #    $data->{'hinttries'} =  #    $data->{'duedate'} = $duedate; 
 #        &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);  #    $data->{'opendate'} = $opendate;
     $data->{'weight'} =  #    $data->{'maxtries'} = $maxtries;
         &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb);  #    $data->{'hinttries'} = $hinttries;
 #    $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});  #    $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});
     return $data;      return $data;
 }  }
Removed from v.1.109  
changed lines
  Added in v.1.112

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