loncom/interface/lonmanagekeys.pm - diff

Return to lonmanagekeys.pm CVS log

Up to [LON-CAPA] / loncom / interface

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());
}	}