Revision 69239581
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 932 | 932 |
$column_data{dunning_description} =
|
| 933 | 933 |
qq|<td><a href="dn.pl?action=print_dunning&format=pdf&media=screen&| . |
| 934 | 934 |
qq|dunning_id=| . E($ref->{dunning_id}) .
|
| 935 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 935 |
join("", map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 936 | 936 |
qq|">| . H($ref->{dunning_description}) . qq|</a></td>|;
|
| 937 | 937 |
} else {
|
| 938 | 938 |
$column_data{dunning_description} = qq|<td> </td>|;
|
| ... | ... | |
| 942 | 942 |
$column_data{invnumber} =
|
| 943 | 943 |
qq|<td><a href="| . ($ref->{invoice} ? "is.pl" : "ar.pl" ) .
|
| 944 | 944 |
qq|?action=edit&id=| . H($ref->{id}) .
|
| 945 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 945 |
join("", map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 946 | 946 |
qq|">| . H($ref->{invnumber}) . qq|</a></td>|;
|
| 947 | 947 |
|
| 948 | 948 |
map { print "$column_data{$_}\n" } @column_index;
|
Auch abrufbar als: Unified diff
join() braucht natürlich mindestens zwei Argumente. Fix für Bug 626.