--- loncom/interface/lonmanagekeys.pm 2003/05/02 19:00:29 1.11 +++ loncom/interface/lonmanagekeys.pm 2003/09/23 00:26:10 1.13 @@ -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.13 2003/09/23 00:26:10 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('

Key Access

'); + $r->print('

'.&mt('Key Access').'

'); if ($cenv{'keyaccess'} eq 'yes') { - $r->print('Access to this course is key controlled.
') + $r->print(&mt('Access to this course is key controlled.'). +'
') } else { - $r->print('Access to this course is open, no access keys.
'); + $r->print(&mt('Access to this course is open, no access keys').'
'); } $r->print(<

Generate New Keys

@@ -255,16 +257,16 @@ ENDKEYMENU } } else { # Start page no course id - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; $r->print(&header().&Apache::loncommon::coursebrowser_javascript()); $r->print( - 'Course ID: '); - $r->print('Domain: '.&Apache::loncommon::select_dom_form( + &mt('Course ID').': '); + $r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( $ENV{'request.role.domain'},'domain')); $r->print(&Apache::loncommon::selectcourse_link( 'keyform','course','domain')); - $r->print('
'); + $r->print('
'); $r->print(''); } return OK;