--- loncom/interface/spreadsheet/Spreadsheet.pm	2008/09/11 14:47:22	1.79
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2008/09/12 14:35:46	1.80
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.79 2008/09/11 14:47:22 bisitz Exp $
+# $Id: Spreadsheet.pm,v 1.80 2008/09/12 14:35:46 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1525,14 +1525,14 @@ sub outsheet_csv   {
     my $csvdata = '';
     my @Values;
     #
-    # Open the csv file
+    # Open the CSV file
     my $filename = '/prtspool/'.
         $env{'user.name'}.'_'.$env{'user.domain'}.'_'.
         time.'_'.rand(1000000000).'.csv';
     my $file;
     unless ($file = Apache::File->new('>'.'/home/httpd'.$filename)) {
         $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. '
                      .'Please alert your LON-CAPA administrator.'));
         $r->print("<pre>\n".$csvdata."</pre>\n");
@@ -1547,7 +1547,7 @@ sub outsheet_csv   {
     # Output the body of the spreadsheet
     $self->csv_rows($connection,$file);
     #
-    # Close the csv file
+    # Close the CSV file
     close($file);
     $r->print('<br /><br />'.
               '<a href="'.$filename.'">'.&mt('Your CSV spreadsheet.').'</a>'."\n");