Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.46 and 1.48

version 1.46, 2006/08/18 15:15:38 version 1.48, 2008/09/12 14:35:45
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("Problems occured 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;
 }  }

Removed from v.1.46  
changed lines
  Added in v.1.48


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