SL/Controller/Letter.pm

   1 package SL::Controller::Letter;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Base);
   5
   6 use Carp;
   7 use POSIX qw(strftime);
   8 use SL::Controller::Helper::GetModels;
   9 use SL::Controller::Helper::ReportGenerator;
  10 use SL::CT;
  11 use SL::DB::Letter;
  12 use SL::DB::LetterDraft;
  13 use SL::DB::Employee;
  14 use SL::Helper::Flash qw(flash);
  15 use SL::Helper::CreatePDF;
  16 use SL::Helper::PrintOptions;
  17 use SL::Locale::String qw(t8);
  18 use SL::IS;
  19 use SL::ReportGenerator;
  20
  21 use Rose::Object::MakeMethods::Generic (
  22   'scalar --get_set_init' => [ qw(letter all_employees models) ],
  23 );
  24
  25 __PACKAGE__->run_before('check_auth_edit');
  26 __PACKAGE__->run_before('check_auth_report', only => [ qw(list) ]);
  27
  28 use constant TEXT_CREATED_FOR_VALUES => (qw(presskit fax letter));
  29 use constant PAGE_CREATED_FOR_VALUES => (qw(sketch 1 2));
  30
  31 my %sort_columns = (
  32   date                  => t8('Date'),
  33   subject               => t8('Subject'),
  34   letternumber          => t8('Letternumber'),
  35   vc_id                 => t8('Customer'),
  36   contact               => t8('Contact'),
  37 );
  38
  39 sub action_add {
  40   my ($self, %params) = @_;
  41
  42   return if $self->load_letter_draft(%params);
  43
  44   $self->letter->employee_id(SL::DB::Manager::Employee->current->id);
  45   $self->letter->salesman_id(SL::DB::Manager::Employee->current->id);
  46
  47   $self->_display(
  48     title       => t8('Add Letter'),
  49     language_id => $params{language_id},
  50   );
  51 }
  52
  53 sub action_edit {
  54   my ($self, %params) = @_;
  55
  56   return $self->action_add
  57     unless $::form->{letter} || $::form->{draft};
  58
  59   $self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id}))
  60     if $::form->{draft};
  61
  62   $self->_display(
  63     title  => t8('Edit Letter'),
  64   );
  65 }
  66
  67 sub action_save {
  68   my ($self, %params) = @_;
  69
  70   my $letter = $self->_update;
  71
  72   if (!$self->check_letter($letter)) {
  73     return $self->_display;
  74   }
  75
  76   $self->check_number;
  77
  78   if (!$letter->save) {
  79     flash('error', t8('There was an error saving the letter'));
  80     return $self->_display;
  81   }
  82
  83   flash('info', t8('Letter saved!'));
  84
  85   $self->_display;
  86 }
  87
  88 sub action_update_contacts {
  89   my ($self) = @_;
  90
  91   my $letter = $self->letter;
  92
  93   if (!$self->letter->vc_id || !$self->letter->customer) {
  94     return $self->js
  95       ->replaceWith(
  96         '#letter_cp_id',
  97         SL::Presenter->get->select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name')
  98       )
  99       ->render;
 100   }
 101
 102   my $contacts = $letter->customer->contacts;
 103
 104   my $default;
 105   if (   $letter->contact
 106       && $letter->contact->cp_cv_id
 107       && $letter->contact->cp_cv_id == $letter->vc_id) {
 108     $default = $letter->contact->cp_id;
 109   } else {
 110     $default = '';
 111   }
 112
 113   $self->js
 114     ->replaceWith(
 115       '#letter_cp_id',
 116       SL::Presenter->get->select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name')
 117     )
 118     ->render;
 119 }
 120
 121 sub action_save_letter_draft {
 122   my ($self, %params) = @_;
 123
 124   $self->check_letter;
 125
 126   my $letter_draft = SL::DB::LetterDraft->new_from_letter($self->_update);
 127
 128   if (!$letter_draft->save) {
 129     flash('error', t8('There was an error saving the letter draft'));
 130     return $self->_display;
 131   }
 132
 133   flash('info', t8('Draft for this Letter saved!'));
 134
 135   $self->_display;
 136 }
 137
 138 sub action_delete {
 139   my ($self, %params) = @_;
 140
 141   if (!$self->letter->delete) {
 142     flash('error', t8('An error occured. Letter could not be deleted.'));
 143     return $self->action_update;
 144   }
 145
 146   flash_later('info', t8('Letter deleted'));
 147   $self->redirect_to(action => 'list');
 148 }
 149
 150 sub action_delete_letter_drafts {
 151   my ($self, %params) = @_;
 152
 153   my @ids =  grep { /^checked_(.*)/ && $::form->{$_} } keys %$::form;
 154
 155   SL::DB::Manager::LetterDraft->delete_all(query => [ ids => \@ids ]) if @ids;
 156
 157   $self->redirect_to(action => 'add');
 158 }
 159
 160 sub action_list {
 161   my ($self, %params) = @_;
 162
 163   $self->make_filter_summary;
 164   $self->prepare_report;
 165
 166   my $letters = $self->models->get;
 167   $self->report_generator_list_objects(report => $self->{report}, objects => $letters);
 168
 169 }
 170
 171 sub action_print_letter {
 172   my ($self, $old_form) = @_;
 173
 174   my $display_form = $::form->{display_form} || "display_form";
 175   my $letter       = $self->_update;
 176
 177   $self->export_letter_to_form($letter);
 178   $::form->{formname} = "letter";
 179   $::form->{type}     = "letter";
 180   $::form->{format}   = "pdf";
 181
 182   my $language_saved      = $::form->{language_id};
 183   my $greeting_saved      = $::form->{greeting};
 184   my $cp_id_saved         = $::form->{cp_id};
 185
 186   $::form->{customer_id} = $self->letter->vc_id;
 187   IS->customer_details(\%::myconfig, $::form);
 188
 189   if (!$cp_id_saved) {
 190     # No contact was selected. Delete all contact variables because
 191     # IS->customer_details() and IR->vendor_details() get the default
 192     # contact anyway.
 193     map({ delete($::form->{$_}); } grep(/^cp_/, keys(%{ $::form })));
 194   }
 195
 196   $::form->{greeting} = $greeting_saved;
 197   $::form->{language_id} = $language_saved;
 198
 199   if ($::form->{cp_id}) {
 200     CT->get_contact(\%::myconfig, $::form);
 201   }
 202
 203   $::form->{cp_contact_formal} = ($::form->{cp_greeting} ? "$::form->{cp_greeting} " : '') . ($::form->{cp_givenname} ? "$::form->{cp_givenname} " : '') . $::form->{cp_name};
 204
 205   $::form->get_employee_data('prefix' => 'employee', 'id' => $letter->{employee_id});
 206   $::form->get_employee_data('prefix' => 'salesman', 'id' => $letter->{salesman_id});
 207
 208   my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template(
 209     name        => 'letter',
 210     printer_id  => $::form->{printer_id},
 211     language_id => $::form->{language_id},
 212     formname    => 'letter',
 213     format      => 'pdf',
 214   );
 215
 216   if (!defined $template_file) {
 217     $::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));
 218   }
 219
 220   my %create_params = (
 221     template  => $template_file,
 222     variables => $::form,
 223     return    => 'file_name',
 224   );
 225
 226   my $pdf_file_name;
 227   eval {
 228     $pdf_file_name = SL::Helper::CreatePDF->create_pdf(%create_params);
 229
 230     # set some form defaults for printing webdav copy variables
 231     if ( $::form->{media} eq 'email') {
 232       my $mail             = Mailer->new;
 233       my $signature        = $::myconfig{signature};
 234       $mail->{$_}          = $::form->{$_}               for qw(cc subject message bcc to);
 235       $mail->{from}        = qq|"$::myconfig{name}" <$::myconfig{email}>|;
 236       $mail->{fileid}      = time() . '.' . $$ . '.';
 237       $mail->{attachments} =  [{ "filename" => $pdf_file_name,
 238                                  "name"     => $::form->{attachment_name} }];
 239       $mail->{message}    .=  "\n-- \n$signature";
 240       $mail->{message}     =~ s/\r//g;
 241
 242       # copy_file_to_webdav was already done via io.pl -> edit_e_mail
 243       my $err = $mail->send;
 244       return !$err;
 245     }
 246
 247     if (!$::form->{printer_id} || $::form->{media} eq 'screen') {
 248
 249       my $file = IO::File->new($pdf_file_name, 'r') || croak("Cannot open file '$pdf_file_name'");
 250       my $size = -s $pdf_file_name;
 251       my $content_type    =  'application/pdf';
 252       $::form->{letternumber} = $self->letter->letternumber;
 253       my $attachment_name =  $::form->generate_attachment_filename;
 254       $attachment_name    =~ s:.*//::g;
 255
 256       print $::form->create_http_response(content_type        => $content_type,
 257                                           content_disposition => 'attachment; filename="' . $attachment_name . '"',
 258                                           content_length      => $size);
 259
 260       $::locale->with_raw_io(\*STDOUT, sub { print while <$file> });
 261       $file->close;
 262
 263       Common::copy_file_to_webdav_folder($::form) if $::instance_conf->get_webdav_documents;
 264       unlink $pdf_file_name;
 265       return 1;
 266     }
 267
 268     my $printer = SL::DB::Printer->new(id => $::form->{printer_id})->load;
 269     my $command = SL::Template::create(type => 'ShellCommand', form => Form->new(''))->parse($printer->printer_command);
 270
 271     open my $out, '|-', $command or die $!;
 272     binmode $out;
 273     print $out scalar(read_file($pdf_file_name));
 274     close $out;
 275     Common::copy_file_to_webdav_folder($::form) if $::instance_conf->get_webdav_documents;
 276
 277     flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description));
 278     $self->redirect_to(action => 'edit', id => $letter->{id}, 'printer_id' => $::form->{printer_id});
 279     1;
 280   } or do {
 281     unlink $pdf_file_name;
 282     $::form->error(t8("Creating the PDF failed:") . " " . $@);
 283   };
 284
 285 }
 286
 287 sub action_update {
 288   my ($self, $name_selected) = @_;
 289
 290   $self->_display(
 291     letter => $self->_update,
 292   );
 293 }
 294
 295 sub action_skip_draft {
 296   my ($self) = @_;
 297   $self->action_add(skip_drafts => 1);
 298 }
 299
 300 sub action_delete_drafts {
 301   my ($self) = @_;
 302   delete_letter_drafts();
 303   $self->action_add(skip_drafts => 1);
 304 }
 305
 306 sub _display {
 307   my ($self, %params) = @_;
 308
 309   my $letter = $self->letter;
 310
 311  $params{title} ||= t8('Edit Letter');
 312
 313   $::form->{type}             = 'letter';   # needed for print_options
 314   $::form->{vc}               = 'customer'; # needs to be for _get_contacts...
 315
 316   $::request->layout->add_javascripts('customer_or_vendor_selection.js');
 317   $::request->layout->add_javascripts('edit_part_window.js');
 318
 319   $::form->{language_id} ||= $params{language_id};
 320
 321   $self->render('letter/edit',
 322     %params,
 323     TCF           => [ map { key => $_, value => t8(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ],
 324     PCF           => [ map { key => $_, value => t8(ucfirst $_) }, PAGE_CREATED_FOR_VALUES() ],
 325     letter        => $letter,
 326     employees     => $self->all_employees,
 327     print_options => SL::Helper::PrintOptions->get_print_options (
 328       options => { no_postscript   => 1,
 329                    no_opendocument => 1,
 330                    no_html         => 1,
 331                    no_queue        => 1 }),
 332
 333   );
 334 }
 335
 336 sub _update {
 337   my ($self, %params) = @_;
 338
 339   my $letter = $self->letter;
 340
 341   $self->check_date;
 342   $self->set_greetings;
 343
 344   return $letter;
 345 }
 346
 347 sub prepare_report {
 348   my ($self) = @_;
 349
 350   my $report      = SL::ReportGenerator->new(\%::myconfig, $::form);
 351   $self->{report} = $report;
 352
 353   my @columns  = qw(date subject letternumber vc_id contact date);
 354   my @sortable = qw(date subject letternumber vc_id contact date);
 355
 356   my %column_defs = (
 357     date                  => { text => t8('Date'),         sub => sub { $_[0]->date_as_date } },
 358     subject               => { text => t8('Subject'),      sub => sub { $_[0]->subject },
 359                                obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) }  },
 360     letternumber          => { text => t8('Letternumber'), sub => sub { $_[0]->letternumber },
 361                                obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) }  },
 362     vc_id                 => { text => t8('Customer'),      sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->vc_id)->displayable_name } },
 363     contact               => { text => t8('Contact'),       sub => sub { $_[0]->contact ? $_[0]->contact->full_name : '' } },
 364   );
 365
 366   $column_defs{$_}{text} = $sort_columns{$_} for keys %column_defs;
 367
 368   $report->set_options(
 369     std_column_visibility => 1,
 370     controller_class      => 'Letter',
 371     output_format         => 'HTML',
 372     top_info_text         => t8('Letters'),
 373     title                 => t8('Letters'),
 374     allow_pdf_export      => 1,
 375     allow_csv_export      => 1,
 376   );
 377
 378   $report->set_columns(%column_defs);
 379   $report->set_column_order(@columns);
 380   $report->set_export_options(qw(list filter));
 381   $report->set_options_from_form;
 382
 383   $self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
 384   $self->models->finalize;
 385   $self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);
 386
 387   $report->set_options(
 388     raw_top_info_text    => $self->render('letter/report_top',    { output => 0 }),
 389     raw_bottom_info_text => $self->render('letter/report_bottom', { output => 0 }, models => $self->models),
 390     attachment_basename  => t8('letters_list') . strftime('_%Y%m%d', localtime time),
 391   );
 392 }
 393
 394 sub make_filter_summary {
 395   my ($self) = @_;
 396
 397   my $filter = $::form->{filter} || {};
 398   my @filter_strings;
 399
 400   my $employee = $filter->{employee_id} ? SL::DB::Employee->new(id => $filter->{employee_id})->load->name : '';
 401   my $salesman = $filter->{salesman_id} ? SL::DB::Employee->new(id => $filter->{salesman_id})->load->name : '';
 402
 403   my @filters = (
 404     [ $filter->{"letternumber:substr::ilike"},  t8('Number')     ],
 405     [ $filter->{"subject:substr::ilike"},       t8('Subject')    ],
 406     [ $filter->{"body:substr::ilike"},          t8('Body')       ],
 407     [ $filter->{"date:date::ge"},               t8('From Date')  ],
 408     [ $filter->{"date:date::le"},               t8('To Date')    ],
 409     [ $employee,                                t8('Employee')   ],
 410     [ $salesman,                                t8('Salesman')   ],
 411   );
 412
 413   my %flags = (
 414   );
 415   my @flags = map { $flags{$_} } @{ $filter->{part}{type} || [] };
 416
 417   for (@flags) {
 418     push @filter_strings, $_ if $_;
 419   }
 420   for (@filters) {
 421     push @filter_strings, "$_->[1]: $_->[0]" if $_->[0];
 422   }
 423
 424   $self->{filter_summary} = join ', ', @filter_strings;
 425 }
 426
 427 sub e_mail {
 428   my $letter = _update();
 429
 430   $letter->check_number;
 431   $letter->save;
 432
 433   $::form->{formname} = "letter";
 434   $letter->export_to($::form);
 435
 436   $::form->{id} = $letter->{id};
 437   edit_e_mail();
 438 }
 439
 440 sub load_letter_draft {
 441   my ($self, %params) = @_;
 442
 443   return 0 if $params{skip_drafts};
 444
 445   my $letter_drafts = SL::DB::Manager::LetterDraft->get_all;
 446
 447   return unless @$letter_drafts;
 448
 449   $self->render('letter/load_drafts',
 450     title         => t8('Letter Draft'),
 451     LETTER_DRAFTS => $letter_drafts,
 452   );
 453
 454   return 1;
 455 }
 456
 457 sub check_date {
 458   my ($self) = @_;
 459   my $letter = $self->letter;
 460
 461   return unless $letter;
 462   return if $letter->date;
 463
 464   $letter->date(DateTime->today)
 465 }
 466
 467 sub check_letter {
 468   my ($self, $letter) = @_;
 469
 470   $letter ||= $self->letter;
 471
 472   my $error;
 473
 474   if (!$letter->subject) {
 475     flash('error', t8('The subject is missing.'));
 476     $error = 1;
 477   }
 478   if (!$letter->body) {
 479     flash('error', t8('The body is missing.'));
 480     $error = 1;
 481   }
 482   if (!$letter->employee_id) {
 483     flash('error', t8('The employee is missing.'));
 484     $error = 1;
 485   }
 486
 487   return !$error;
 488 }
 489
 490 sub check_number {
 491   my ($self, $letter) = @_;
 492
 493   $letter ||= $self->letter;
 494
 495   return if $letter->letternumber;
 496
 497   $letter->letternumber(SL::TransNumber->new(type => 'letter', id => $self->{id}, number => $self->{letternumber})->create_unique);
 498 }
 499
 500 sub set_greetings {
 501   my ($self) = @_;
 502   my $letter = $self->letter;
 503
 504   return unless $letter;
 505   return if $letter->greeting;
 506
 507   $letter->greeting(t8('Dear Sir or Madam,'));
 508 }
 509
 510 sub export_letter_to_form {
 511   my ($self, $letter) = @_;
 512   # nope, not pretty.
 513
 514   $letter ||= $self->letter;
 515
 516   for ($letter->meta->columns) {
 517     if ((ref $_) =~ /Date/i) {
 518       $::form->{$_->name} = $letter->$_->to_kivitendo;
 519     } else {
 520       $::form->{$_->name} = $letter->$_;
 521     }
 522   }
 523 }
 524
 525 sub init_letter {
 526   my ($self) = @_;
 527
 528   my $letter      = SL::DB::Manager::Letter->find_by_or_create(id => $::form->{letter}{id} || 0)
 529                                            ->assign_attributes(%{ $::form->{letter} });
 530
 531   if ($letter->cp_id) {
 532 #     $letter->vc_id($letter->contact->cp_cv_id);
 533       # contacts don't have language_id yet
 534 #     $letter->greeting(GenericTranslations->get(
 535 #       translation_type => 'greetings::' . ($letter->contact->cp_gender eq 'f' ? 'female' : 'male'),
 536 #       language_id      => $letter->contact->language_id,
 537 #       allow_fallback   => 1
 538 #     ));
 539   }
 540
 541   $letter;
 542 }
 543
 544 sub init_models {
 545   my ($self) = @_;
 546
 547   SL::Controller::Helper::GetModels->new(
 548     controller   => $self,
 549     model        => 'Letter',
 550     sorted       => \%sort_columns,
 551     with_objects => [ 'contact', 'salesman', 'employee' ],
 552   );
 553 }
 554
 555 sub init_all_employees {
 556   SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
 557 }
 558
 559 sub check_auth_edit {
 560   $::auth->assert('sales_letter_edit');
 561 }
 562
 563 sub check_auth_report {
 564   $::auth->assert('sales_letter_report');
 565 }
 566
 567 1;
 568
 569 __END__
 570
 571 =encoding utf-8
 572
 573 =head1 NAME
 574
 575 SL::Controller::Letter - Letters CRUD and printing
 576
 577 =head1 DESCRIPTION
 578
 579 Simple letter CRUD controller with drafting capabilities.
 580
 581 =head1 TODO
 582
 583   Customer/Vendor switch for dealing with vendor letters
 584
 585 copy to webdav is crap
 586
 587 customer/vendor stuff
 588
 589 =head1 AUTHOR
 590
 591 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>
 592
 593 =cut