X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fa7fc7eeb3ca718914affee06c0629a08d571288..52e676cfed7969d6465d73bf1496ed68962b2de5:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 7030454d6..4451440c1 100644
--- 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 };
   }