[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.114 and 1.115

version 1.114, 2008/10/23 09:07:51 version 1.115, 2008/10/30 17:45:25
Line 612  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('Access 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 .= '</td>'."\n";
       $Str .= '</td><td align="center" valign="top">';
       $Str .= &Apache::lonstathelpers::limit_by_time_form();
       $Str .= '</td>'."\n";
       $Str .=  &Apache::loncommon::end_data_table_row();
       $Str .= &Apache::loncommon::end_data_table();
     #      #
     $Str .= '<p><span class="LC_nobreak">'      $Str .= '<p><span class="LC_nobreak">'
            .&mt('Status: [_1]',             .&mt('Status: [_1]',
Line 642  sub CreateInterface { Line 651  sub CreateInterface {
                    .' size="60" value="" readonly="readonly" />')                     .' size="60" value="" readonly="readonly" />')
            .'</span></p>';             .'</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 728  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 occurred.').'</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;
Removed from v.1.114  
changed lines
  Added in v.1.115

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