Revision c9b4e6bc
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 7 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
# 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;
|
||
| SL/Helper/File.pm | ||
|---|---|---|
|
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.
|
||
Auch abrufbar als: Unified diff
Filemanagement: Zentralisierte Prüfung ob bei Drucken im DMS gespeichert wird
Prüfung aller Mandanteneinstellung vor Speicherung im DMS,
fixt #286