X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bd74780ce3ea2ec69ef390e75f833852c33bdc39..8cd05ad64866ce200f888a35723ae4b7e24a2012:/SL/OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index 7f0c8e363..b12932bef 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -655,7 +655,7 @@ sub _close_quotations_rfqs {
 sub delete {
   $main::lxdebug->enter_sub();
 
-  my ($self, $myconfig, $form, $spool) = @_;
+  my ($self, $myconfig, $form) = @_;
 
   # connect to database
   my $dbh = $form->dbconnect_noauto($myconfig);
@@ -705,6 +705,7 @@ sub delete {
   $dbh->disconnect;
 
   if ($rc) {
+    my $spool = $::lx_office_conf{paths}->{spool};
     foreach $spoolfile (@spoolfiles) {
       unlink "$spool/$spoolfile" if $spoolfile;
     }