X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/108753a78b203dbe0ccbe6438cc16c8df33c04d3..f114da3b11349c34662390c01fda99bc51d76a08:/SL/Common.pm diff --git a/SL/Common.pm b/SL/Common.pm index 193476c54..a0d54feb6 100644 --- a/SL/Common.pm +++ b/SL/Common.pm @@ -342,6 +342,11 @@ sub get_vc_details { $query = qq|SELECT * FROM shipto WHERE (trans_id = ?)|; $form->{SHIPTO} = selectall_hashref_query($form, $dbh, $query, $vc_id); + if ($vc eq 'customer') { + $query = qq|SELECT * FROM additional_billing_addresses WHERE (customer_id = ?)|; + $form->{ADDITIONAL_BILLING_ADDRESSES} = selectall_hashref_query($form, $dbh, $query, $vc_id); + } + $query = qq|SELECT * FROM contacts WHERE (cp_cv_id = ?)|; $form->{CONTACTS} = selectall_hashref_query($form, $dbh, $query, $vc_id); @@ -598,6 +603,7 @@ sub copy_file_to_webdav_folder { return $::locale->text("Copy file from #1 to #2 failed: #3", $current_file, $new_file, $ERRNO); } + return; $::lxdebug->leave_sub(); }