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 File::Basename;
   8 use POSIX qw(strftime);
   9 use SL::Controller::Helper::GetModels;
  10 use SL::Controller::Helper::ReportGenerator;
  11 use SL::CT;
  12 use SL::DB::Employee;
  13 use SL::DB::Language;
  14 use SL::DB::Letter;
  15 use SL::DB::LetterDraft;
  16 use SL::DB::Printer;
  17 use SL::Helper::Flash qw(flash flash_later);
  18 use SL::Helper::CreatePDF;
  19 use SL::Helper::PrintOptions;
  20 use SL::Locale::String qw(t8);
  21 use SL::Mailer;
  22 use SL::IS;
  23 use SL::ReportGenerator;
  24 use SL::Webdav;
  25 use SL::Webdav::File;
  26
  27 use Rose::Object::MakeMethods::Generic (
  28   'scalar --get_set_init' => [ qw(letter all_employees models webdav_objects is_sales) ],
  29 );
  30
  31 __PACKAGE__->run_before('check_auth_edit');
  32 __PACKAGE__->run_before('check_auth_report', only => [ qw(list) ]);
  33
  34 use constant TEXT_CREATED_FOR_VALUES => (qw(presskit fax letter));
  35 use constant PAGE_CREATED_FOR_VALUES => (qw(sketch 1 2));
  36
  37 my %sort_columns = (
  38   date                  => t8('Date'),
  39   subject               => t8('Subject'),
  40   letternumber          => t8('Letternumber'),
  41   customer_id           => t8('Customer'),
  42   vendor_id             => t8('Vendor'),
  43   contact               => t8('Contact'),
  44 );
  45
  46 ### actions
  47
  48 sub action_add {
  49   my ($self, %params) = @_;
  50
  51   return if $self->load_letter_draft(%params);
  52
  53   $self->letter->employee_id(SL::DB::Manager::Employee->current->id);
  54   $self->letter->salesman_id(SL::DB::Manager::Employee->current->id);
  55
  56   $self->_display(
  57     title       => t8('Add Letter'),
  58     language_id => $params{language_id},
  59   );
  60 }
  61
  62 sub action_edit {
  63   my ($self, %params) = @_;
  64
  65   return $self->action_add
  66     unless $::form->{letter} || $::form->{draft};
  67
  68   if ($::form->{draft}) {
  69     $self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id}));
  70     $self->is_sales($self->letter->is_sales);
  71   }
  72
  73   $self->_display(
  74     title  => t8('Edit Letter'),
  75   );
  76 }
  77
  78 sub action_save {
  79   my ($self, %params) = @_;
  80
  81   my $letter = $self->_update;
  82
  83   if (!$self->check_letter($letter)) {
  84     return $self->_display;
  85   }
  86
  87   $self->check_number;
  88
  89   if (!$letter->save) {
  90     flash('error', t8('There was an error saving the letter'));
  91     return $self->_display;
  92   }
  93
  94   flash('info', t8('Letter saved!'));
  95
  96   $self->_display;
  97 }
  98
  99 sub action_update_contacts {
 100   my ($self) = @_;
 101
 102   my $letter = $self->letter;
 103
 104   if (!$self->letter->has_customer_vendor) {
 105     return $self->js
 106       ->replaceWith(
 107         '#letter_cp_id',
 108         SL::Presenter->get->select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name')
 109       )
 110       ->render;
 111   }
 112
 113   my $contacts = $letter->customer_vendor->contacts;
 114
 115   my $default;
 116   if (   $letter->contact
 117       && $letter->contact->cp_cv_id
 118       && $letter->contact->cp_cv_id == $letter->customer_vendor_id) {
 119     $default = $letter->contact->cp_id;
 120   } else {
 121     $default = '';
 122   }
 123
 124   $self->js
 125     ->replaceWith(
 126       '#letter_cp_id',
 127       SL::Presenter->get->select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name')
 128     )
 129     ->render;
 130 }
 131
 132 sub action_save_letter_draft {
 133   my ($self, %params) = @_;
 134
 135   $self->check_letter;
 136
 137   my $letter_draft = SL::DB::LetterDraft->new_from_letter($self->_update);
 138
 139   if (!$letter_draft->save) {
 140     flash('error', t8('There was an error saving the letter draft'));
 141     return $self->_display;
 142   }
 143
 144   flash('info', t8('Draft for this Letter saved!'));
 145
 146   $self->_display;
 147 }
 148
 149 sub action_delete {
 150   my ($self, %params) = @_;
 151
 152   if (!$self->letter->delete) {
 153     flash('error', t8('An error occured. Letter could not be deleted.'));
 154     return $self->action_update;
 155   }
 156
 157   flash_later('info', t8('Letter deleted'));
 158   $self->redirect_to(action => 'list');
 159 }
 160
 161 sub action_delete_letter_drafts {
 162   my ($self, %params) = @_;
 163
 164   my @ids =  grep { /^checked_(.*)/ && $::form->{$_} } keys %$::form;
 165
 166   SL::DB::Manager::LetterDraft->delete_all(query => [ ids => \@ids ]) if @ids;
 167
 168   $self->redirect_to(action => 'add');
 169 }
 170
 171 sub action_list {
 172   my ($self, %params) = @_;
 173
 174   $self->setup_list_action_bar;
 175   $self->make_filter_summary;
 176   $self->prepare_report;
 177
 178   my $letters = $self->models->get;
 179   $self->report_generator_list_objects(report => $self->{report}, objects => $letters, action_bar => 1);
 180
 181 }
 182
 183 sub action_print_letter {
 184   my ($self, %params) = @_;
 185
 186   my $display_form = $::form->{display_form} || "display_form";
 187   my $letter       = $self->_update;
 188
 189   my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template(
 190     name        => 'letter',
 191     printer_id  => $::form->{printer_id},
 192     language_id => $::form->{language_id},
 193     formname    => 'letter',
 194     format      => 'pdf',
 195   );
 196
 197   if (!defined $template_file) {
 198     $::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));
 199   }
 200
 201   my %result;
 202   eval {
 203     %result = SL::Template::LaTeX->parse_and_create_pdf(
 204       $template_file,
 205       SELF          => $self,
 206       FORM          => $::form,
 207       letter        => $letter,
 208       template_meta => {
 209         formname  => 'letter',
 210         language  => SL::DB::Language->new,
 211         extension => 'pdf',
 212         format    => $::form->{format},
 213         media     => $::form->{media},
 214         printer   => SL::DB::Manager::Printer->find_by_or_create(id => $::form->{printer_id} || undef),
 215         today     => DateTime->today,
 216       },
 217     );
 218
 219     die $result{error} if $result{error};
 220
 221     $::form->{type}         = 'letter';
 222     $::form->{formname}     = 'letter';
 223     $::form->{letternumber} = $letter->letternumber;
 224     my $attachment_name     = $::form->generate_attachment_filename;
 225
 226     if ($::instance_conf->get_webdav_documents) {
 227       my $webdav_file = SL::Webdav::File->new(
 228         filename => $attachment_name,
 229         webdav   => SL::Webdav->new(
 230           type   => 'letter',
 231           number => $letter->letternumber,
 232         ),
 233       );
 234
 235       $webdav_file->store(file => $result{file_name});
 236     }
 237
 238     # set some form defaults for printing webdav copy variables
 239     if ( $::form->{media} eq 'email') {
 240       my $mail             = Mailer->new;
 241       my $signature        = $::myconfig{signature};
 242       $mail->{$_}          = $params{email}->{$_} for qw(to cc subject message bcc);
 243       $mail->{from}        = qq|"$::myconfig{name}" <$::myconfig{email}>|;
 244       $mail->{attachments} = [{ filename => $result{file_name},
 245                                 name     => $params{email}->{attachment_filename} }];
 246       $mail->{message}    .=  "\n-- \n$signature";
 247       $mail->{message}     =~ s/\r//g;
 248
 249       $mail->send;
 250       unlink $result{file_name};
 251
 252       flash_later('info', t8('The email has been sent.'));
 253       $self->redirect_to(action => 'edit', 'letter.id' => $letter->id);
 254
 255       return 1;
 256     }
 257
 258     if (!$::form->{printer_id} || $::form->{media} eq 'screen') {
 259       $self->send_file($result{file_name}, name => $attachment_name);
 260       unlink $result{file_name};
 261
 262       return 1;
 263     }
 264
 265     my $printer = SL::DB::Printer->new(id => $::form->{printer_id})->load;
 266     $printer->print_document(
 267       copies    => $::form->{copies},
 268       file_name => $result{file_name},
 269     );
 270
 271     unlink $result{file_name};
 272
 273     flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description));
 274     $self->redirect_to(action => 'edit', 'letter.id' => $letter->id, media => 'printer', printer_id => $::form->{printer_id});
 275     1;
 276   } or do {
 277     unlink $result{file_name} if $result{file_name};
 278     $::form->error(t8("Creating the PDF failed:") . " " . $@);
 279   };
 280 }
 281
 282 sub action_update {
 283   my ($self, $name_selected) = @_;
 284
 285   $self->_display(
 286     letter => $self->_update,
 287   );
 288 }
 289
 290 sub action_skip_draft {
 291   my ($self) = @_;
 292   $self->action_add(skip_drafts => 1);
 293 }
 294
 295 sub action_delete_drafts {
 296   my ($self) = @_;
 297
 298   my @ids = @{ $::form->{ids} || [] };
 299   SL::DB::Manager::LetterDraft->delete_all(where => [ id => \@ids ]) if @ids;
 300
 301   $self->action_add(skip_drafts => 1);
 302 }
 303
 304 sub action_edit_email {
 305   my ($self) = @_;
 306
 307   my $letter = $self->_update;
 308   $self->export_letter_to_form($letter);
 309
 310   $::form->{formname}     = "letter";
 311   $::form->{type}         = "letter";
 312   $::form->{letternumber} = $self->letter->letternumber;
 313
 314   my @hiddens = map {
 315     my $value = $letter->$_;
 316     $value    = $value->to_kivitendo if ref($_) =~ m{Date};
 317
 318     { name => "letter.$_", value => $value }
 319   } ($letter->meta->columns);
 320
 321   my %vars = (
 322     script     => 'controller.pl',
 323     title      => t8('Send letter via e-mail'),
 324     email      => $letter->contact ? $letter->contact->cp_email : '',
 325     subject    => $::form->generate_email_subject,
 326     a_filename => $::form->generate_attachment_filename,
 327     HIDDEN     => \@hiddens,
 328     SHOW_BCC   => $::auth->assert('email_bcc', 'may fail'),
 329   );
 330
 331   $::request->layout->use_javascript("kivi.SalesPurchase.js");
 332   $self->setup_edit_email_action_bar;
 333   $self->render('letter/edit_email', %vars);
 334 }
 335
 336 sub action_send_email {
 337   my ($self) = @_;
 338
 339   $::form->{media} = 'email';
 340   $self->action_print_letter(
 341     email => {
 342       to => $::form->{email},
 343       map { ($_ => $::form->{$_}) } qw(cc bcc subject attachment_filename message)
 344     }
 345   );
 346 }
 347
 348 ### internal methods
 349
 350 sub _display {
 351   my ($self, %params) = @_;
 352
 353   $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery kivi.Letter);
 354
 355   my $letter = $self->letter;
 356
 357  $params{title} ||= t8('Edit Letter');
 358
 359   $::form->{type}             = 'letter';   # needed for print_options
 360   $::form->{vc}               = $letter->is_sales ? 'customer' : 'vendor'; # needs to be for _get_contacts...
 361
 362   $::request->layout->add_javascripts('customer_or_vendor_selection.js');
 363   $::request->layout->add_javascripts('edit_part_window.js');
 364
 365   $::form->{language_id} ||= $params{language_id};
 366   $::form->{languages}   ||= SL::DB::Manager::Language->get_all_sorted;
 367   $::form->{printers}      = SL::DB::Manager::Printer->get_all_sorted;
 368
 369   $self->setup_display_action_bar;
 370   $self->render('letter/edit',
 371     %params,
 372     TCF           => [ map { key => $_, value => t8(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ],
 373     PCF           => [ map { key => $_, value => t8(ucfirst $_) }, PAGE_CREATED_FOR_VALUES() ],
 374     letter        => $letter,
 375     employees     => $self->all_employees,
 376     print_options => SL::Helper::PrintOptions->get_print_options (
 377       options => { no_postscript   => 1,
 378                    no_opendocument => 1,
 379                    no_html         => 1,
 380                    no_queue        => 1 }),
 381
 382   );
 383 }
 384
 385 sub _update {
 386   my ($self, %params) = @_;
 387
 388   my $letter = $self->letter;
 389
 390   $self->check_date;
 391   $self->set_greetings;
 392
 393   return $letter;
 394 }
 395
 396 sub prepare_report {
 397   my ($self) = @_;
 398
 399   my $report      = SL::ReportGenerator->new(\%::myconfig, $::form);
 400   $self->{report} = $report;
 401
 402   my @columns  = qw(date subject letternumber customer_id vendor_id contact date);
 403   my @sortable = qw(date subject letternumber customer_id vendor_id contact date);
 404
 405   my %column_defs = (
 406     date                  => { text => t8('Date'),         sub => sub { $_[0]->date_as_date } },
 407     subject               => { text => t8('Subject'),      sub => sub { $_[0]->subject },
 408                                obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) }  },
 409     letternumber          => { text => t8('Letternumber'), sub => sub { $_[0]->letternumber },
 410                                obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) }  },
 411     customer_id           => { text => t8('Customer'),      sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->customer_id)->displayable_name }, visible => $self->is_sales },
 412     vendor_id             => { text => t8('Vendor'),        sub => sub { SL::DB::Manager::Vendor->find_by_or_create(id => $_[0]->vendor_id)->displayable_name }, visible => !$self->is_sales},
 413     contact               => { text => t8('Contact'),       sub => sub { $_[0]->contact ? $_[0]->contact->full_name : '' } },
 414   );
 415
 416   $column_defs{$_}{text} = $sort_columns{$_} for keys %column_defs;
 417
 418   $report->set_options(
 419     std_column_visibility => 1,
 420     controller_class      => 'Letter',
 421     output_format         => 'HTML',
 422     title                 => t8('Letters'),
 423     allow_pdf_export      => 1,
 424     allow_csv_export      => 1,
 425   );
 426
 427   $report->set_columns(%column_defs);
 428   $report->set_column_order(@columns);
 429   $report->set_export_options(qw(list filter is_sales));
 430   $report->set_options_from_form;
 431
 432   $self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
 433   $self->models->add_additional_url_params(is_sales => $self->is_sales);
 434   $self->models->finalize;
 435   $self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);
 436
 437   $report->set_options(
 438     raw_top_info_text    => $self->render('letter/report_top',    { output => 0 }),
 439     raw_bottom_info_text => $self->render('letter/report_bottom', { output => 0 }, models => $self->models),
 440     attachment_basename  => t8('letters_list') . strftime('_%Y%m%d', localtime time),
 441   );
 442 }
 443
 444 sub make_filter_summary {
 445   my ($self) = @_;
 446
 447   my $filter = $::form->{filter} || {};
 448   my @filter_strings;
 449
 450   my $employee = $filter->{employee_id} ? SL::DB::Employee->new(id => $filter->{employee_id})->load->name : '';
 451   my $salesman = $filter->{salesman_id} ? SL::DB::Employee->new(id => $filter->{salesman_id})->load->name : '';
 452
 453   my @filters = (
 454     [ $filter->{"letternumber:substr::ilike"},  t8('Number')     ],
 455     [ $filter->{"subject:substr::ilike"},       t8('Subject')    ],
 456     [ $filter->{"body:substr::ilike"},          t8('Body')       ],
 457     [ $filter->{"date:date::ge"},               t8('From Date')  ],
 458     [ $filter->{"date:date::le"},               t8('To Date')    ],
 459     [ $employee,                                t8('Employee')   ],
 460     [ $salesman,                                t8('Salesman')   ],
 461   );
 462
 463   my %flags = (
 464   );
 465   my @flags = map { $flags{$_} } @{ $filter->{part}{type} || [] };
 466
 467   for (@flags) {
 468     push @filter_strings, $_ if $_;
 469   }
 470   for (@filters) {
 471     push @filter_strings, "$_->[1]: $_->[0]" if $_->[0];
 472   }
 473
 474   $self->{filter_summary} = join ', ', @filter_strings;
 475 }
 476
 477 sub load_letter_draft {
 478   my ($self, %params) = @_;
 479
 480   return 0 if $params{skip_drafts};
 481
 482   my $letter_drafts = SL::DB::Manager::LetterDraft->get_all(
 483     query => [
 484       SL::DB::Manager::Letter->is_sales_filter($self->is_sales),
 485     ]
 486   );
 487
 488   return unless @$letter_drafts;
 489
 490   $self->setup_load_letter_draft_action_bar;
 491   $self->render('letter/load_drafts',
 492     title         => t8('Letter Draft'),
 493     LETTER_DRAFTS => $letter_drafts,
 494   );
 495
 496   return 1;
 497 }
 498
 499 sub check_date {
 500   my ($self) = @_;
 501   my $letter = $self->letter;
 502
 503   return unless $letter;
 504   return if $letter->date;
 505
 506   $letter->date(DateTime->today)
 507 }
 508
 509 sub check_letter {
 510   my ($self, $letter) = @_;
 511
 512   $letter ||= $self->letter;
 513
 514   my $error;
 515
 516   if (!$letter->subject) {
 517     flash('error', t8('The subject is missing.'));
 518     $error = 1;
 519   }
 520   if (!$letter->body) {
 521     flash('error', t8('The body is missing.'));
 522     $error = 1;
 523   }
 524   if (!$letter->employee_id) {
 525     flash('error', t8('The employee is missing.'));
 526     $error = 1;
 527   }
 528
 529   return !$error;
 530 }
 531
 532 sub check_number {
 533   my ($self, $letter) = @_;
 534
 535   $letter ||= $self->letter;
 536
 537   return if $letter->letternumber;
 538
 539   $letter->letternumber(SL::TransNumber->new(type => 'letter', id => $self->{id}, number => $self->{letternumber})->create_unique);
 540 }
 541
 542 sub set_greetings {
 543   my ($self) = @_;
 544   my $letter = $self->letter;
 545
 546   return unless $letter;
 547   return if $letter->greeting;
 548
 549   $letter->greeting(t8('Dear Sir or Madam,'));
 550 }
 551
 552 sub export_letter_to_form {
 553   my ($self, $letter) = @_;
 554   # nope, not pretty.
 555
 556   $letter ||= $self->letter;
 557
 558   for ($letter->meta->columns) {
 559     if ((ref $_) =~ /Date/i) {
 560       $::form->{$_->name} = $letter->$_->to_kivitendo;
 561     } else {
 562       $::form->{$_->name} = $letter->$_;
 563     }
 564   }
 565 }
 566
 567 sub init_letter {
 568   my ($self) = @_;
 569
 570   my $letter      = SL::DB::Manager::Letter->find_by_or_create(id => $::form->{letter}{id} || 0)
 571                                            ->assign_attributes(%{ $::form->{letter} });
 572
 573   if ($letter->cp_id) {
 574 #     $letter->customer_vendor_id($letter->contact->cp_cv_id);
 575       # contacts don't have language_id yet
 576 #     $letter->greeting(GenericTranslations->get(
 577 #       translation_type => 'greetings::' . ($letter->contact->cp_gender eq 'f' ? 'female' : 'male'),
 578 #       language_id      => $letter->contact->language_id,
 579 #       allow_fallback   => 1
 580 #     ));
 581   }
 582
 583   $self->is_sales($letter->is_sales) if $letter->id;
 584
 585   $letter;
 586 }
 587
 588 sub init_models {
 589   my ($self) = @_;
 590
 591   SL::Controller::Helper::GetModels->new(
 592     controller   => $self,
 593     model        => 'Letter',
 594     query        => [
 595       SL::DB::Manager::Letter->is_sales_filter($self->is_sales),
 596     ],
 597     sorted       => \%sort_columns,
 598     with_objects => [ 'contact', 'salesman', 'employee' ],
 599   );
 600 }
 601
 602 sub init_all_employees {
 603   SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
 604 }
 605
 606 sub init_webdav_objects {
 607   my ($self) = @_;
 608
 609   return [] if !$self->letter || !$self->letter->letternumber || !$::instance_conf->get_webdav;
 610
 611   my $webdav = SL::Webdav->new(
 612     type     => 'letter',
 613     number   => $self->letter->letternumber,
 614   );
 615
 616   my $webdav_path = $webdav->webdav_path;
 617   my @all_objects = $webdav->get_all_objects;
 618
 619   return [ map {
 620     +{ name => $_->filename,
 621        type => t8('File'),
 622        link => File::Spec->catfile($_->full_filedescriptor),
 623      }
 624   } @all_objects ];
 625 }
 626
 627 sub init_is_sales {
 628   die 'is_sales must be set' unless defined $::form->{is_sales};
 629   $::form->{is_sales};
 630 }
 631
 632 sub check_auth_edit {
 633   $::auth->assert('sales_letter_edit');
 634 }
 635
 636 sub check_auth_report {
 637   $::auth->assert('sales_letter_report');
 638 }
 639
 640 sub setup_load_letter_draft_action_bar {
 641   my ($self, %params) = @_;
 642
 643   for my $bar ($::request->layout->get('actionbar')) {
 644     $bar->add(
 645       link => [
 646         t8('Skip'),
 647         link      => $self->url_for(action => 'skip_draft', is_sales => $self->is_sales),
 648         accesskey => 'enter',
 649       ],
 650       action => [
 651         t8('Delete'),
 652         submit  => [ '#form', { action => 'delete_drafts' } ],
 653         checks  => [ [ 'kivi.check_if_entries_selected', '[name="ids[+]"]' ] ],
 654         confirm => t8('Do you really want to delete this draft?'),
 655       ],
 656     );
 657   }
 658 }
 659
 660 sub setup_display_action_bar {
 661   my ($self, %params) = @_;
 662
 663   for my $bar ($::request->layout->get('actionbar')) {
 664     $bar->add(
 665       action => [
 666         t8('Update'),
 667         submit    => [ '#form', { action => 'Letter/update' } ],
 668         accesskey => 'enter',
 669       ],
 670
 671       combobox => [
 672         action => [
 673           t8('Save'),
 674           submit => [ '#form', { action => 'Letter/save' } ],
 675         ],
 676         action => [
 677           t8('Save Draft'),
 678           submit => [ '#form', { action => 'Letter/save_letter_draft' } ],
 679         ],
 680       ], # end of combobox "Save"
 681
 682       action => [
 683         t8('Delete'),
 684         submit   => [ '#form', { action => 'Letter/delete' } ],
 685         confirm  => t8('Are you sure you want to delete this letter?'),
 686         disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef,
 687       ],
 688
 689       combobox => [
 690         action => [ t8('Export') ],
 691         action => [
 692           t8('Print'),
 693           submit   => [ '#form', { action => 'Letter/print_letter' } ],
 694           disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef,
 695         ],
 696         action => [
 697           t8('E-mail'),
 698           submit   => [ '#form', { action => 'Letter/edit_email' } ],
 699           disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef,
 700         ],
 701       ],
 702     );
 703   }
 704 }
 705
 706 sub setup_edit_email_action_bar {
 707   my ($self, %params) = @_;
 708
 709   for my $bar ($::request->layout->get('actionbar')) {
 710     $bar->add(
 711       action => [
 712         t8('Continue'),
 713         submit    => [ '#form', { action => 'Letter/send_email' } ],
 714         checks    => [ 'kivi.SalesPurchase.check_required_email_fields' ],
 715         accesskey => 'enter',
 716       ],
 717     );
 718   }
 719 }
 720
 721 sub setup_list_action_bar {
 722   my ($self, %params) = @_;
 723
 724   for my $bar ($::request->layout->get('actionbar')) {
 725     $bar->add(
 726       action => [
 727         t8('Update'),
 728         submit    => [ '#search_form', { action => 'Letter/list' } ],
 729         accesskey => 'enter',
 730       ],
 731     );
 732   }
 733 }
 734
 735 1;
 736
 737 __END__
 738
 739 =encoding utf-8
 740
 741 =head1 NAME
 742
 743 SL::Controller::Letter - Letters CRUD and printing
 744
 745 =head1 DESCRIPTION
 746
 747 Simple letter CRUD controller with drafting capabilities.
 748
 749 copy to webdav is crap
 750
 751 =head1 AUTHOR
 752
 753 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>
 754
 755 =cut