--- loncom/interface/lonmanagekeys.pm 2003/04/23 20:29:17 1.5
+++ loncom/interface/lonmanagekeys.pm 2003/05/01 02:12:43 1.6
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.5 2003/04/23 20:29:17 www Exp $
+# $Id: lonmanagekeys.pm,v 1.6 2003/05/01 02:12:43 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,7 +54,18 @@ ENDHEAD
# =================================================== Show student list to drop
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{$_}.'
');
+ }
+ return '';
+#
+# Junk below
+#
+ my ($mode,$linkto,$action,$statusmode,$classlist,$keylist);
#
# Just junk so that this compiles
#
@@ -201,7 +212,7 @@ sub handler {
$r->print($msg.'
');
}
if ($ENV{'form.listkeys'}) {
- &show_key_list($ENV{'form.listcom'},%cenv);
+ &show_key_list($r,$ENV{'form.listcom'},%cenv);
}
# --- Menu
$r->print('