Druckvorbereitung: Lieferschein-Model mit richtigem Primärattribut laden

Das ging im Commit »Einkauf/Verkauf: Lieferadressenfelder nie aus
Stammdaten vorbelegen« kaputt.

diff --git a/SL/Form.pm b/SL/Form.pm
index 7030454..4451440 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3344,7 +3344,7 @@ sub prepare_for_printing {
 
   # Load shipping address from database if shipto_id is set.
   if ($self->{shipto_id}) {
-    my $shipto  = SL::DB::Shipto->new(id => $self->{shipto_id})->load;
+    my $shipto  = SL::DB::Shipto->new(shipto_id => $self->{shipto_id})->load;
     $self->{$_} = $shipto->$_ for grep { m{^shipto} } map { $_->name } @{ $shipto->meta->columns };
   }