loncom/interface/lonmanagekeys.pm - diff

Return to lonmanagekeys.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2003/04/23 20:29:17	version 1.6, 2003/05/01 02:12:43
Line 54 ENDHEAD	Line 54 ENDHEAD

# =================================================== Show student list to drop	# =================================================== Show student list to drop
sub show_key_list {	sub show_key_list {
my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;	my ($r,$comment,%cenv)=@_;

	my %accesskeys=&Apache::lonnet::dump
	('accesskeys',$cenv{'domain'},$cenv{'num'});
	foreach (keys %accesskeys) {
	$r->print($_.' '.$accesskeys{$_}.'<br />');
	}
	return '';
	#
	# Junk below
	#
	my ($mode,$linkto,$action,$statusmode,$classlist,$keylist);
#	#
# Just junk so that this compiles	# Just junk so that this compiles
#	#
Line 201 sub handler {	Line 212 sub handler {
$r->print($msg.'<br />');	$r->print($msg.'<br />');
}	}
if ($ENV{'form.listkeys'}) {	if ($ENV{'form.listkeys'}) {
&show_key_list($ENV{'form.listcom'},%cenv);	&show_key_list($r,$ENV{'form.listcom'},%cenv);
}	}
# --- Menu	# --- Menu
$r->print('<h3>Key Access</h3>');	$r->print('<h3>Key Access</h3>');