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>'); |