Revision 2729421a
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Controller/Letter.pm | ||
|---|---|---|
| 14 | 14 |
use SL::DB::Letter; |
| 15 | 15 |
use SL::DB::LetterDraft; |
| 16 | 16 |
use SL::DB::Printer; |
| 17 |
use SL::File; |
|
| 17 | 18 |
use SL::Helper::Flash qw(flash flash_later); |
| 18 | 19 |
use SL::Helper::CreatePDF; |
| 19 | 20 |
use SL::Helper::PrintOptions; |
| ... | ... | |
| 235 | 236 |
$webdav_file->store(file => $result{file_name});
|
| 236 | 237 |
} |
| 237 | 238 |
|
| 239 |
if ($::instance_conf->get_doc_storage) {
|
|
| 240 |
my %save_params = (object_id => $letter->id, |
|
| 241 |
object_type => 'letter', |
|
| 242 |
mime_type => 'application/pdf', |
|
| 243 |
source => 'created', |
|
| 244 |
file_type => 'document', |
|
| 245 |
file_name => $attachment_name, |
|
| 246 |
file_path => $result{file_name});
|
|
| 247 |
SL::File->save(%save_params); |
|
| 248 |
} |
|
| 249 |
|
|
| 238 | 250 |
# set some form defaults for printing webdav copy variables |
| 239 | 251 |
if ( $::form->{media} eq 'email') {
|
| 240 | 252 |
my $mail = Mailer->new; |
| ... | ... | |
| 313 | 325 |
sub _display {
|
| 314 | 326 |
my ($self, %params) = @_; |
| 315 | 327 |
|
| 316 |
$::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery kivi.Letter kivi.SalesPurchase);
|
|
| 328 |
$::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery kivi.Letter kivi.SalesPurchase kivi.File);
|
|
| 317 | 329 |
|
| 318 | 330 |
my $letter = $self->letter; |
| 319 | 331 |
|
Auch abrufbar als: Unified diff
Brief: erzeugtes Dokument im DMS speichern