[LON-CAPA-cvs] cvs: loncom /interface lonmanagekeys.pm

[www]

www		Wed Apr 30 22:12:43 2003 EDT

  Modified files:              
    /loncom/interface	lonmanagekeys.pm 
  Log:
  Continued work on key management - list function
  
  
Index: loncom/interface/lonmanagekeys.pm
diff -u loncom/interface/lonmanagekeys.pm:1.5 loncom/interface/lonmanagekeys.pm:1.6
--- loncom/interface/lonmanagekeys.pm:1.5	Wed Apr 23 16:29:17 2003
+++ loncom/interface/lonmanagekeys.pm	Wed Apr 30 22:12:43 2003
@@ -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 @@
 
 # =================================================== 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{$_}.'<br />');
+    }
+    return '';
+#
+# Junk below
+#
+    my ($mode,$linkto,$action,$statusmode,$classlist,$keylist);
 #
 # Just junk so that this compiles
 #
@@ -201,7 +212,7 @@
                 $r->print($msg.'<br />');
 	    }
             if ($ENV{'form.listkeys'}) {
-		&show_key_list($ENV{'form.listcom'},%cenv);
+		&show_key_list($r,$ENV{'form.listcom'},%cenv);
             }
 # --- Menu
 	    $r->print('<h3>Key Access</h3>');