--- loncom/interface/lonmanagekeys.pm	2003/05/02 19:00:29	1.11
+++ loncom/interface/lonmanagekeys.pm	2003/09/21 21:40:06	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.11 2003/05/02 19:00:29 www Exp $
+# $Id: lonmanagekeys.pm,v 1.12 2003/09/21 21:40:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@ use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::Constants qw(:common :http REDIRECT);
 use Spreadsheet::WriteExcel;
+use Apache::lonlocal;
 
 ###############################################################
 ###############################################################
@@ -174,7 +175,7 @@ sub addcom {
 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;
     }
@@ -207,7 +208,7 @@ sub handler {
 #
 # Normal web stuff
 #
-	    $r->content_type('text/html');
+	    &Apache::loncommon::content_type($r,'text/html');
 	    $r->send_http_header;
 	    $r->print(&header());
 	
@@ -232,11 +233,12 @@ sub handler {
 		&addcom(%cenv);
             }
 # --- Menu
-	    $r->print('<h3>Key Access</h3>');
+	    $r->print('<h3>'.&mt('Key Access').'</h3>');
 	    if ($cenv{'keyaccess'} eq 'yes') {
-		$r->print('Access to this course is key controlled.<br /><input type="submit" name="toggle" value="Open Access" />')
+		$r->print(&mt('Access to this course is key controlled.').
+'<br /><input type="submit" name="toggle" value="'.&mt('Open Access').'" />')
 		} else {
-		    $r->print('Access to this course is open, no access keys.<br /><input type="submit" name="toggle" value="Control Access" />');
+		    $r->print(&mt('Access to this course is open, no access keys').'<br /><input type="submit" name="toggle" value="'.&mt('Control Access').'" />');
 	    }
 	    $r->print(<<ENDKEYMENU);
 <hr /><h3>Generate New Keys</h3>