Inventory Helper: Auf Number Helper Änderungen angepasst

[mfinanz.git] / SL / Helper / File.pm

diff --git a/SL/Helper/File.pm b/SL/Helper/File.pm
index d59fb56acc7eb7db5b9d7c7916749986e9442cfb..b90948f3233bba4d2382f9014e9f1465ee6a5425 100644 (file)
--- a/SL/Helper/File.pm
+++ b/SL/Helper/File.pm
@@ -3,13 +3,20 @@ package SL::Helper::File;
 use strict;
 
 use Exporter 'import';
 use strict;
 
 use Exporter 'import';

-our @EXPORT_OK = qw(store_pdf append_general_pdf_attachments);
+our @EXPORT_OK = qw(store_pdf append_general_pdf_attachments doc_storage_enabled);

 our %EXPORT_TAGS = (all => \@EXPORT_OK,);
 use SL::File;
 
 our %EXPORT_TAGS = (all => \@EXPORT_OK,);
 use SL::File;
 

+sub doc_storage_enabled {
+  return 0 unless $::instance_conf->get_doc_storage;
+  return 1 if     $::instance_conf->get_doc_storage_for_documents eq 'Filesystem' && $::instance_conf->get_doc_files;
+  return 1 if     $::instance_conf->get_doc_storage_for_documents eq 'Webdav'     && $::instance_conf->get_doc_webdav;
+  return 0;
+}
+

 sub store_pdf {
   my ($self, $form) = @_;
 sub store_pdf {
   my ($self, $form) = @_;

-  return unless $::instance_conf->get_doc_storage;
+  return unless $self->doc_storage_enabled;

   my $type = $form->{type};
   $type = $form->{formname}        if $form->{formname} && !$form->{type};
   $type = $form->{attachment_type} if $form->{attachment_type};
   my $type = $form->{type};
   $type = $form->{formname}        if $form->{formname} && !$form->{type};
   $type = $form->{attachment_type} if $form->{attachment_type};


@@ -72,7 +79,6 @@ __END__
 
 SL::Helper::File - Helper for $::Form to store generated PDF-Documents
 
 
 SL::Helper::File - Helper for $::Form to store generated PDF-Documents
 

-

 =head1 SYNOPSIS
 
 # This Helper is used by SL::Form to store new generated PDF-Files and append general attachments to this documents.
 =head1 SYNOPSIS
 
 # This Helper is used by SL::Form to store new generated PDF-Files and append general attachments to this documents.