Revision 56d0b88f
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/BackgroundJob/MassRecordCreationAndPrinting.pm | ||
|---|---|---|
| 11 | 11 |
use SL::DB::Printer; |
| 12 | 12 |
use SL::SessionFile; |
| 13 | 13 |
use SL::Template; |
| 14 |
use SL::Locale::String qw(t8); |
|
| 15 |
use SL::Webdav; |
|
| 14 | 16 |
|
| 15 | 17 |
use constant WAITING_FOR_EXECUTION => 0; |
| 16 | 18 |
use constant CONVERTING_DELIVERY_ORDERS => 1; |
| ... | ... | |
| 106 | 108 |
|
| 107 | 109 |
push @pdf_file_names, $ctrl->create_pdf(%create_params); |
| 108 | 110 |
|
| 111 |
# copy file to webdav folder |
|
| 112 |
if ($::instance_conf->get_webdav_documents) {
|
|
| 113 |
my $webdav = SL::Webdav->new( |
|
| 114 |
type => 'invoice', |
|
| 115 |
number => $invoice->invnumber, |
|
| 116 |
); |
|
| 117 |
my $webdav_file = SL::Webdav::File->new( |
|
| 118 |
webdav => $webdav, |
|
| 119 |
filename => t8('Invoice') . '_' . $invoice->invnumber . '.pdf',
|
|
| 120 |
); |
|
| 121 |
eval {
|
|
| 122 |
$webdav_file->store(file => $pdf_file_names[-1]); |
|
| 123 |
1; |
|
| 124 |
} or do {
|
|
| 125 |
push @{ $data->{print_errors} }, { id => $invoice->id, number => $invoice->invnumber, message => $@ };
|
|
| 126 |
} |
|
| 127 |
} |
|
| 128 |
|
|
| 109 | 129 |
$data->{num_printed}++;
|
| 110 | 130 |
|
| 111 | 131 |
1; |
Auch abrufbar als: Unified diff
MRCP.pm. Falls Webdav Archivierung auch PDF in Webdav kopieren
Beim Massenwandeln prinizipiell auch den WebDAV Ordner und die
Datei plus Zeitstempel erstellen. Entsprechende Fehlermeldungen
an die Oberfläche zurückgeben, wie allen anderen Meldungen in MRCP auch.