--- loncom/interface/lonmanagekeys.pm 2003/04/23 01:55:52 1.3
+++ loncom/interface/lonmanagekeys.pm 2003/04/23 20:29:17 1.5
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.3 2003/04/23 01:55:52 www Exp $
+# $Id: lonmanagekeys.pm,v 1.5 2003/04/23 20:29:17 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -136,12 +136,17 @@ sub togglekeyaccess {
sub genkeys {
my ($num,$comments,%cenv)=@_;
+ unless ($comments) { $comments=''; }
+ $comments=~s/\#/ /g;
+ $comments=~s/\;/ /g;
unless ($num) { return 'No number of keys given.'; }
unless (($num=~/^\d+$/) && ($num>0)) {
return 'Invalid number of keys given.';
}
+ my $batchnumber='BATCH_'.time().'_'.$$;
return 'Generated '.&Apache::lonnet::generate_access_keys
- ($num,$cenv{'domain'},$cenv{'number'},$comments).' access keys.';
+ ($num,$cenv{'domain'},$cenv{'num'},$batchnumber.'; '.$comments).' of '.
+ $num.' access keys (Batch Number: '.$batchnumber.')',$batchnumber;
}
###################################################################
@@ -189,23 +194,32 @@ sub handler {
$r->print(&togglekeyaccess(%cenv).'
');
%cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
}
+ my $batchnumber='';
if ($ENV{'form.genkeys'}) {
- $r->print(
- &genkeys($ENV{'form.num'},$ENV{'form.comments'},%cenv).'
');
+ (my $msg,$batchnumber)=
+ &genkeys($ENV{'form.num'},$ENV{'form.comments'},%cenv);
+ $r->print($msg.'
');
}
+ if ($ENV{'form.listkeys'}) {
+ &show_key_list($ENV{'form.listcom'},%cenv);
+ }
# --- Menu
$r->print('