--- loncom/interface/lonmanagekeys.pm 2003/05/01 02:12:43 1.6
+++ loncom/interface/lonmanagekeys.pm 2003/05/02 15:26:36 1.9
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.6 2003/05/01 02:12:43 www Exp $
+# $Id: lonmanagekeys.pm,v 1.9 2003/05/02 15:26:36 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,13 +54,30 @@ ENDHEAD
# =================================================== Show student list to drop
sub show_key_list {
- my ($r,$comment,%cenv)=@_;
-
+ my ($r,$comment,$newonly,$checkonly,%cenv)=@_;
+ $comment=~s/\W/\./g;
my %accesskeys=&Apache::lonnet::dump
('accesskeys',$cenv{'domain'},$cenv{'num'});
+ $r->print('
List of Keys/Enter New Comments
');
+ $r->print('
');
return '';
#
# Junk below
@@ -160,6 +177,25 @@ sub genkeys {
$num.' access keys (Batch Number: '.$batchnumber.')',$batchnumber;
}
+# ---------------------------------------------------------------- Add comments
+
+sub addcom {
+ my %cenv=@_;
+ my %newcomment=();
+ undef %newcomment;
+ foreach (keys %ENV) {
+ if ($_=~/^form\.com\_(.+)$/) {
+ my $key=$1;
+ my $comment=$ENV{$_};
+ $comment=~s/^\s+//gs;
+ if ($comment) {
+ &Apache::lonnet::comment_access_key
+ ($key,$cenv{'domain'},$cenv{'num'},$comment);
+ }
+ }
+ }
+ return '';
+}
###################################################################
###################################################################
sub handler {
@@ -212,7 +248,11 @@ sub handler {
$r->print($msg.'
');
}
if ($ENV{'form.listkeys'}) {
- &show_key_list($r,$ENV{'form.listcom'},%cenv);
+ &show_key_list($r,$ENV{'form.listcom'},
+ $ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
+ }
+ if ($ENV{'form.addcom'}) {
+ &addcom(%cenv);
}
# --- Menu
$r->print('Key Access
');
@@ -227,8 +267,10 @@ Number of keys to be generated:
List Keys
-Comments/Remarks/Notes/Batch Number:
+Comments/Remarks/Notes/User/Batch Number:
+ Unused keys only
+ Used keys only
ENDKEYMENU
$r->print('