From fec8a289199f43b9c24e87c5d75e0d17b85b5cf9 Mon Sep 17 00:00:00 2001 From: Bernd Blessmann Date: Mon, 16 Jan 2012 15:01:48 +0100 Subject: [PATCH] join richtig benutzen. Und perldoc sagt noch: Beware that unlike split, join doesn't take a pattern as its first argument. --- bin/mozilla/do.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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}; -- 2.20.1