# therefore copy to webdav, even if we do not have the webdav feature enabled (just archive)
my $copy_to_webdav = $::instance_conf->get_webdav_documents && !$self->{preview} && $self->{tmpdir} && $self->{tmpfile} && $self->{type};
- if ( $ext_for_format eq 'pdf' && $::instance_conf->get_doc_storage ) {
+ if ( $ext_for_format eq 'pdf' && $self->doc_storage_enabled ) {
$self->append_general_pdf_attachments(filepath => $self->{tmpdir}."/".$self->{tmpfile},
type => $self->{type});
}
if ($self->{media} eq 'file') {
copy(join('/', $self->{cwd}, $userspath, $self->{tmpfile}), $out =~ m|^/| ? $out : join('/', $self->{cwd}, $out)) if $template->uses_temp_file;
Common::copy_file_to_webdav_folder($self) if $copy_to_webdav;
- if (!$self->{preview} && $::instance_conf->get_doc_storage)
+ if (!$self->{preview} && $self->doc_storage_enabled)
{
$self->{attachment_filename} ||= $self->generate_attachment_filename;
$self->store_pdf($self);
Common::copy_file_to_webdav_folder($self) if $copy_to_webdav;
- if ( !$self->{preview} && $ext_for_format eq 'pdf' && $::instance_conf->get_doc_storage) {
+ if ( !$self->{preview} && $ext_for_format eq 'pdf' && $self->doc_storage_enabled) {
$self->{attachment_filename} ||= $self->generate_attachment_filename;
my $file_obj = $self->store_pdf($self);
$self->{print_file_id} = $file_obj->id if $file_obj;
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;
+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) = @_;
- 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};
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.