--- loncom/interface/lonmanagekeys.pm 2006/03/16 22:42:58 1.18
+++ 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.18 2006/03/16 22:42:58 albertel Exp $
+# $Id: lonmanagekeys.pm,v 1.20 2006/06/05 20:44:12 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -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'}) {
@@ -276,7 +277,8 @@ 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(''.&Apache::loncommon::end_page());
}