--- loncom/homework/lonsimpleproblemedit.pm	2003/09/09 19:39:04	1.5
+++ loncom/homework/lonsimpleproblemedit.pm	2003/09/21 21:40:06	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.5 2003/09/09 19:39:04 www Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.6 2003/09/21 21:40:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@ use strict;
 use Apache::Constants qw(:common :http);
 use Apache::loncommon;
 use Apache::lonnet;
+use Apache::lonlocal;
 
 my %qparms;
 my $prefix;
@@ -132,7 +133,7 @@ sub handler {
     my $r = shift;
 
     if ($r->header_only) {
-        $r->content_type('text/html');
+        &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
         return OK;
     }
@@ -142,7 +143,7 @@ sub handler {
 	return HTTP_NOT_ACCEPTABLE; 
     }
 # ----------------------------------------------------------------- Send header
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 # ----------------------------------------------------- Figure out where we are
     my $uri=$r->uri;
@@ -212,7 +213,8 @@ ENDDOCUMENT
         unless ($questiontypes{$qtype}) { $qtype='radio'; }
         $r->print('<b>Question Type: '.&Apache::loncommon::select_form
 	                               ($qtype,'questiontype',%questiontypes).
-'</b><br /><input type="submit" value="Store Changes" /><p>&nbsp;</p>');
+  '</b><br /><input type="submit" value="'.&mt('Store Changes').
+  '" /><p>&nbsp;</p>');
 # Question Text
         $r->print(&questiontext());
 # Radio, Option ===
@@ -229,7 +231,8 @@ ENDDOCUMENT
             unless ($randomizes{$randomize}) { $randomize='yes'; }
 	    $r->print(
 		  '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
-	          '<tr><td>Max number of foils displayed: <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />&nbsp;&nbsp;'.
+	          '<tr><td>'.&mt('Max number of foils displayed').
+': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />&nbsp;&nbsp;'.
 		      &Apache::loncommon::select_form
 		      ($randomize,'randomize',%randomizes).
 		  '</td></tr><tr><td bgcolor="#AAAAAA">');
@@ -242,7 +245,8 @@ ENDDOCUMENT
 		  '<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'.
 		  '<tr><td><input type="hidden" name="options" value="'.
                   $options.'" />Add new option: '.
-          '<input type="text" name="newopt" size="15" />Delete an option: '.
+          '<input type="text" name="newopt" size="15" />'.
+          &mt('Delete an option').': '.
           &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).
           '</td></tr><tr><td>');
 	    }
@@ -272,7 +276,7 @@ ENDDOCUMENT
             unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
 	    $r->print(
 		  '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
-	          '<tr><td>Correct answer: <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.
+	          '<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.
 		      &Apache::loncommon::select_form
 		      ($stringtype,'stringtype',%stringtypes).
 		  '</td></tr></table><br />');
@@ -281,9 +285,9 @@ ENDDOCUMENT
 	}
 # Store Button
 	$r->print(
-  '<input type="submit" value="Store Changes" /></form>');
+  '<input type="submit" value="'.&mt('Store Changes').'" /></form>');
     } else {
-	$r->print('Could not identify problem.');
+	$r->print(&mt('Could not identify problem.'));
     }
     $r->print('</body></html>');
     return OK;