--- loncom/interface/lonmanagekeys.pm 2006/03/16 22:42:58 1.18
+++ loncom/interface/lonmanagekeys.pm 2009/04/15 11:16:44 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.18 2006/03/16 22:42:58 albertel Exp $
+# $Id: lonmanagekeys.pm,v 1.24 2009/04/15 11:16:44 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -193,7 +193,7 @@ sub handler {
($cenv{'domain'},$cenv{'num'})=split(/\_/,$env{'form.cid'});
$keytype='auth';
} elsif ($cenv{'keyauth'}) {
- ($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'});
+ ($cenv{'num'},$cenv{'domain'})=split(/:/,$cenv{'keyauth'});
$keytype='auth';
} else {
$keytype='course';
@@ -223,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'}) {
@@ -259,8 +260,8 @@ Comments/Remarks/Notes:
- Unused keys only
- Used keys only
+
+
ENDKEYMENU
@@ -271,14 +272,22 @@ ENDKEYMENU
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
$r->print(&header().&Apache::loncommon::coursebrowser_javascript());
- $r->print(
- &mt('Course ID of Key Authority').': ');
- $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(''.&Apache::loncommon::end_page());
+ $r->print(&Apache::lonhtmlcommon::start_pick_box()
+ .&Apache::lonhtmlcommon::row_title(&mt('Course ID of Key Authority'))
+ .''
+ .' '.&Apache::loncommon::selectcourse_link(
+ 'keyform','course','domain',
+ undef,undef,undef,'Course')
+ .&Apache::lonhtmlcommon::row_closure()
+ .&Apache::lonhtmlcommon::row_title(&mt('Domain'))
+ .&Apache::loncommon::select_dom_form($env{'request.role.domain'},'domain')
+ .&Apache::lonhtmlcommon::row_closure(1)
+ .&Apache::lonhtmlcommon::end_pick_box()
+ );
+ $r->print(''
+ .''
+ .&Apache::loncommon::end_page()
+ );
}
return OK;
}