From 251dc385d50e0aeddbdd47c5b472cc45525647db Mon Sep 17 00:00:00 2001 From: Moritz Bunkus <m.bunkus@linet-services.de> Date: Mon, 23 May 2011 10:46:06 +0200 Subject: [PATCH] =?utf8?q?Verhindern,=20dass=20Lieferscheine=20mehrfach=20?= =?utf8?q?ein-=20bzw.=20ausgelagert=20werden=20k=C3=B6nnen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Ging in 088bf5a0 kaputt. Fix für Bug 1660. --- bin/mozilla/do.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl index 10deb0cc1..b9cfc02ab 100644 --- a/bin/mozilla/do.pl +++ b/bin/mozilla/do.pl @@ -1248,16 +1248,16 @@ sub set_stock_out { sub transfer_in { $main::lxdebug->enter_sub(); - save(no_redirect => 1); - my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; - if (DO->is_marked_as_delivered('id' => $form->{id})) { + if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) { $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'), 'back_button' => 1); } + save(no_redirect => 1); + my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount}); my @all_requests; @@ -1316,16 +1316,16 @@ sub transfer_in { sub transfer_out { $main::lxdebug->enter_sub(); - save(no_redirect => 1); - my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; - if (DO->is_marked_as_delivered('id' => $form->{id})) { + if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) { $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'), 'back_button' => 1); } + save(no_redirect => 1); + my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount}); my @all_requests; -- 2.20.1