--- loncom/interface/lonmanagekeys.pm 2005/04/07 06:56:23 1.17 +++ loncom/interface/lonmanagekeys.pm 2006/06/05 20:44:12 1.20 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to manage course access keys # -# $Id: lonmanagekeys.pm,v 1.17 2005/04/07 06:56:23 albertel Exp $ +# $Id: lonmanagekeys.pm,v 1.20 2006/06/05 20:44:12 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,14 +41,9 @@ use Apache::lonlocal; ############################################################### ############################################################### sub header { - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Access Key Management'); + my $start_page=&Apache::loncommon::start_page('Access Key Management'); return(< -LON-CAPA Access Key Management - -$bodytag +$start_page
ENDHEAD @@ -228,7 +223,8 @@ sub handler { # --- Actions if ($env{'form.toggle'}) { $r->print(&togglekeyaccess(%cenv).'
'); - %cenv=&Apache::lonnet::coursedescription($env{'form.cid'}); + %cenv=&Apache::lonnet::coursedescription($env{'form.cid'}, + {'freshen_cache'=> 1}); } my $batchnumber=''; if ($env{'form.genkeys'}) { @@ -269,7 +265,7 @@ Comments/Remarks/Notes/User/Batch Number ENDKEYMENU - $r->print('
'); + $r->print(''.&Apache::loncommon::end_page()); } } else { # Start page no course id @@ -281,9 +277,10 @@ ENDKEYMENU $r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( $env{'request.role.domain'},'domain')); $r->print(&Apache::loncommon::selectcourse_link( - 'keyform','course','domain')); + 'keyform','course','domain', + undef,undef,undef,'Course')); $r->print('
'); - $r->print(''); + $r->print(''.&Apache::loncommon::end_page()); } return OK; }