Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0bf92081

Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt

  • ID 0bf92081282bc1cad1d7cec16e55f13ca584ff11
  • Vorgänger bc40bcab
  • Nachfolger f1906106

Brieffunktion: beim Drucken im WebDAV speichern

Unterschiede anzeigen:

SL/Controller/Letter.pm
use parent qw(SL::Controller::Base);
use Carp;
use File::Basename;
use POSIX qw(strftime);
use SL::Controller::Helper::GetModels;
use SL::Controller::Helper::ReportGenerator;
......
return !$err;
}
my $webdav_copy_args = Form->new('');
%{ $webdav_copy_args } = (
%{ $::form },
tmpdir => dirname($pdf_file_name),
tmpfile => basename($pdf_file_name),
cwd => POSIX::getcwd(),
);
if (!$::form->{printer_id} || $::form->{media} eq 'screen') {
my $file = IO::File->new($pdf_file_name, 'r') || croak("Cannot open file '$pdf_file_name'");
......
$::locale->with_raw_io(\*STDOUT, sub { print while <$file> });
$file->close;
Common::copy_file_to_webdav_folder($::form) if $::instance_conf->get_webdav_documents;
Common::copy_file_to_webdav_folder($webdav_copy_args) if $::instance_conf->get_webdav_documents;
unlink $pdf_file_name;
return 1;
}
......
binmode $out;
print $out scalar(read_file($pdf_file_name));
close $out;
Common::copy_file_to_webdav_folder($::form) if $::instance_conf->get_webdav_documents;
Common::copy_file_to_webdav_folder($webdav_copy_args) if $::instance_conf->get_webdav_documents;
flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description));
$self->redirect_to(action => 'edit', id => $letter->{id}, 'printer_id' => $::form->{printer_id});
doc/changelog
einere neue Features und Detailverbesserungen:
- Auftrag um Druckvariante Gelangensbestätigung erweitert.
- Beim Speichern und Drucken von Briefen werden diese im
WebDAV-Verzeichnis gespeichert, sofern das Feature in der
Mandantenkonfiguration aktiv ist.
2016-03-12 - Release 3.4.0

Auch abrufbar als: Unified diff