Revision 134120bc
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/licenses.pl | ||
|---|---|---|
| 71 | 71 |
my $form = $main::form; |
| 72 | 72 |
|
| 73 | 73 |
my @items = qw(old_callback previousform); |
| 74 |
push(@items, @{ $form->{"hidden"} });
|
|
| 74 |
push @items, @{ $form->{"hidden"} } if ref $form->{hidden} eq 'ARRAY';
|
|
| 75 | 75 |
map({
|
| 76 | 76 |
print("<input type=hidden name=$_ value=\"" . quot($form->{$_}) . "\">\n"
|
| 77 | 77 |
); |
Auch abrufbar als: Unified diff
bugs die durch strict aufgedeckt wurden.