X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5052b6f91995745f9283483dce70d6a2636f8f90..8cd05ad64866ce200f888a35723ae4b7e24a2012:/SL/DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index d657cca5c..7ed6724b3 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -491,7 +491,7 @@ sub delete {
 
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
-  my $spool    = $main::spool;
+  my $spool    = $::lx_office_conf{paths}->{spool};
 
   # connect to database
   my $dbh = $form->get_standard_dbh($myconfig);
@@ -1053,6 +1053,7 @@ sub transfer_in_out {
       'oe_id'                  => $form->{id},
       'shippingdate'           => 'current_date',
       'transfer_type'          => $params{direction} eq 'in' ? 'stock' : 'shipped',
+      'project_id'             => $request->{project_id},
     };
   }