loncom/interface/lonmanagekeys.pm - diff

Return to lonmanagekeys.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2013/07/15 14:32:45	version 1.27, 2014/12/11 01:48:54
Line 82 sub show_key_list {	Line 82 sub show_key_list {
</th></tr>	</th></tr>
ENDTABLEHEADER	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>');
} elsif ($accesskeys{$_}=~/$comment/) {	} elsif ($accesskeys{$_}=~/$comment/) {
Line 159 sub addcom {	Line 159 sub addcom {
my %cenv=@_;	my %cenv=@_;
my %newcomment=();	my %newcomment=();
undef %newcomment;	undef %newcomment;
foreach (keys %env) {	foreach (keys(%env)) {
if ($_=~/^form\.com\_(.+)$/) {	if ($_=~/^form\.com\_(.+)$/) {
my $key=$1;	my $key=$1;
my $comment=$env{$_};	my $comment=$env{$_};