From 791090f3380a2d1797db7406b13c76ccd66f4b9e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Fri, 23 Oct 2015 14:36:44 +0200
Subject: [PATCH] =?utf8?q?Standardlagerplatz=20in=20Stammdaten=20beim=20Um?=
 =?utf8?q?lagern=20=C3=A4ndern?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Scheinbar hat dies bisweilen immer nur bei gleichbleibenden Lagern funktioniert
(s.a. Ergänzung POD in Object.pm->update_attributes)
Ferner, sinnvollerweise das bestehende Part-Objekt verwenden und kein neues
erzeugen.
---
 SL/WH.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/SL/WH.pm b/SL/WH.pm
index d0bb4c085..8ff63f219 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -137,9 +137,7 @@ sub transfer {
         )->save;
         # Standardlagerplatz in Stammdaten gleich mitverschieben
         if (defined($transfer->{change_default_bin})){
-          my $part = SL::DB::Part->new(id        => conv_i($transfer->{parts_id}))->load;
-          $part->update_attributes(warehouse_id  => conv_i($transfer->{dst_warehouse_id}));
-          $part->update_attributes(bin_id        => conv_i($transfer->{dst_bin_id}));
+          $part->update_attributes(warehouse_id  => $dst_wh->id, bin_id => $dst_bin->id);
         }
       }
 
-- 
2.20.1