parse_template: $form->{media} == 'file' bedeutet, nur Druckdatei in $form->{OUT...

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index e1646e69d228360a3650bcda04376f8f26e0dfde..db9b5033d3f904995f6a7d22d00b4f30e4b105cf 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -43,6 +43,7 @@ use CGI;
 use CGI::Ajax;
 use Cwd;
 use Encode;
 use CGI::Ajax;
 use Cwd;
 use Encode;

+use File::Copy;

 use IO::File;
 use SL::Auth;
 use SL::Auth::DB;
 use IO::File;
 use SL::Auth;
 use SL::Auth::DB;


@@ -1269,6 +1270,16 @@ sub parse_template {
     $self->error("$self->{IN} : " . $template->get_error());
   }
 
     $self->error("$self->{IN} : " . $template->get_error());
   }
 

+  if ($self->{media} eq 'file') {
+    copy(join('/', $self->{cwd}, $userspath, $self->{tmpfile}), $out =~ m|^/| ? $out : join('/', $self->{cwd}, $out)) if $template->uses_temp_file;
+    $self->cleanup;
+    chdir("$self->{cwd}");
+
+    $::lxdebug->leave_sub();
+
+    return;
+  }
+

   if ($template->uses_temp_file() || $self->{media} eq 'email') {
 
     if ($self->{media} eq 'email') {
   if ($template->uses_temp_file() || $self->{media} eq 'email') {
 
     if ($self->{media} eq 'email') {