[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.116

version 1.109, 2006/05/30 12:46:50 version 1.116, 2009/01/20 16:38:44
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 578  sub parse_field_selection { Line 577  sub parse_field_selection {
 }  }
   
 sub field_selection_input {  sub field_selection_input {
     my $Str = '<select name="fieldselections" multiple size="5">'."\n";      my $Str = '<select name="fieldselections" multiple="multiple" size="5">'."\n";
     $Str .= '<option value="all">all</option>'."\n";      $Str .= '<option value="all">all</option>'."\n";
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($field->{'selectable'} ne 'yes');          next if ($field->{'selectable'} ne 'yes');
Line 613  sub CreateInterface { Line 612  sub CreateInterface {
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',      $Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',
  'Statistics_Overall_Key');   'Statistics_Overall_Key');
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<p>';
     $Str .= '<tr>';      $Str .= &Apache::loncommon::start_data_table();
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= &Apache::loncommon::start_data_table_header_row();
     $Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';      $Str .= '<th>'.&mt('Sections').'</th>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';      $Str .= '<th>'.&mt('Groups').'</th>';
     $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';      $Str .= '<th>'.&mt('Access Status').'</th>';
     $Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>';      $Str .= '<th>'.&mt('Sequences and Folders').'</th>';
     $Str .= '<td rowspan="2">'.      $Str .= '<th>'.&mt('Statistics').'</th>';
         &Apache::lonstathelpers::limit_by_time_form().'</td>';      $Str .= '<th>'.&mt('Plot Graph').'</th>';
     $Str .= '</tr>'."\n";      $Str .= '<th>'.&mt('Time Period').'</th>';
       $Str .= &Apache::loncommon::end_data_table_header_row();
     #      #
     $Str .= '<tr><td align="center">'."\n";      $Str .= &Apache::loncommon::start_data_table_row();
       $Str .= '<td align="center" valign="top">'."\n";
     $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);      $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
     $Str .= '</td><td align="center">';      $Str .= '</td><td align="center" valign="top">';
     $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5);      $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5);
     $Str .= '</td><td align="center">';      $Str .= '</td><td align="center" valign="top">';
     $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
     $Str .= '</td><td align="center">';      $Str .= '</td><td align="center" valign="top">';
     #      #
     $Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5);      $Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5);
     $Str .= '</td><td>'.&field_selection_input();      $Str .= '</td><td align="center" valign="top">';
     $Str .= '</td></tr>'."\n";      $Str .= &field_selection_input();
     $Str .= '</table>'."\n";      $Str .= '</td><td align="center" valign="top">';
     #      $Str .= &plot_dropdown();
     $Str .= '<p>'.&mt('Status: [_1]',      $Str .= '</td>'."\n";
                          '<input type="text" '.      $Str .= '</td><td align="center" valign="top">';
                          'name="stats_status" size="60" value="" />'      $Str .= &Apache::lonstathelpers::limit_by_time_form();
                          ).      $Str .= '</td>'."\n";
                          '</nobr></p>';      $Str .=  &Apache::loncommon::end_data_table_row();
       $Str .= &Apache::loncommon::end_data_table();
       #
       $Str .= '<p><span class="LC_nobreak">'
              .&mt('Status: [_1]',
                       '<input type="text" name="stats_status"'
                      .' size="60" value="" readonly="readonly" />')
              .'</span></p>';
     #      #
       $Str .= '</p>';
     $Str .= '<input type="submit" name="GenerateStatistics" value="'.      $Str .= '<input type="submit" name="GenerateStatistics" value="'.
         &mt('Generate Statistics').'" />';          &mt('Generate Statistics').'" />';
     $Str .= '&nbsp;'x5;      $Str .= ('&nbsp;'x10);
     $Str .= 'Plot '.&plot_dropdown().('&nbsp;'x10);  
     #      #
     return $Str;      return $Str;
 }  }
Line 715  sub BuildProblemStatisticsPage { Line 723  sub BuildProblemStatisticsPage {
                   '</h3><p>'.                    '</h3><p>'.
                   &mt('It may take some time to update the student data '.                    &mt('It may take some time to update the student data '.
                       'for the first analysis.  Future analysis this session '.                        'for the first analysis.  Future analysis this session '.
                       ' will not have this delay.').                        'will not have this delay.').
                   '</p>');                    '</p>');
  &clean_up();   &clean_up();
         return;          return;
Line 729  sub BuildProblemStatisticsPage { Line 737  sub BuildProblemStatisticsPage {
     ($navmap,@sequences) =       ($navmap,@sequences) = 
         &Apache::lonstatistics::selected_sequences_with_assessments();          &Apache::lonstatistics::selected_sequences_with_assessments();
     if (! ref($navmap)) {      if (! ref($navmap)) {
         $r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.          $r->print('<div class="LC_error">'.&mt('A course-wide error occurred.').'</div>'.
                   '<h3>'.$navmap.'</h3>');                    '<h3>'.$navmap.'</h3>');
  &clean_up();   &clean_up();
         return;          return;
Line 1586  sub get_statistics { Line 1594  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 1602  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.116

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