Revision fec8a289
Von Bernd Blessmann vor fast 13 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 831 | 831 |
|
| 832 | 832 |
# show pricegroup in newly loaded invoice when creating invoice from delivery order |
| 833 | 833 |
for my $i (1 .. $form->{rowcount}) {
|
| 834 |
$form->{"sellprice_pg_$i"} = join /--/, $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 834 |
$form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 835 | 835 |
} |
| 836 | 836 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
| 837 | 837 |
set_pricegroup($_) for 1 .. $form->{rowcount};
|
| ... | ... | |
| 937 | 937 |
|
| 938 | 938 |
# show pricegroup in newly loaded invoice when creating invoice from delivery order |
| 939 | 939 |
for my $i (1 .. $form->{rowcount}) {
|
| 940 |
$form->{"sellprice_pg_$i"} = join /--/, $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 940 |
$form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 941 | 941 |
} |
| 942 | 942 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
| 943 | 943 |
set_pricegroup($_) for 1 .. $form->{rowcount};
|
Auch abrufbar als: Unified diff
join richtig benutzen.
Und perldoc sagt noch:
Beware that unlike split, join doesn't take a pattern as its first argument.