From: Bernd Blessmann Date: Mon, 16 Jan 2012 14:01:48 +0000 (+0100) Subject: join richtig benutzen. X-Git-Tag: release-2.7.0beta1~56^2~1 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=fec8a289199f43b9c24e87c5d75e0d17b85b5cf9;p=kivitendo-erp.git join richtig benutzen. Und perldoc sagt noch: Beware that unlike split, join doesn't take a pattern as its first argument. --- diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl index 37353dcca..9d28bbb0d 100644 --- a/bin/mozilla/do.pl +++ b/bin/mozilla/do.pl @@ -831,7 +831,7 @@ sub invoice { # show pricegroup in newly loaded invoice when creating invoice from delivery order for my $i (1 .. $form->{rowcount}) { - $form->{"sellprice_pg_$i"} = join /--/, $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"}; + $form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"}; } IS->get_pricegroups_for_parts(\%myconfig, \%$form); set_pricegroup($_) for 1 .. $form->{rowcount}; @@ -937,7 +937,7 @@ sub invoice_multi { # show pricegroup in newly loaded invoice when creating invoice from delivery order for my $i (1 .. $form->{rowcount}) { - $form->{"sellprice_pg_$i"} = join /--/, $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"}; + $form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"}; } IS->get_pricegroups_for_parts(\%myconfig, \%$form); set_pricegroup($_) for 1 .. $form->{rowcount};