Projekt

Allgemein

Profil

Herunterladen (16,9 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/SL/Controller/Letter.pm @ 25117316

ea5d75b5 Sven Schöling
package SL::Controller::Letter;

use strict;
use parent qw(SL::Controller::Base);

44edbb13 Moritz Bunkus
use Carp;
0bf92081 Moritz Bunkus
use File::Basename;
ea5d75b5 Sven Schöling
use POSIX qw(strftime);
use SL::Controller::Helper::GetModels;
use SL::Controller::Helper::ReportGenerator;
44edbb13 Moritz Bunkus
use SL::CT;
ea5d75b5 Sven Schöling
use SL::DB::Letter;
use SL::DB::LetterDraft;
use SL::DB::Employee;
f1906106 Moritz Bunkus
use SL::Helper::Flash qw(flash flash_later);
ea5d75b5 Sven Schöling
use SL::Helper::CreatePDF;
3e15b504 Bernd Bleßmann
use SL::Helper::PrintOptions;
ea5d75b5 Sven Schöling
use SL::Locale::String qw(t8);
3675add4 Moritz Bunkus
use SL::Mailer;
ea5d75b5 Sven Schöling
use SL::IS;
use SL::ReportGenerator;
e80effa2 Moritz Bunkus
use SL::Webdav;
use SL::Webdav::File;
ea5d75b5 Sven Schöling
use Rose::Object::MakeMethods::Generic (
3a91ef77 Moritz Bunkus
'scalar --get_set_init' => [ qw(letter all_employees models webdav_objects) ],
ea5d75b5 Sven Schöling
);

__PACKAGE__->run_before('check_auth_edit');
__PACKAGE__->run_before('check_auth_report', only => [ qw(list) ]);

use constant TEXT_CREATED_FOR_VALUES => (qw(presskit fax letter));
use constant PAGE_CREATED_FOR_VALUES => (qw(sketch 1 2));

my %sort_columns = (
date => t8('Date'),
subject => t8('Subject'),
letternumber => t8('Letternumber'),
7196276b Moritz Bunkus
customer_id => t8('Customer'),
ea5d75b5 Sven Schöling
contact => t8('Contact'),
);

sub action_add {
my ($self, %params) = @_;

return if $self->load_letter_draft(%params);

$self->letter->employee_id(SL::DB::Manager::Employee->current->id);
$self->letter->salesman_id(SL::DB::Manager::Employee->current->id);

$self->_display(
title => t8('Add Letter'),
language_id => $params{language_id},
);
}

sub action_edit {
my ($self, %params) = @_;

return $self->action_add
unless $::form->{letter} || $::form->{draft};

$self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id}))
if $::form->{draft};

$self->_display(
title => t8('Edit Letter'),
);
}

sub action_save {
my ($self, %params) = @_;

my $letter = $self->_update;

if (!$self->check_letter($letter)) {
return $self->_display;
}

$self->check_number;

if (!$letter->save) {
flash('error', t8('There was an error saving the letter'));
return $self->_display;
}

flash('info', t8('Letter saved!'));

$self->_display;
}

sub action_update_contacts {
my ($self) = @_;

my $letter = $self->letter;

7196276b Moritz Bunkus
if (!$self->letter->customer_id || !$self->letter->customer) {
ea5d75b5 Sven Schöling
return $self->js
->replaceWith(
'#letter_cp_id',
SL::Presenter->get->select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name')
)
->render;
}

my $contacts = $letter->customer->contacts;

my $default;
if ( $letter->contact
&& $letter->contact->cp_cv_id
7196276b Moritz Bunkus
&& $letter->contact->cp_cv_id == $letter->customer_id) {
ea5d75b5 Sven Schöling
$default = $letter->contact->cp_id;
} else {
$default = '';
}

$self->js
->replaceWith(
'#letter_cp_id',
SL::Presenter->get->select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name')
)
->render;
}

sub action_save_letter_draft {
my ($self, %params) = @_;

$self->check_letter;

my $letter_draft = SL::DB::LetterDraft->new_from_letter($self->_update);

if (!$letter_draft->save) {
flash('error', t8('There was an error saving the letter draft'));
return $self->_display;
}

flash('info', t8('Draft for this Letter saved!'));

$self->_display;
}

sub action_delete {
my ($self, %params) = @_;

if (!$self->letter->delete) {
flash('error', t8('An error occured. Letter could not be deleted.'));
return $self->action_update;
}

flash_later('info', t8('Letter deleted'));
$self->redirect_to(action => 'list');
}

sub action_delete_letter_drafts {
my ($self, %params) = @_;

my @ids = grep { /^checked_(.*)/ && $::form->{$_} } keys %$::form;

SL::DB::Manager::LetterDraft->delete_all(query => [ ids => \@ids ]) if @ids;

$self->redirect_to(action => 'add');
}

sub action_list {
my ($self, %params) = @_;

$self->make_filter_summary;
$self->prepare_report;

my $letters = $self->models->get;
$self->report_generator_list_objects(report => $self->{report}, objects => $letters);

}

sub action_print_letter {
3675add4 Moritz Bunkus
my ($self, %params) = @_;
ea5d75b5 Sven Schöling
my $display_form = $::form->{display_form} || "display_form";
my $letter = $self->_update;

80f54416 Bernd Bleßmann
my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template(
name => 'letter',
printer_id => $::form->{printer_id},
language_id => $::form->{language_id},
formname => 'letter',
format => 'pdf',
);

if (!defined $template_file) {
$::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));
}

7afe92af Moritz Bunkus
my %result;
ea5d75b5 Sven Schöling
eval {
7afe92af Moritz Bunkus
%result = SL::Template::LaTeX->parse_and_create_pdf(
$template_file,
SELF => $self,
FORM => $::form,
letter => $letter,
template_meta => {
formname => 'letter',
language => SL::DB::Language->new,
extension => 'pdf',
format => $::form->{format},
media => $::form->{media},
printer => SL::DB::Manager::Printer->find_by_or_create(id => $::form->{printer_id} || undef),
today => DateTime->today,
},
);

die $result{error} if $result{error};
3675add4 Moritz Bunkus
7afe92af Moritz Bunkus
$::form->{type} = 'letter';
$::form->{formname} = 'letter';
$::form->{letternumber} = $letter->letternumber;
3675add4 Moritz Bunkus
my $attachment_name = $::form->generate_attachment_filename;

if ($::instance_conf->get_webdav_documents) {
my $webdav_file = SL::Webdav::File->new(
filename => $attachment_name,
webdav => SL::Webdav->new(
type => 'letter',
7afe92af Moritz Bunkus
number => $letter->letternumber,
3675add4 Moritz Bunkus
),
);

7afe92af Moritz Bunkus
$webdav_file->store(file => $result{file_name});
3675add4 Moritz Bunkus
}
ea5d75b5 Sven Schöling
# set some form defaults for printing webdav copy variables
if ( $::form->{media} eq 'email') {
my $mail = Mailer->new;
my $signature = $::myconfig{signature};
3675add4 Moritz Bunkus
$mail->{$_} = $params{email}->{$_} for qw(to cc subject message bcc);
ea5d75b5 Sven Schöling
$mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|;
7afe92af Moritz Bunkus
$mail->{attachments} = [{ filename => $result{file_name},
3675add4 Moritz Bunkus
name => $params{email}->{attachment_filename} }];
ea5d75b5 Sven Schöling
$mail->{message} .= "\n-- \n$signature";
$mail->{message} =~ s/\r//g;

3675add4 Moritz Bunkus
$mail->send;
7afe92af Moritz Bunkus
unlink $result{file_name};
ea5d75b5 Sven Schöling
3675add4 Moritz Bunkus
flash_later('info', t8('The email has been sent.'));
7afe92af Moritz Bunkus
$self->redirect_to(action => 'edit', 'letter.id' => $letter->id);
3675add4 Moritz Bunkus
return 1;
}
0bf92081 Moritz Bunkus
ea5d75b5 Sven Schöling
if (!$::form->{printer_id} || $::form->{media} eq 'screen') {
7afe92af Moritz Bunkus
$self->send_file($result{file_name}, name => $attachment_name);
unlink $result{file_name};
e80effa2 Moritz Bunkus
ea5d75b5 Sven Schöling
return 1;
}

my $printer = SL::DB::Printer->new(id => $::form->{printer_id})->load;
5db439f8 Moritz Bunkus
$printer->print_document(
copies => $::form->{copies},
7afe92af Moritz Bunkus
file_name => $result{file_name},
5db439f8 Moritz Bunkus
);
ea5d75b5 Sven Schöling
7afe92af Moritz Bunkus
unlink $result{file_name};
5db439f8 Moritz Bunkus
ea5d75b5 Sven Schöling
flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description));
7afe92af Moritz Bunkus
$self->redirect_to(action => 'edit', 'letter.id' => $letter->id, media => 'printer', printer_id => $::form->{printer_id});
ea5d75b5 Sven Schöling
1;
} or do {
7afe92af Moritz Bunkus
unlink $result{file_name} if $result{file_name};
ea5d75b5 Sven Schöling
$::form->error(t8("Creating the PDF failed:") . " " . $@);
};
}

sub action_update {
my ($self, $name_selected) = @_;

$self->_display(
letter => $self->_update,
);
}

sub action_skip_draft {
my ($self) = @_;
$self->action_add(skip_drafts => 1);
}

sub action_delete_drafts {
my ($self) = @_;
b61d4f49 Moritz Bunkus
my @ids = @{ $::form->{ids} || [] };
SL::DB::Manager::LetterDraft->delete_all(where => [ id => \@ids ]) if @ids;

ea5d75b5 Sven Schöling
$self->action_add(skip_drafts => 1);
}

3675add4 Moritz Bunkus
sub action_edit_email {
my ($self) = @_;

my $letter = $self->_update;
$self->export_letter_to_form($letter);

$::form->{formname} = "letter";
$::form->{type} = "letter";
$::form->{letternumber} = $self->letter->letternumber;

my @hiddens = map {
my $value = $letter->$_;
$value = $value->to_kivitendo if ref($_) =~ m{Date};

{ name => "letter.$_", value => $value }
} ($letter->meta->columns);

my %vars = (
script => 'controller.pl',
title => t8('Send letter via e-mail'),
email => $letter->contact ? $letter->contact->cp_email : '',
subject => $::form->generate_email_subject,
a_filename => $::form->generate_attachment_filename,
action => 'Letter/send_email',
HIDDEN => \@hiddens,
SHOW_BCC => $::auth->assert('email_bcc', 'may fail'),
);

$self->render('generic/edit_email', %vars);
}

sub action_send_email {
my ($self) = @_;

$::form->{media} = 'email';
$self->action_print_letter(
email => {
to => $::form->{email},
map { ($_ => $::form->{$_}) } qw(cc bcc subject attachment_filename message)
}
);
}

ea5d75b5 Sven Schöling
sub _display {
my ($self, %params) = @_;

e83604f2 Moritz Bunkus
$::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);

ea5d75b5 Sven Schöling
my $letter = $self->letter;

$params{title} ||= t8('Edit Letter');

$::form->{type} = 'letter'; # needed for print_options
$::form->{vc} = 'customer'; # needs to be for _get_contacts...

$::request->layout->add_javascripts('customer_or_vendor_selection.js');
$::request->layout->add_javascripts('edit_part_window.js');

$::form->{language_id} ||= $params{language_id};
5db439f8 Moritz Bunkus
$::form->{printers} = SL::DB::Manager::Printer->get_all_sorted;
ea5d75b5 Sven Schöling
$self->render('letter/edit',
%params,
TCF => [ map { key => $_, value => t8(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ],
PCF => [ map { key => $_, value => t8(ucfirst $_) }, PAGE_CREATED_FOR_VALUES() ],
letter => $letter,
employees => $self->all_employees,
c0158b6b Bernd Bleßmann
print_options => SL::Helper::PrintOptions->get_print_options (
options => { no_postscript => 1,
no_opendocument => 1,
no_html => 1,
no_queue => 1 }),

ea5d75b5 Sven Schöling
);
}

sub _update {
my ($self, %params) = @_;

my $letter = $self->letter;

$self->check_date;
$self->set_greetings;

return $letter;
}

sub prepare_report {
my ($self) = @_;

my $report = SL::ReportGenerator->new(\%::myconfig, $::form);
$self->{report} = $report;

7196276b Moritz Bunkus
my @columns = qw(date subject letternumber customer_id contact date);
my @sortable = qw(date subject letternumber customer_id contact date);
ea5d75b5 Sven Schöling
my %column_defs = (
date => { text => t8('Date'), sub => sub { $_[0]->date_as_date } },
subject => { text => t8('Subject'), sub => sub { $_[0]->subject },
obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } },
letternumber => { text => t8('Letternumber'), sub => sub { $_[0]->letternumber },
obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } },
7196276b Moritz Bunkus
customer_id => { text => t8('Customer'), sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->customer_id)->displayable_name } },
ea5d75b5 Sven Schöling
contact => { text => t8('Contact'), sub => sub { $_[0]->contact ? $_[0]->contact->full_name : '' } },
);

$column_defs{$_}{text} = $sort_columns{$_} for keys %column_defs;

$report->set_options(
std_column_visibility => 1,
controller_class => 'Letter',
output_format => 'HTML',
top_info_text => t8('Letters'),
title => t8('Letters'),
allow_pdf_export => 1,
allow_csv_export => 1,
);

$report->set_columns(%column_defs);
$report->set_column_order(@columns);
$report->set_export_options(qw(list filter));
$report->set_options_from_form;

$self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
$self->models->finalize;
$self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);

$report->set_options(
raw_top_info_text => $self->render('letter/report_top', { output => 0 }),
raw_bottom_info_text => $self->render('letter/report_bottom', { output => 0 }, models => $self->models),
attachment_basename => t8('letters_list') . strftime('_%Y%m%d', localtime time),
);
}

sub make_filter_summary {
my ($self) = @_;

my $filter = $::form->{filter} || {};
my @filter_strings;

my $employee = $filter->{employee_id} ? SL::DB::Employee->new(id => $filter->{employee_id})->load->name : '';
my $salesman = $filter->{salesman_id} ? SL::DB::Employee->new(id => $filter->{salesman_id})->load->name : '';

my @filters = (
[ $filter->{"letternumber:substr::ilike"}, t8('Number') ],
[ $filter->{"subject:substr::ilike"}, t8('Subject') ],
[ $filter->{"body:substr::ilike"}, t8('Body') ],
[ $filter->{"date:date::ge"}, t8('From Date') ],
[ $filter->{"date:date::le"}, t8('To Date') ],
[ $employee, t8('Employee') ],
[ $salesman, t8('Salesman') ],
);

my %flags = (
);
my @flags = map { $flags{$_} } @{ $filter->{part}{type} || [] };

for (@flags) {
push @filter_strings, $_ if $_;
}
for (@filters) {
push @filter_strings, "$_->[1]: $_->[0]" if $_->[0];
}

$self->{filter_summary} = join ', ', @filter_strings;
}

sub load_letter_draft {
my ($self, %params) = @_;

return 0 if $params{skip_drafts};

my $letter_drafts = SL::DB::Manager::LetterDraft->get_all;

return unless @$letter_drafts;

$self->render('letter/load_drafts',
title => t8('Letter Draft'),
LETTER_DRAFTS => $letter_drafts,
);

return 1;
}

sub check_date {
my ($self) = @_;
my $letter = $self->letter;

return unless $letter;
return if $letter->date;

$letter->date(DateTime->today)
}

sub check_letter {
my ($self, $letter) = @_;

$letter ||= $self->letter;

my $error;

if (!$letter->subject) {
flash('error', t8('The subject is missing.'));
$error = 1;
}
if (!$letter->body) {
flash('error', t8('The body is missing.'));
$error = 1;
}
if (!$letter->employee_id) {
flash('error', t8('The employee is missing.'));
$error = 1;
}

return !$error;
}

sub check_number {
my ($self, $letter) = @_;

$letter ||= $self->letter;

return if $letter->letternumber;

$letter->letternumber(SL::TransNumber->new(type => 'letter', id => $self->{id}, number => $self->{letternumber})->create_unique);
}

sub set_greetings {
my ($self) = @_;
my $letter = $self->letter;

return unless $letter;
return if $letter->greeting;

$letter->greeting(t8('Dear Sir or Madam,'));
}

sub export_letter_to_form {
my ($self, $letter) = @_;
# nope, not pretty.

$letter ||= $self->letter;

for ($letter->meta->columns) {
if ((ref $_) =~ /Date/i) {
$::form->{$_->name} = $letter->$_->to_kivitendo;
} else {
$::form->{$_->name} = $letter->$_;
}
}
}

sub init_letter {
my ($self) = @_;

my $letter = SL::DB::Manager::Letter->find_by_or_create(id => $::form->{letter}{id} || 0)
->assign_attributes(%{ $::form->{letter} });

if ($letter->cp_id) {
7196276b Moritz Bunkus
# $letter->customer_id($letter->contact->cp_cv_id);
ea5d75b5 Sven Schöling
# contacts don't have language_id yet
# $letter->greeting(GenericTranslations->get(
# translation_type => 'greetings::' . ($letter->contact->cp_gender eq 'f' ? 'female' : 'male'),
# language_id => $letter->contact->language_id,
# allow_fallback => 1
# ));
}

$letter;
}

sub init_models {
my ($self) = @_;

SL::Controller::Helper::GetModels->new(
controller => $self,
model => 'Letter',
10d6fe63 Sven Schöling
sorted => \%sort_columns,
ea5d75b5 Sven Schöling
with_objects => [ 'contact', 'salesman', 'employee' ],
);
}

sub init_all_employees {
SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
}

3a91ef77 Moritz Bunkus
sub init_webdav_objects {
my ($self) = @_;

return [] if !$self->letter || !$self->letter->letternumber || !$::instance_conf->get_webdav;

my $webdav = SL::Webdav->new(
type => 'letter',
number => $self->letter->letternumber,
);

my $webdav_path = $webdav->webdav_path;
my @all_objects = $webdav->get_all_objects;

return [ map {
+{ name => $_->filename,
type => t8('File'),
link => File::Spec->catdir($webdav_path, $_->filename),
}
} @all_objects ];
}

ea5d75b5 Sven Schöling
sub check_auth_edit {
$::auth->assert('sales_letter_edit');
}

sub check_auth_report {
$::auth->assert('sales_letter_report');
}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::Letter - Letters CRUD and printing

=head1 DESCRIPTION

Simple letter CRUD controller with drafting capabilities.

=head1 TODO

Customer/Vendor switch for dealing with vendor letters

copy to webdav is crap

customer/vendor stuff

=head1 AUTHOR

Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>

=cut