1 package SL::Controller::Letter;
4 use parent qw(SL::Controller::Base);
8 use POSIX qw(strftime);
9 use SL::Controller::Helper::GetModels;
10 use SL::Controller::Helper::ReportGenerator;
13 use SL::DB::LetterDraft;
15 use SL::Helper::Flash qw(flash);
16 use SL::Helper::CreatePDF;
17 use SL::Helper::PrintOptions;
18 use SL::Locale::String qw(t8);
20 use SL::ReportGenerator;
22 use Rose::Object::MakeMethods::Generic (
23 'scalar --get_set_init' => [ qw(letter all_employees models) ],
26 __PACKAGE__->run_before('check_auth_edit');
27 __PACKAGE__->run_before('check_auth_report', only => [ qw(list) ]);
29 use constant TEXT_CREATED_FOR_VALUES => (qw(presskit fax letter));
30 use constant PAGE_CREATED_FOR_VALUES => (qw(sketch 1 2));
34 subject => t8('Subject'),
35 letternumber => t8('Letternumber'),
36 vc_id => t8('Customer'),
37 contact => t8('Contact'),
41 my ($self, %params) = @_;
43 return if $self->load_letter_draft(%params);
45 $self->letter->employee_id(SL::DB::Manager::Employee->current->id);
46 $self->letter->salesman_id(SL::DB::Manager::Employee->current->id);
49 title => t8('Add Letter'),
50 language_id => $params{language_id},
55 my ($self, %params) = @_;
57 return $self->action_add
58 unless $::form->{letter} || $::form->{draft};
60 $self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id}))
64 title => t8('Edit Letter'),
69 my ($self, %params) = @_;
71 my $letter = $self->_update;
73 if (!$self->check_letter($letter)) {
74 return $self->_display;
80 flash('error', t8('There was an error saving the letter'));
81 return $self->_display;
84 flash('info', t8('Letter saved!'));
89 sub action_update_contacts {
92 my $letter = $self->letter;
94 if (!$self->letter->vc_id || !$self->letter->customer) {
98 SL::Presenter->get->select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name')
103 my $contacts = $letter->customer->contacts;
106 if ( $letter->contact
107 && $letter->contact->cp_cv_id
108 && $letter->contact->cp_cv_id == $letter->vc_id) {
109 $default = $letter->contact->cp_id;
117 SL::Presenter->get->select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name')
122 sub action_save_letter_draft {
123 my ($self, %params) = @_;
127 my $letter_draft = SL::DB::LetterDraft->new_from_letter($self->_update);
129 if (!$letter_draft->save) {
130 flash('error', t8('There was an error saving the letter draft'));
131 return $self->_display;
134 flash('info', t8('Draft for this Letter saved!'));
140 my ($self, %params) = @_;
142 if (!$self->letter->delete) {
143 flash('error', t8('An error occured. Letter could not be deleted.'));
144 return $self->action_update;
147 flash_later('info', t8('Letter deleted'));
148 $self->redirect_to(action => 'list');
151 sub action_delete_letter_drafts {
152 my ($self, %params) = @_;
154 my @ids = grep { /^checked_(.*)/ && $::form->{$_} } keys %$::form;
156 SL::DB::Manager::LetterDraft->delete_all(query => [ ids => \@ids ]) if @ids;
158 $self->redirect_to(action => 'add');
162 my ($self, %params) = @_;
164 $self->make_filter_summary;
165 $self->prepare_report;
167 my $letters = $self->models->get;
168 $self->report_generator_list_objects(report => $self->{report}, objects => $letters);
172 sub action_print_letter {
173 my ($self, $old_form) = @_;
175 my $display_form = $::form->{display_form} || "display_form";
176 my $letter = $self->_update;
178 $self->export_letter_to_form($letter);
179 $::form->{formname} = "letter";
180 $::form->{type} = "letter";
181 $::form->{format} = "pdf";
183 my $language_saved = $::form->{language_id};
184 my $greeting_saved = $::form->{greeting};
185 my $cp_id_saved = $::form->{cp_id};
187 $::form->{customer_id} = $self->letter->vc_id;
188 IS->customer_details(\%::myconfig, $::form);
191 # No contact was selected. Delete all contact variables because
192 # IS->customer_details() and IR->vendor_details() get the default
194 map({ delete($::form->{$_}); } grep(/^cp_/, keys(%{ $::form })));
197 $::form->{greeting} = $greeting_saved;
198 $::form->{language_id} = $language_saved;
200 if ($::form->{cp_id}) {
201 CT->get_contact(\%::myconfig, $::form);
204 $::form->{cp_contact_formal} = ($::form->{cp_greeting} ? "$::form->{cp_greeting} " : '') . ($::form->{cp_givenname} ? "$::form->{cp_givenname} " : '') . $::form->{cp_name};
206 $::form->get_employee_data('prefix' => 'employee', 'id' => $letter->{employee_id});
207 $::form->get_employee_data('prefix' => 'salesman', 'id' => $letter->{salesman_id});
209 my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template(
211 printer_id => $::form->{printer_id},
212 language_id => $::form->{language_id},
213 formname => 'letter',
217 if (!defined $template_file) {
218 $::form->error($::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files));
221 my %create_params = (
222 template => $template_file,
223 variables => $::form,
224 return => 'file_name',
225 variable_content_types => {
232 $pdf_file_name = SL::Helper::CreatePDF->create_pdf(%create_params);
234 # set some form defaults for printing webdav copy variables
235 if ( $::form->{media} eq 'email') {
236 my $mail = Mailer->new;
237 my $signature = $::myconfig{signature};
238 $mail->{$_} = $::form->{$_} for qw(cc subject message bcc to);
239 $mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|;
240 $mail->{fileid} = time() . '.' . $$ . '.';
241 $mail->{attachments} = [{ "filename" => $pdf_file_name,
242 "name" => $::form->{attachment_name} }];
243 $mail->{message} .= "\n-- \n$signature";
244 $mail->{message} =~ s/\r//g;
246 # copy_file_to_webdav was already done via io.pl -> edit_e_mail
247 my $err = $mail->send;
251 my $webdav_copy_args = Form->new('');
252 %{ $webdav_copy_args } = (
254 tmpdir => dirname($pdf_file_name),
255 tmpfile => basename($pdf_file_name),
256 cwd => POSIX::getcwd(),
259 if (!$::form->{printer_id} || $::form->{media} eq 'screen') {
261 my $file = IO::File->new($pdf_file_name, 'r') || croak("Cannot open file '$pdf_file_name'");
262 my $size = -s $pdf_file_name;
263 my $content_type = 'application/pdf';
264 $::form->{letternumber} = $self->letter->letternumber;
265 my $attachment_name = $::form->generate_attachment_filename;
266 $attachment_name =~ s:.*//::g;
268 print $::form->create_http_response(content_type => $content_type,
269 content_disposition => 'attachment; filename="' . $attachment_name . '"',
270 content_length => $size);
272 $::locale->with_raw_io(\*STDOUT, sub { print while <$file> });
275 Common::copy_file_to_webdav_folder($webdav_copy_args) if $::instance_conf->get_webdav_documents;
276 unlink $pdf_file_name;
280 my $printer = SL::DB::Printer->new(id => $::form->{printer_id})->load;
281 my $command = SL::Template::create(type => 'ShellCommand', form => Form->new(''))->parse($printer->printer_command);
283 open my $out, '|-', $command or die $!;
285 print $out scalar(read_file($pdf_file_name));
287 Common::copy_file_to_webdav_folder($webdav_copy_args) if $::instance_conf->get_webdav_documents;
289 flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description));
290 $self->redirect_to(action => 'edit', id => $letter->{id}, 'printer_id' => $::form->{printer_id});
293 unlink $pdf_file_name;
294 $::form->error(t8("Creating the PDF failed:") . " " . $@);
300 my ($self, $name_selected) = @_;
303 letter => $self->_update,
307 sub action_skip_draft {
309 $self->action_add(skip_drafts => 1);
312 sub action_delete_drafts {
314 delete_letter_drafts();
315 $self->action_add(skip_drafts => 1);
319 my ($self, %params) = @_;
321 $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);
323 my $letter = $self->letter;
325 $params{title} ||= t8('Edit Letter');
327 $::form->{type} = 'letter'; # needed for print_options
328 $::form->{vc} = 'customer'; # needs to be for _get_contacts...
330 $::request->layout->add_javascripts('customer_or_vendor_selection.js');
331 $::request->layout->add_javascripts('edit_part_window.js');
333 $::form->{language_id} ||= $params{language_id};
335 $self->render('letter/edit',
337 TCF => [ map { key => $_, value => t8(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ],
338 PCF => [ map { key => $_, value => t8(ucfirst $_) }, PAGE_CREATED_FOR_VALUES() ],
340 employees => $self->all_employees,
341 print_options => SL::Helper::PrintOptions->get_print_options (
342 options => { no_postscript => 1,
343 no_opendocument => 1,
351 my ($self, %params) = @_;
353 my $letter = $self->letter;
356 $self->set_greetings;
364 my $report = SL::ReportGenerator->new(\%::myconfig, $::form);
365 $self->{report} = $report;
367 my @columns = qw(date subject letternumber vc_id contact date);
368 my @sortable = qw(date subject letternumber vc_id contact date);
371 date => { text => t8('Date'), sub => sub { $_[0]->date_as_date } },
372 subject => { text => t8('Subject'), sub => sub { $_[0]->subject },
373 obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } },
374 letternumber => { text => t8('Letternumber'), sub => sub { $_[0]->letternumber },
375 obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } },
376 vc_id => { text => t8('Customer'), sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->vc_id)->displayable_name } },
377 contact => { text => t8('Contact'), sub => sub { $_[0]->contact ? $_[0]->contact->full_name : '' } },
380 $column_defs{$_}{text} = $sort_columns{$_} for keys %column_defs;
382 $report->set_options(
383 std_column_visibility => 1,
384 controller_class => 'Letter',
385 output_format => 'HTML',
386 top_info_text => t8('Letters'),
387 title => t8('Letters'),
388 allow_pdf_export => 1,
389 allow_csv_export => 1,
392 $report->set_columns(%column_defs);
393 $report->set_column_order(@columns);
394 $report->set_export_options(qw(list filter));
395 $report->set_options_from_form;
397 $self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
398 $self->models->finalize;
399 $self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);
401 $report->set_options(
402 raw_top_info_text => $self->render('letter/report_top', { output => 0 }),
403 raw_bottom_info_text => $self->render('letter/report_bottom', { output => 0 }, models => $self->models),
404 attachment_basename => t8('letters_list') . strftime('_%Y%m%d', localtime time),
408 sub make_filter_summary {
411 my $filter = $::form->{filter} || {};
414 my $employee = $filter->{employee_id} ? SL::DB::Employee->new(id => $filter->{employee_id})->load->name : '';
415 my $salesman = $filter->{salesman_id} ? SL::DB::Employee->new(id => $filter->{salesman_id})->load->name : '';
418 [ $filter->{"letternumber:substr::ilike"}, t8('Number') ],
419 [ $filter->{"subject:substr::ilike"}, t8('Subject') ],
420 [ $filter->{"body:substr::ilike"}, t8('Body') ],
421 [ $filter->{"date:date::ge"}, t8('From Date') ],
422 [ $filter->{"date:date::le"}, t8('To Date') ],
423 [ $employee, t8('Employee') ],
424 [ $salesman, t8('Salesman') ],
429 my @flags = map { $flags{$_} } @{ $filter->{part}{type} || [] };
432 push @filter_strings, $_ if $_;
435 push @filter_strings, "$_->[1]: $_->[0]" if $_->[0];
438 $self->{filter_summary} = join ', ', @filter_strings;
442 my $letter = _update();
444 $letter->check_number;
447 $::form->{formname} = "letter";
448 $letter->export_to($::form);
450 $::form->{id} = $letter->{id};
454 sub load_letter_draft {
455 my ($self, %params) = @_;
457 return 0 if $params{skip_drafts};
459 my $letter_drafts = SL::DB::Manager::LetterDraft->get_all;
461 return unless @$letter_drafts;
463 $self->render('letter/load_drafts',
464 title => t8('Letter Draft'),
465 LETTER_DRAFTS => $letter_drafts,
473 my $letter = $self->letter;
475 return unless $letter;
476 return if $letter->date;
478 $letter->date(DateTime->today)
482 my ($self, $letter) = @_;
484 $letter ||= $self->letter;
488 if (!$letter->subject) {
489 flash('error', t8('The subject is missing.'));
492 if (!$letter->body) {
493 flash('error', t8('The body is missing.'));
496 if (!$letter->employee_id) {
497 flash('error', t8('The employee is missing.'));
505 my ($self, $letter) = @_;
507 $letter ||= $self->letter;
509 return if $letter->letternumber;
511 $letter->letternumber(SL::TransNumber->new(type => 'letter', id => $self->{id}, number => $self->{letternumber})->create_unique);
516 my $letter = $self->letter;
518 return unless $letter;
519 return if $letter->greeting;
521 $letter->greeting(t8('Dear Sir or Madam,'));
524 sub export_letter_to_form {
525 my ($self, $letter) = @_;
528 $letter ||= $self->letter;
530 for ($letter->meta->columns) {
531 if ((ref $_) =~ /Date/i) {
532 $::form->{$_->name} = $letter->$_->to_kivitendo;
534 $::form->{$_->name} = $letter->$_;
542 my $letter = SL::DB::Manager::Letter->find_by_or_create(id => $::form->{letter}{id} || 0)
543 ->assign_attributes(%{ $::form->{letter} });
545 if ($letter->cp_id) {
546 # $letter->vc_id($letter->contact->cp_cv_id);
547 # contacts don't have language_id yet
548 # $letter->greeting(GenericTranslations->get(
549 # translation_type => 'greetings::' . ($letter->contact->cp_gender eq 'f' ? 'female' : 'male'),
550 # language_id => $letter->contact->language_id,
551 # allow_fallback => 1
561 SL::Controller::Helper::GetModels->new(
564 sorted => \%sort_columns,
565 with_objects => [ 'contact', 'salesman', 'employee' ],
569 sub init_all_employees {
570 SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
573 sub check_auth_edit {
574 $::auth->assert('sales_letter_edit');
577 sub check_auth_report {
578 $::auth->assert('sales_letter_report');
589 SL::Controller::Letter - Letters CRUD and printing
593 Simple letter CRUD controller with drafting capabilities.
597 Customer/Vendor switch for dealing with vendor letters
599 copy to webdav is crap
601 customer/vendor stuff
605 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>