loncom/interface/lonmanagekeys.pm - diff

Return to lonmanagekeys.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmanagekeys.pm between versions 1.6 and 1.9

version 1.6, 2003/05/01 02:12:43	version 1.9, 2003/05/02 15:26:36
Line 54 ENDHEAD	Line 54 ENDHEAD

# =================================================== Show student list to drop	# =================================================== Show student list to drop
sub show_key_list {	sub show_key_list {
my ($r,$comment,%cenv)=@_;	my ($r,$comment,$newonly,$checkonly,%cenv)=@_;
	$comment=~s/\W/\./g;
my %accesskeys=&Apache::lonnet::dump	my %accesskeys=&Apache::lonnet::dump
('accesskeys',$cenv{'domain'},$cenv{'num'});	('accesskeys',$cenv{'domain'},$cenv{'num'});
	$r->print('<h3>List of Keys/Enter New Comments</h3><table border="2"><tr><th>Key</th><th>Checked Out</th><th>Comments/Remarks/Notes</th><th>Enter Additional Comments/Remarks/Notes</th></tr>');
foreach (keys %accesskeys) {	foreach (keys %accesskeys) {
$r->print($_.' '.$accesskeys{$_}.'<br />');	if ($_=~/^error\:/) {
	$r->print('<tr><td>No keys have been generated yet.</td></tr>');
	} elsif ($accesskeys{$_}=~/$comment/) {
	my ($checkout,$com)=split(/\s\#\s/,$accesskeys{$_});
	unless ($checkout) {
	if ($checkonly) { next; }
	} else {
	if ($newonly) { next; }
	}
	$r->print("\n<tr><td><tt>".$_.'</tt></td><td>'.($checkout?
	$checkout:'-').'</td><td>'.
	join('<br />',split(/\s\;\s/,$com)).
	'</td><td><input type="text" size="40" name="com_'.$_.
	'" /></td></tr>');
	}
}	}
	$r->print('</table>');
	$r->print('<input type="submit" name="addcom" value="Add Above Comments to Keys" /><hr />');
return '';	return '';
#	#
# Junk below	# Junk below
Line 160 sub genkeys {	Line 177 sub genkeys {
$num.' access keys (Batch Number: '.$batchnumber.')',$batchnumber;	$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 {	sub handler {
Line 212 sub handler {	Line 248 sub handler {
$r->print($msg.'<br />');	$r->print($msg.'<br />');
}	}
if ($ENV{'form.listkeys'}) {	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	# --- Menu
$r->print('<h3>Key Access</h3>');	$r->print('<h3>Key Access</h3>');
Line 227 Number of keys to be generated: <input t	Line 267 Number of keys to be generated: <input t
Comments/Remarks/Notes: <input type="text" name="comments" size="30" /><br />	Comments/Remarks/Notes: <input type="text" name="comments" size="30" /><br />
<input type="submit" name="genkeys" value="Generate Keys" />	<input type="submit" name="genkeys" value="Generate Keys" />
<hr /><h3>List Keys</h3>	<hr /><h3>List Keys</h3>
Comments/Remarks/Notes/Batch Number:	Comments/Remarks/Notes/User/Batch Number:
<input type="text" name="listcom" size="30" value="$batchnumber" /><br />	<input type="text" name="listcom" size="30" value="$batchnumber" /><br />
	<input type="checkbox" name="newonly" /> Unused keys only<br />
	<input type="checkbox" name="checkonly" /> Used keys only<br />
<input type="submit" name="listkeys" value="List Keys" />	<input type="submit" name="listkeys" value="List Keys" />
ENDKEYMENU	ENDKEYMENU
$r->print('</form></body></html>');	$r->print('</form></body></html>');

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.6
changed lines
	Added in v.1.9