version 1.18, 2006/03/16 22:42:58
|
version 1.20, 2006/06/05 20:44:12
|
Line 223 sub handler {
|
Line 223 sub handler {
|
# --- Actions |
# --- Actions |
if ($env{'form.toggle'}) { |
if ($env{'form.toggle'}) { |
$r->print(&togglekeyaccess(%cenv).'<br />'); |
$r->print(&togglekeyaccess(%cenv).'<br />'); |
%cenv=&Apache::lonnet::coursedescription($env{'form.cid'}); |
%cenv=&Apache::lonnet::coursedescription($env{'form.cid'}, |
|
{'freshen_cache'=> 1}); |
} |
} |
my $batchnumber=''; |
my $batchnumber=''; |
if ($env{'form.genkeys'}) { |
if ($env{'form.genkeys'}) { |
Line 276 ENDKEYMENU
|
Line 277 ENDKEYMENU
|
$r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( |
$r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( |
$env{'request.role.domain'},'domain')); |
$env{'request.role.domain'},'domain')); |
$r->print(&Apache::loncommon::selectcourse_link( |
$r->print(&Apache::loncommon::selectcourse_link( |
'keyform','course','domain')); |
'keyform','course','domain', |
|
undef,undef,undef,'Course')); |
$r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />'); |
$r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />'); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
} |
} |