kivitendo/SL/DB/EmailJournal.pm @ 95b1e9f5
| 24ab7ec0 | Moritz Bunkus | package SL::DB::EmailJournal;
|
||
use strict;
|
||||
| 0cf1c8d8 | Tamino Steinert | use Carp qw(croak);
|
||
use List::Util qw(first);
|
||||
| 687f2511 | Tamino Steinert | use SL::Webdav;
|
||
use SL::File;
|
||||
| 24ab7ec0 | Moritz Bunkus | use SL::DB::MetaSetup::EmailJournal;
|
||
use SL::DB::Manager::EmailJournal;
|
||||
| 72f19f83 | Moritz Bunkus | use SL::DB::Helper::AttrSorted;
|
||
| 687f2511 | Tamino Steinert | use SL::DB::Helper::LinkedRecords;
|
||
| 24ab7ec0 | Moritz Bunkus | |||
__PACKAGE__->meta->add_relationship(
|
||||
attachments => {
|
||||
type => 'one to many',
|
||||
class => 'SL::DB::EmailJournalAttachment',
|
||||
column_map => { id => 'email_journal_id' },
|
||||
},
|
||||
);
|
||||
__PACKAGE__->meta->initialize;
|
||||
| 72f19f83 | Moritz Bunkus | __PACKAGE__->attr_sorted('attachments');
|
||
| d63305ba | Jan Büren | sub compare_to {
|
||
my ($self, $other) = @_;
|
||||
return -1 if $self->sent_on && !$other->sent_on;
|
||||
return 1 if !$self->sent_on && $other->sent_on;
|
||||
my $result = 0;
|
||||
$result = $other->sent_on <=> $self->sent_on;
|
||||
return $result || ($self->id <=> $other->id);
|
||||
}
|
||||
| 0cf1c8d8 | Tamino Steinert | sub link_to_record_with_attachment {
|
||
my ($self, $record, $attachment_or_id) = @_;
|
||||
if ($attachment_or_id ne '') {
|
||||
my $attachment = ref $attachment_or_id ?
|
||||
$attachment_or_id
|
||||
: first {$_->id == $attachment_or_id} @{$self->attachments_sorted};
|
||||
croak "Email journal attachment does not belong to this email journal"
|
||||
unless $attachment && $attachment->email_journal_id == $self->id;
|
||||
$attachment->add_file_to_record($record);
|
||||
}
|
||||
$self->link_to_record($record);
|
||||
}
|
||||
| 8d425838 | Tamino Steinert | sub linked {
|
||
my ($self) = @_;
|
||||
return !!scalar @{$self->linked_records};
|
||||
}
|
||||
| 687f2511 | Tamino Steinert | sub process_attachments_as_purchase_invoices {
|
||
my ($self) = @_;
|
||||
my $attachments = $self->attachments_sorted;
|
||||
foreach my $attachment (@$attachments) {
|
||||
my $ap_invoice = $attachment->create_ap_invoice();
|
||||
next unless $ap_invoice;
|
||||
# link to email journal
|
||||
$self->link_to_record($ap_invoice);
|
||||
# copy file to webdav folder
|
||||
if ($::instance_conf->get_webdav_documents) {
|
||||
my $webdav = SL::Webdav->new(
|
||||
type => 'accounts_payable',
|
||||
number => $ap_invoice->invnumber,
|
||||
);
|
||||
my $webdav_file = SL::Webdav::File->new(
|
||||
webdav => $webdav,
|
||||
filename => $attachment->name,
|
||||
);
|
||||
eval {
|
||||
$webdav_file->store(data => \$attachment->content);
|
||||
1;
|
||||
} or do {
|
||||
die 'Storing the ZUGFeRD file to the WebDAV folder failed: ' . $@;
|
||||
};
|
||||
}
|
||||
# copy file to doc storage
|
||||
if ($::instance_conf->get_doc_storage) {
|
||||
eval {
|
||||
SL::File->save(
|
||||
object_id => $ap_invoice->id,
|
||||
object_type => 'purchase_invoice',
|
||||
mime_type => 'application/pdf',
|
||||
source => 'uploaded',
|
||||
file_type => 'document',
|
||||
file_name => $attachment->name,
|
||||
file_contents => $attachment->content,
|
||||
);
|
||||
1;
|
||||
} or do {
|
||||
die 'Storing the ZUGFeRD file in the storage backend failed: ' . $@;
|
||||
};
|
||||
}
|
||||
}
|
||||
my $new_ext_status = join('_', $self->extended_status, 'processed');
|
||||
$self->update({ extended_status => $new_ext_status});
|
||||
}
|
||||
| 24ab7ec0 | Moritz Bunkus | 1;
|
||
| d63305ba | Jan Büren | |||
__END__
|
||||
=pod
|
||||
=encoding utf8
|
||||
=head1 NAME
|
||||
SL::DB::EmailJournal - RDBO model for email journal
|
||||
=head1 SYNOPSIS
|
||||
This is a standard Rose::DB::Object based model and can be used as one.
|
||||
=head1 METHODS
|
||||
=over 4
|
||||
=item C<compare_to $self, $other>
|
||||
Compares C<$self> with C<$other> and returns the newer entry.
|
||||
=back
|
||||
=cut
|