[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.119 and 1.125

version 1.119, 2011/01/17 00:19:41 version 1.125, 2014/02/03 18:52:30
Line 74  my %SeqStat;    # keys are symbs, values Line 74  my %SeqStat;    # keys are symbs, values
 ## header for plots created with Graph.pm, both of which more than likely do  ## header for plots created with Graph.pm, both of which more than likely do
 ## not support localization.  ## not support localization.
 ##  ##
   ## Additional Notes:
   ## Localization can be done and is done before passing the phrases
   ## to the output.
   ## This might conflict with special characters, e.g. German Umlaute or
   ## chinese characters. Do not use such characters in this case.
   ## If this failed, consider that the sequence and folder names
   ## are also passed to the output and would fail the same way.
   ##
 #  #
 #  #
 ##  ##
Line 85  my %SeqStat;    # keys are symbs, values Line 93  my %SeqStat;    # keys are symbs, values
 ## title           yes      any scalar  This is what the user sees to identify  ## title           yes      any scalar  This is what the user sees to identify
 ##                                      the field.  Passed through &mt().  ##                                      the field.  Passed through &mt().
 ## long_title      yes      any scalar  Used as graph heading and in excel  ## long_title      yes      any scalar  Used as graph heading and in excel
 ##                                      output.  NOT translated  ##                                      output.  Passed through &mt().
 ## align           no    (left|right|center)  HTML cell contents alignment  ## align           no    (left|right|center)  HTML cell contents alignment
 ## color           yes      html color  HTML cell background color  ## color           yes      html color  HTML cell background color
 ##                                      used to visually group statistics  ##                                      used to visually group statistics
Line 275  my @Fields = ( Line 283  my @Fields = (
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Degree of Difficulty'.               long_title => 'Degree of Difficulty'.
                            '[ 1 - ((#YES+#yes) / Tries) ]',                             ' ~[ 1 - ((#YES+#yes) / Tries) ~]',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'yes',               defaultselected => 'yes',
            },             },
Line 579  sub parse_field_selection { Line 587  sub parse_field_selection {
   
 sub field_selection_input {  sub field_selection_input {
     my $Str = '<select name="fieldselections" multiple="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">'.&mt('all').'</option>'."\n";
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($field->{'selectable'} ne 'yes');          next if ($field->{'selectable'} ne 'yes');
         $Str .= '    <option value="'.$field->{'name'}.'" ';          $Str .= '    <option value="'.$field->{'name'}.'" ';
         if ($field->{'selected'} eq 'yes') {          if ($field->{'selected'} eq 'yes') {
             $Str .= 'selected ';              $Str .= 'selected="selected" ';
         }          }
         $Str .= '>'.$field->{'title'}.'</option>'."\n";          $Str .= '>'.&mt($field->{'title'}).'</option>'."\n";
     }      }
     $Str .= "</select>\n";      $Str .= "</select>\n";
 }  }
Line 611  sub CreateInterface { Line 619  sub CreateInterface {
     &parse_field_selection();      &parse_field_selection();
     #      #
     my $Str = '';      my $Str = '';
     $Str .= '<p>';  
     $Str .= &Apache::loncommon::start_data_table();      $Str .= &Apache::loncommon::start_data_table();
     $Str .= &Apache::loncommon::start_data_table_header_row();      $Str .= &Apache::loncommon::start_data_table_header_row();
     $Str .= '<th>'.&mt('Sections').'</th>';      $Str .= '<th>'.&mt('Sections').'</th>';
Line 637  sub CreateInterface { Line 644  sub CreateInterface {
     $Str .= &field_selection_input();      $Str .= &field_selection_input();
     $Str .= '</td><td align="center" valign="top">';      $Str .= '</td><td align="center" valign="top">';
     $Str .= &plot_dropdown();      $Str .= &plot_dropdown();
     $Str .= '</td>'."\n";      $Str .= "\n";
     $Str .= '</td><td align="center" valign="top">';      $Str .= '</td><td align="center" valign="top">';
     $Str .= &Apache::lonstathelpers::limit_by_time_form();      $Str .= &Apache::lonstathelpers::limit_by_time_form();
     $Str .= '</td>'."\n";      $Str .= '</td>'."\n";
     $Str .=  &Apache::loncommon::end_data_table_row();      $Str .=  &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();      $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;'x10);      $Str .= ('&nbsp;'x10);
Line 747  sub BuildProblemStatisticsPage { Line 747  sub BuildProblemStatisticsPage {
         return;          return;
     }      }
     if (exists($env{'form.Excel'})) {      if (exists($env{'form.Excel'})) {
         $r->print('<h4>'.          $r->print('<p>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</p>');
         &Excel_output($r);          &Excel_output($r);
     } else {      } else {
         $r->print('<input type="submit" name="Excel" value="'.          $r->print('<input type="submit" name="Excel" value="'.
                   &mt('Produce Excel Output').'" />'.'&nbsp;'x5);                    &mt('Produce Excel Output').'" />'.'&nbsp;'x5);
         $r->rflush();          $r->rflush();
         $r->print('<h4>'.          $r->print('<p>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</p>');
         my $count = 0;          my $count = 0;
         foreach my $seq (@sequences) {          foreach my $seq (@sequences) {
             my @resources =              my @resources =
Line 765  sub BuildProblemStatisticsPage { Line 765  sub BuildProblemStatisticsPage {
             $count += scalar(@resources);              $count += scalar(@resources);
         }          }
         if ($count > 10) {          if ($count > 10) {
             $r->print('<h2>'.              $r->print('<p>'.
                       &mt('Compiling statistics for [_1] problems',$count).                        &mt('Compiling statistics for [quant,_1,problem]',$count).
                       '</h2>');                        '</p>');
             if ($count > 30) {              if ($count > 30) {
                 $r->print('<h3>'.&mt('This will take some time.').'</h3>');                  $r->print('<p class="LC_info">'.&mt('This will take some time.').'</p>');
             }              }
             $r->rflush();              $r->rflush();
         }          }
Line 801  sub output_sequence_statistics { Line 801  sub output_sequence_statistics {
     $r->print('<h2>'.&mt('Sequence Statistics').      $r->print('<h2>'.&mt('Sequence Statistics').
       &Apache::loncommon::help_open_topic('Statistics_Sequence').        &Apache::loncommon::help_open_topic('Statistics_Sequence').
       '</h2>');        '</h2>');
     $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".      $r->print(&Apache::loncommon::start_data_table());
               '<table border="0" cellpadding="3">'."\n".  
               '<tr bgcolor="#FFFFE6">');  
     $r->print(&sequence_html_header());      $r->print(&sequence_html_header());
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         last if ($c->aborted);          last if ($c->aborted);
         &compute_sequence_statistics($seq);          &compute_sequence_statistics($seq);
         $r->print(&sequence_html_output($seq));          $r->print(&sequence_html_output($seq));
     }      }
     $r->print('</table>');      $r->print(&Apache::loncommon::end_data_table());
     $r->print('</table>');  
     $r->rflush();      $r->rflush();
     return;      return;
 }  }
Line 827  sub output_sequence_statistics { Line 824  sub output_sequence_statistics {
 sub output_html_by_sequence {  sub output_html_by_sequence {
     my ($r) = @_;      my ($r) = @_;
     my $c = $r->connection();      my $c = $r->connection();
     $r->print(&html_preamble());      $r->print('<br />'.&html_preamble());
     #      #
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         last if ($c->aborted);          last if ($c->aborted);
         $r->print("<h3>".$seq->compTitle."</h3>".          $r->print("<h3>".$seq->compTitle."</h3>".
                   '<table border="0"><tr><td bgcolor="#777777">'."\n".                      &Apache::loncommon::start_data_table().
                   '<table border="0" cellpadding="3">'."\n".                      &Apache::loncommon::start_data_table_header_row().
                   '<tr bgcolor="#FFFFE6">'.                      &statistics_table_header('no container').
                   &statistics_table_header('no container')."</tr>\n");                      &Apache::loncommon::end_data_table_header_row()."\n");
         my @Data = &compute_statistics_on_sequence($seq);          my @Data = &compute_statistics_on_sequence($seq);
         foreach my $data (@Data) {          foreach my $data (@Data) {
             $r->print('<tr>'.&statistics_html_table_data($data,              $r->print(&Apache::loncommon::start_data_table_row().
                                                          'no container').                      &statistics_html_table_data($data,'no container').
                       "</tr>\n");                      &Apache::loncommon::end_data_table_row()."\n");
         }          }
         $r->print('</table>'."\n".'</table>'."\n");          $r->print(&Apache::loncommon::end_data_table()."\n");
         $r->rflush();          $r->rflush();
     }      }
     return;      return;
Line 857  sub output_html_stats { Line 854  sub output_html_stats {
     my $count=0;      my $count=0;
     foreach my $data (@StatsArray) {      foreach my $data (@StatsArray) {
         if ($count++ % 50 == 0) {          if ($count++ % 50 == 0) {
             $r->print("</table>\n</table>\n");              $r->print(&Apache::loncommon::end_data_table());
             $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".              $r->print(&Apache::loncommon::start_data_table().
                       '<table border="0" cellpadding="3">'."\n".                      &Apache::loncommon::start_data_table_row().
                       '<tr bgcolor="#FFFFE6">'.                      &statistics_table_header().
                       '<tr bgcolor="#FFFFE6">'.                      &Apache::loncommon::end_data_table_row());
                       &statistics_table_header().          }
                       "</tr>\n");          $r->print(&Apache::loncommon::start_data_table_row().
         }                  &statistics_html_table_data($data).
         $r->print('<tr>'.&statistics_html_table_data($data)."</tr>\n");                  &Apache::loncommon::end_data_table_row());
     }      }
     $r->print("</table>\n</table>\n");      $r->print(&Apache::loncommon::end_data_table_row());
     return;      return;
 }  }
   
Line 884  sub html_preamble { Line 881  sub html_preamble {
                            &Apache::lonlocal::locallocaltime($endtime)                             &Apache::lonlocal::locallocaltime($endtime)
                            ).'</h3>';                             ).'</h3>';
     }      }
     $Str .= "<h3>".&mt('Compiled on [_1]',      $Str .= "<p>".&mt('Compiled on [_1]',
                        &Apache::lonlocal::locallocaltime(time))."</h3>";                         &Apache::lonlocal::locallocaltime(time))."</p>";
     return $Str;      return $Str;
 }  }
   
Line 903  sub statistics_html_table_data { Line 900  sub statistics_html_table_data {
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($options =~ /no $field->{'name'}/);          next if ($options =~ /no $field->{'name'}/);
         next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $row .= '<td bgcolor="'.$field->{'color'}.'"';          $row .= '<td style="background-color:'.$field->{'color'}.'"';
         if (exists($field->{'align'})) {          if (exists($field->{'align'})) {
             $row .= ' align="'.$field->{'align'}.'"';              $row .= ' align="'.$field->{'align'}.'"';
             }              }
Line 931  sub statistics_table_header { Line 928  sub statistics_table_header {
         next if ($options =~ /no $field->{'name'}/);          next if ($options =~ /no $field->{'name'}/);
         next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $header_row .= '<th>';          $header_row .= '<th>';
           my $header_row_text = &mt($field->{'title'});
         if (exists($field->{'sortable'}) && $field->{'sortable'} eq 'yes') {          if (exists($field->{'sortable'}) && $field->{'sortable'} eq 'yes') {
             $header_row .= '<a href="javascript:'.              $header_row .=
                   '<a href="javascript:'.
                 'document.Statistics.sortby.value='."'".$field->{'name'}."'".                  'document.Statistics.sortby.value='."'".$field->{'name'}."'".
                     ';document.Statistics.submit();">';                  ';document.Statistics.submit();">'.
         }                  $header_row_text.
         $header_row .= &mt($field->{'title'});                  '</a>';
         if ($options =~ /sortable/) {          } else {
             $header_row.= '</a>';              $header_row .= $header_row_text;
         }          }
         if ($options !~ /no plots/        &&           if ($options !~ /no plots/        && 
             exists($field->{'graphable'}) &&               exists($field->{'graphable'}) && 
Line 955  sub statistics_table_header { Line 954  sub statistics_table_header {
 }  }
   
 sub sequence_html_header {  sub sequence_html_header {
     my $Str .= '<tr>';      my $Str .= &Apache::loncommon::start_data_table_header_row();
     foreach my $field (@SeqFields) {      foreach my $field (@SeqFields) {
 #        next if ($field->{'selected'} ne 'yes');  #        next if ($field->{'selected'} ne 'yes');
         $Str .= '<th bgcolor="'.$field->{'color'}.'"';          $Str .= '<th bgcolor="'.$field->{'color'}.'"';
         $Str .= '>'.$field->{'title'}.'</th>';          $Str .= '>'.&mt($field->{'title'}).'</th>';
     }      }
     $Str .= '</tr>';      $Str .= &Apache::loncommon::end_data_table_header_row();
     return $Str;      return $Str;
 }  }
   
Line 969  sub sequence_html_header { Line 968  sub sequence_html_header {
 sub sequence_html_output {  sub sequence_html_output {
     my ($seq) = @_;      my ($seq) = @_;
     my $data = $SeqStat{$seq->symb};      my $data = $SeqStat{$seq->symb};
     my $row = '<tr>';      my $row = &Apache::loncommon::start_data_table_row();
     foreach my $field (@SeqFields) {      foreach my $field (@SeqFields) {
         next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $row .= '<td bgcolor="'.$field->{'color'}.'"';          $row .= '<td bgcolor="'.$field->{'color'}.'"';
Line 984  sub sequence_html_output { Line 983  sub sequence_html_output {
         }          }
         $row .= '</td>';          $row .= '</td>';
     }      }
     $row .= '</tr>'."\n";      $row .= &Apache::loncommon::end_data_table_row()."\n";
     return $row;      return $row;
 }  }
   
Line 1015  sub make_single_stat_plot { Line 1014  sub make_single_stat_plot {
     my $title; my $yaxis;      my $title; my $yaxis;
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($field->{'name'} ne $datafield);          next if ($field->{'name'} ne $datafield);
         $title = $field->{'long_title'};          $title = &mt($field->{'long_title'});
         $yaxis = $field->{'title'};          $yaxis = &mt($field->{'title'});
         last;          last;
     }      }
     if ($title eq '' || $yaxis eq '') {      if ($title eq '' || $yaxis eq '') {
         # datafield is something we do not know enough about to plot          # datafield is something we do not know enough about to plot
         $r->print('<h3>'.          $r->print('<p class="LC_warning">'.
                   &mt('Unable to plot the requested statistic.').                    &mt('Unable to plot the requested statistic.').
                   '</h3>');                    '</p>');
         return;          return;
     }      }
     #      #
Line 1050  sub make_single_stat_plot { Line 1049  sub make_single_stat_plot {
     }      }
     #      #
     $r->print("<p>".&Apache::loncommon::DrawBarGraph($title,      $r->print("<p>".&Apache::loncommon::DrawBarGraph($title,
                                                      'Problem Number',                                                       &mt('Problem Number'),
                                                      $yaxis,                                                       $yaxis,
                                                      $max,                                                       $max,
                                                      undef, # colors                                                       undef, # colors
Line 1115  sub degrees_plot { Line 1114  sub degrees_plot {
     my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/.      my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/.
                     '<data>'.join(',',@Diff).'</data>'.$/;                      '<data>'.join(',',@Diff).'</data>'.$/;
     #      #
     my $title = 'Degree of Discrimination\nand Degree of Difficulty';      my $title = &mt('Degree of Discrimination[_1]and Degree of Difficulty','\n');
     if ($xmax > 50) {      if ($xmax > 50) {
         $title = 'Degree of Discrimination and Degree of Difficulty';          $title = &mt('Degree of Discrimination and Degree of Difficulty');
     }      }
       my %lt = &Apache::lonlocal::texthash(
           'alttag' => 'Degree of Discrimination and Degree of Difficulty Plot',
           'xlabel' => 'Problem Number',
       );
     #      #
     $plot=<<"END";      $plot=<<"END";
 <gnuplot   <gnuplot 
Line 1130  sub degrees_plot { Line 1133  sub degrees_plot {
     align="center"      align="center"
     border="on"      border="on"
     transparent="on"      transparent="on"
     alttag="Degree of Discrimination and Degree of Difficulty Plot"      alttag="$lt{'alttag'}"
     samples="100"      samples="100"
     bgcolor="xffffff"      bgcolor="xffffff"
     height="$height"      height="$height"
Line 1141  sub degrees_plot { Line 1144  sub degrees_plot {
         box="off" />          box="off" />
     <title>$title</title>      <title>$title</title>
     <axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" />      <axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" />
     <xlabel>Problem Number</xlabel>      <xlabel>$lt{'xlabel'}</xlabel>
     <curve       <curve 
         linestyle="linespoints"           linestyle="linespoints" 
         name="DoDisc"           name="DoDisc" 
Line 1203  sub tries_data_plot { Line 1206  sub tries_data_plot {
                           '<data>'.join(',',@Mean).'</data>'.$/.                            '<data>'.join(',',@Mean).'</data>'.$/.
                           '<data>'.join(',',@STD).'</data>'.$/;                            '<data>'.join(',',@STD).'</data>'.$/;
     #      #
     my $title = 'Mean and S.D. of Tries';      my $title = &mt('Mean and S.D. of Tries');
     if ($xmax > 25) {      if ($xmax > 30) {
         $title = 'Mean and Standard Deviation of Tries';          $title = &mt('Mean and Standard Deviation of Tries');
     }      }
     #      #
       my %lt = &Apache::lonlocal::texthash(
           'alttag' => 'Mean and S.D of Tries Plot',
           'xlabel' => 'Problem Number',
           'ylabel' => 'Number of Tries',
       );
     $plot=<<"END";      $plot=<<"END";
 <gnuplot   <gnuplot 
     texfont="10"      texfont="10"
Line 1218  sub tries_data_plot { Line 1226  sub tries_data_plot {
     align="center"      align="center"
     border="on"      border="on"
     transparent="on"      transparent="on"
     alttag="Mean and S.D of Tries Plot"      alttag="$lt{'alttag'}"
     samples="100"      samples="100"
     bgcolor="xffffff"      bgcolor="xffffff"
     height="$height"      height="$height"
     width="$width">      width="$width">
     <title>$title</title>      <title>$title</title>
     <axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" />      <axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" />
     <xlabel>Problem Number</xlabel>      <xlabel>$lt{'xlabel'}</xlabel>
     <ylabel>Number of Tries</ylabel>      <ylabel>$lt{'ylabel'}</ylabel>
     <curve       <curve 
         linestyle="yerrorbars"          linestyle="yerrorbars"
         name="S.D. Tries"           name="S.D. Tries" 
Line 1251  END Line 1259  END
   
 sub plot_dropdown {  sub plot_dropdown {
     my $current = '';      my $current = '';
       my $title;
     #      #
     if (defined($env{'form.plot'})) {      if (defined($env{'form.plot'})) {
         $current = $env{'form.plot'};          $current = $env{'form.plot'};
Line 1266  sub plot_dropdown { Line 1275  sub plot_dropdown {
     #      #
     my $Str= "\n".'<select name="plot" size="1">';      my $Str= "\n".'<select name="plot" size="1">';
     $Str .= '<option name="none"></option>'."\n";      $Str .= '<option name="none"></option>'."\n";
     $Str .= '<option name="none2">none</option>'."\n";      $Str .= '<option name="none2">'.&mt('none').'</option>'."\n";
     foreach my $field (@Additional_Plots,@Fields) {      foreach my $field (@Additional_Plots,@Fields) {
         if (! exists($field->{'graphable'}) ||          if (! exists($field->{'graphable'}) ||
             $field->{'graphable'} ne 'yes') {              $field->{'graphable'} ne 'yes') {
Line 1274  sub plot_dropdown { Line 1283  sub plot_dropdown {
         }          }
         $Str .= '<option value="'.$field->{'name'}.'"';          $Str .= '<option value="'.$field->{'name'}.'"';
         if ($field->{'name'} eq $current) {          if ($field->{'name'} eq $current) {
             $Str .= ' selected ';              $Str .= ' selected="selected"';
         }          }
         $Str.= '>'.&mt($field->{'title'}).'</option>'."\n";          $title = &mt($field->{'long_title'});
           $title = &mt($field->{'title'}) if (!$title);
           $Str.= '>'.$title.'</option>'."\n";
     }      }
     $Str .= '</select>'."\n";      $Str .= '</select>'."\n";
     return $Str;      return $Str;
Line 1334  sub Excel_output { Line 1345  sub Excel_output {
     # Time restrictions      # Time restrictions
     my $time_string;      my $time_string;
     if (defined($starttime)) {      if (defined($starttime)) {
         # call localtime but not lonlocal:locallocaltime because excel probably  
         # cannot handle localized text.  Probably.  
         $time_string .= 'Data collected from '.localtime($time_string);  
         if (defined($endtime)) {          if (defined($endtime)) {
             $time_string .= ' to '.localtime($endtime);              $time_string .=  &mt('Data collected from [_1] to [_2]',
                                    &Apache::lonlocal::locallocaltime($starttime),
                                    &Apache::lonlocal::locallocaltime($endtime));
           } else {
               $time_string .=  &mt('Data collected from [_1]',
                                    &Apache::lonlocal::locallocaltime($starttime));
         }          }
         $time_string .= '.';  
     } elsif (defined($endtime)) {      } elsif (defined($endtime)) {
         # See note above about lonlocal:locallocaltime          $time_string .=  &mt('Data collected before [_1]',
         $time_string .= 'Data collected before '.localtime($endtime).'.';                               &Apache::lonlocal::locallocaltime($endtime));
     }      }
     if (defined($time_string)) {      if (defined($time_string)) {
         $excel_sheet->write($rows_output,$cols_output++,$time_string);          $excel_sheet->write($rows_output,$cols_output++,$time_string);
Line 1352  sub Excel_output { Line 1364  sub Excel_output {
     #      #
     # Put the date in there too      # Put the date in there too
     $excel_sheet->write($rows_output,$cols_output++,      $excel_sheet->write($rows_output,$cols_output++,
                         'Compiled on '.localtime(time));                          &mt('Compiled on [_1]',&Apache::lonlocal::locallocaltime(time)));
     #      #
     $rows_output++;      $rows_output++;
     $cols_output=0;      $cols_output=0;
Line 1595  sub get_statistics { Line 1607  sub get_statistics {
         $data->{'sections'}=$sections;          $data->{'sections'}=$sections;
         $data->{'course'} = $env{'request.course.id'};          $data->{'course'} = $env{'request.course.id'};
         my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];          my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];
         $data->{'urlres'}=$urlres;  
         my %storestats =          my %storestats =
             &LONCAPA::lonmetadata::dynamic_metadata_storage($data);              &LONCAPA::lonmetadata::dynamic_metadata_storage($data);
         my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});          my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});
Removed from v.1.119  
changed lines
  Added in v.1.125

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