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.9 and 1.10

version 1.9, 2003/05/02 15:26:36	version 1.10, 2003/05/02 16:58:56
Line 58 sub show_key_list {	Line 58 sub show_key_list {
$comment=~s/\W/\./g;	$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>');	$r->print(<<ENDTABLEHEADER);
	<script>
	function copyallcom(tf) {
	for (i=0; i<tf.elements.length; i++) {
	if (tf.elements[i].name.indexOf('com_')==0) {
	tf.elements[i].value+=tf.copyall.value;
	}
	}

	}
	</script>
	<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<br />
	<input type="text" size="40" name="copyall" />
	<input type="button" value="Copy to All" onClick="copyallcom(this.form);" />
	</th></tr>
	ENDTABLEHEADER
foreach (keys %accesskeys) {	foreach (keys %accesskeys) {
if ($_=~/^error\:/) {	if ($_=~/^error\:/) {
$r->print('<tr><td>No keys have been generated yet.</td></tr>');	$r->print('<tr><td>No keys have been generated yet.</td></tr>');
Line 73 sub show_key_list {	Line 91 sub show_key_list {
$checkout:'-').'</td><td>'.	$checkout:'-').'</td><td>'.
join('<br />',split(/\s\;\s/,$com)).	join('<br />',split(/\s\;\s/,$com)).
'</td><td><input type="text" size="40" name="com_'.$_.	'</td><td><input type="text" size="40" name="com_'.$_.
'" /></td></tr>');	'" value="" /></td></tr>');
}	}
}	}
$r->print('</table>');	$r->print('</table>');

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

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