');
+ $r->print('');
}
+ return '';
}
@@ -177,6 +150,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 {
@@ -199,14 +191,18 @@ sub handler {
}
if ($ENV{'form.cid'}) {
my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
- if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
+ if ($ENV{'form.listkeyscsv'}) {
#
# CSV Output
#
$r->content_type('text/csv');
+ $r->send_http_header;
#
# Do CSV
#
+ &show_key_list($r,1,$ENV{'form.listcom'},
+ $ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
+
} else {
#
# Normal web stuff
@@ -229,9 +225,12 @@ sub handler {
$r->print($msg.' ');
}
if ($ENV{'form.listkeys'}) {
- &show_key_list($r,$ENV{'form.listcom'},
+ &show_key_list($r,0,$ENV{'form.listcom'},
$ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
}
+ if ($ENV{'form.addcom'}) {
+ &addcom(%cenv);
+ }
# --- Menu
$r->print('
Key Access
');
if ($cenv{'keyaccess'} eq 'yes') {
@@ -245,11 +244,12 @@ Number of keys to be generated:
List Keys
-Comments/Remarks/Notes/User/Batch Number:
+Comments/Remarks/Notes/User/Batch Number Filter:
Unused keys only
Used keys only
-
+
+
ENDKEYMENU
$r->print('