From d6bf475aee947e7451eb9b797ed0ad5ab5bcf6f8 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 8 Jun 2007 14:22:21 +0000 Subject: [PATCH] Weitere Feinheiten zum Patch "Verkaeufer und Bearbeiter wurden beim Umwandeln nicht uebernommen" --- bin/mozilla/io.pl | 3 +++ bin/mozilla/oe.pl | 8 ++++++++ 2 files changed, 11 insertions(+) diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index 6db2c5743..c32509c1f 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -1129,6 +1129,9 @@ sub order { } $form->{ordnumber} = $form->{invnumber}; + $form->{old_employee_id} = $form->{employee_id}; + $form->{old_salesman_id} = $form->{salesman_id}; + map { delete $form->{$_} } qw(id printed emailed queued); if ($form->{script} eq 'ir.pl' || $form->{type} eq 'request_quotation') { $form->{title} = $locale->text('Add Purchase Order'); diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index c1f06162f..f66ad04cf 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -333,6 +333,14 @@ sub form_header { $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); + + if ($form->{old_employee_id}) { + $form->{employee_id} = $form->{old_employee_id}; + } + if ($form->{old_salesman_id}) { + $form->{salesman_id} = $form->{old_salesman_id}; + } + map { $form->{$_} =~ s/\"/"/g } qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact -- 2.20.1