Revision 134120bc
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 475 | 475 |
} |
| 476 | 476 |
|
| 477 | 477 |
my @a = qw(transdate invnumber name); |
| 478 |
push @a, "employee" if $self->{l_employee};
|
|
| 478 |
push @a, "employee" if $form->{l_employee};
|
|
| 479 | 479 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 480 | 480 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
| 481 | 481 |
|
| 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.