[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet lonspreadsheet.pm

[www]

www		Mon Sep 29 10:00:21 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	lonspreadsheet.pm 
  Log:
  At least output the right headers.
  
  
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.24 loncom/interface/spreadsheet/lonspreadsheet.pm:1.25
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.24	Tue Sep 16 11:41:16 2003
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	Mon Sep 29 10:00:21 2003
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.24 2003/09/16 15:41:16 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.25 2003/09/29 14:00:21 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,6 +62,7 @@
 use Apache::Constants qw(:common :http);
 use Apache::lonnet;
 use Apache::lonhtmlcommon;
+use Apache::lonlocal;
 use HTML::Entities();
 
 ##
@@ -208,7 +209,7 @@
     # HTML Header
     #
     if ($r->header_only) {
-        $r->content_type('text/html');
+        &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
         return OK;
     }
@@ -297,7 +298,7 @@
     #
     # Open page, try to prevent browser cache.
     #
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
 
@@ -456,7 +457,8 @@
     #
     $r->print("<table><tr>");
     if ($sheettype eq 'classcalc') {
-        $r->print('<td><input type="submit" value="Generate Spreadsheet" />'.
+        $r->print('<td><input type="submit" value="'.
+		  &mt('Generate Spreadsheet').'" />'.
                   '</td>');
     }
     if ($allowed_to_view) {