version 1.25, 2009/10/29 14:23:23
|
version 1.27, 2014/12/11 01:48:54
|
Line 78 sub show_key_list {
|
Line 78 sub show_key_list {
|
<th>Comments/Remarks/Notes</th> |
<th>Comments/Remarks/Notes</th> |
<th>Enter Additional Comments/Remarks/Notes<br /> |
<th>Enter Additional Comments/Remarks/Notes<br /> |
<input type="text" size="40" name="copyall" /> |
<input type="text" size="40" name="copyall" /> |
<input type="button" value="Copy to All" onClick="copyallcom(this.form);" /> |
<input type="button" value="Copy to All" onclick="copyallcom(this.form);" /> |
</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{$_}; |