[BACK]Return to lonstudentsubmissions.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.47 and 1.49

version 1.47, 2008/09/11 14:47:23 version 1.49, 2008/10/23 09:07:51
Line 928  sub prepare_csv_output { Line 928  sub prepare_csv_output {
             time.'_'.rand(1000000000).'.csv';              time.'_'.rand(1000000000).'.csv';
     unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {      unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {
         $r->log_error("Couldn't open $filename for output $!");          $r->log_error("Couldn't open $filename for output $!");
         $r->print(&mt('Problems occurred in writing the csv file. '          $r->print(&mt('Problems occurred in writing the CSV file. '
                      .'This error has been logged. '                       .'This error has been logged. '
                      .'Please alert your LON-CAPA administrator.'));                       .'Please alert your LON-CAPA administrator.'));
         $outputfile = undef;          $outputfile = undef;
Line 1046  sub prepare_csv_output { Line 1046  sub prepare_csv_output {
     # Close the progress window      # Close the progress window
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     #      #
     # Tell the user where to get their csv file      # Tell the user where to get their CSV file
     $r->print('<br />'.      $r->print('<br />'.
               '<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n");                '<a href="'.$filename.'">'.&mt('Your CSV file.').'</a>'."\n");
     $r->rflush();      $r->rflush();
     return;      return;
 }  }
Line 1152  sub CreateInterface { Line 1152  sub CreateInterface {
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     #      #
     $Str .= '<p><nobr>'.&mt('Status: [_1]',      $Str .= '<p><span class="LC_nobreak">'
                          '<input type="text" '.             .&mt('Status: [_1]',
                          'name="stats_status" size="60" value="" />').                      '<input type="text" name="stats_status"'
             '</nobr>'.'</p>';                         .' size="60" value="" readonly="readonly" />')
              .'</span></p>';
     ##      ##
     return $Str;      return $Str;
 }  }
Removed from v.1.47  
changed lines
  Added in v.1.49

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