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