Revision 36e45d3d
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Controller/EmailJournal.pm | ||
|---|---|---|
|
use SL::DB::EmailJournal;
|
||
|
use SL::DB::EmailJournalAttachment;
|
||
|
use SL::DB::Order;
|
||
|
use SL::DB::Helper::HardRecordLinks;
|
||
|
use SL::Helper::Flash;
|
||
|
use SL::Locale::String;
|
||
|
use SL::System::TaskServer;
|
||
| ... | ... | |
|
my $attachment = $params{attachment};
|
||
|
my $record = $params{record};
|
||
|
|
||
|
# soft link
|
||
|
$email_journal->link_to_record($record);
|
||
|
|
||
|
# hard link
|
||
|
SL::DB::Helper::HardRecordLinks->create_link($record, $email_journal);
|
||
|
$email_journal->hard_link_to_record($record);
|
||
|
|
||
|
if ($attachment) {
|
||
|
$attachment->add_file_to_record($record);
|
||
| SL/Controller/Order.pm | ||
|---|---|---|
|
use SL::Helper::UserPreferences::PositionsScrollbar;
|
||
|
use SL::Helper::UserPreferences::UpdatePositions;
|
||
|
|
||
|
use SL::DB::Helper::HardRecordLinks;
|
||
|
|
||
|
use SL::Controller::Helper::GetModels;
|
||
|
|
||
|
use List::Util qw(first sum0);
|
||
| ... | ... | |
|
$has_final_invoice = any {'SL::DB::Invoice' eq ref $_ && "final_invoice" eq $_->type} @$lr;
|
||
|
}
|
||
|
|
||
|
my $has_hard_links = SL::DB::Helper::HardRecordLinks->get_count($self->order);
|
||
|
my $has_hard_links = $self->order->hard_linked;
|
||
|
|
||
|
my $right_for = { map { $_ => $_.'_edit' } @{$self->valid_types} };
|
||
|
$right_for->{ sales_order_intake_type() } = 'sales_order_edit';
|
||
| SL/DB/EmailJournal.pm | ||
|---|---|---|
|
use SL::DB::Manager::EmailJournal;
|
||
|
use SL::DB::Helper::AttrSorted;
|
||
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::HardLinkedRecords;
|
||
|
|
||
|
__PACKAGE__->meta->add_relationship(
|
||
|
attachments => {
|
||
| SL/DB/HardRecordLinksEmailJournalAndAP.pm | ||
|---|---|---|
|
|
||
|
__PACKAGE__->meta->initialize;
|
||
|
|
||
|
sub other_record {
|
||
|
my ($self, $own_key) = @_;
|
||
|
|
||
|
if ($own_key eq 'email_journal_id') {
|
||
|
return $self->ap;
|
||
|
} elsif ($own_key eq 'ap_id') {
|
||
|
return $self->email_journal;
|
||
|
} else {
|
||
|
die "Unknown key $own_key";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
1;
|
||
| SL/DB/HardRecordLinksEmailJournalAndOrder.pm | ||
|---|---|---|
|
|
||
|
__PACKAGE__->meta->initialize;
|
||
|
|
||
|
sub other_record {
|
||
|
my ($self, $own_key) = @_;
|
||
|
|
||
|
if ($own_key eq 'email_journal_id') {
|
||
|
return $self->order;
|
||
|
} elsif ($own_key eq 'order_id') {
|
||
|
return $self->email_journal;
|
||
|
} else {
|
||
|
die "Unknown key $own_key";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/Helper/HardLinkedRecords.pm | ||
|---|---|---|
|
package SL::DB::Helper::HardLinkedRecords;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
use List::Util qw(first any);
|
||
|
|
||
|
use parent qw(Exporter);
|
||
|
our @EXPORT = qw(hard_link_to_record hard_linked_records hard_linked_records_count hard_linked);
|
||
|
|
||
|
my %RECORD_MODULE_TO_KEY = (
|
||
|
'SL::DB::Order' => 'order_id',
|
||
|
'SL::DB::PurchaseInvoice' => 'ap_id',
|
||
|
'SL::DB::EmailJournal' => 'email_journal_id',
|
||
|
);
|
||
|
my %RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES = (
|
||
|
'SL::DB::Order' => [
|
||
|
'HardRecordLinksEmailJournalAndOrder',
|
||
|
],
|
||
|
'SL::DB::PurchaseInvoice' => [
|
||
|
'HardRecordLinksEmailJournalAndAP',
|
||
|
],
|
||
|
'SL::DB::EmailJournal' => [
|
||
|
'HardRecordLinksEmailJournalAndOrder',
|
||
|
'HardRecordLinksEmailJournalAndAP',
|
||
|
],
|
||
|
);
|
||
|
|
||
|
sub hard_link_to_record {
|
||
|
my ($self, $record) = @_;
|
||
|
my $module_1 = ref $self;
|
||
|
my $module_2 = ref $record;
|
||
|
my $hard_link_moduls_1 = $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $self};
|
||
|
my $hard_link_moduls_2 = $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $record};
|
||
|
|
||
|
my $hard_link_modul = first {
|
||
|
my $a = $_; any {$a eq $_} @$hard_link_moduls_1
|
||
|
} @$hard_link_moduls_2;
|
||
|
die "No hard link modul found for $module_1 and $module_2" unless $hard_link_modul;
|
||
|
|
||
|
my $class = "SL::DB::$hard_link_modul";
|
||
|
eval "require $class;";
|
||
|
|
||
|
my $hard_link = $class->new(
|
||
|
$RECORD_MODULE_TO_KEY{$module_1} => $self->id,
|
||
|
$RECORD_MODULE_TO_KEY{$module_2} => $record->id,
|
||
|
)->save;
|
||
|
}
|
||
|
|
||
|
sub hard_linked_records {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my @records = ();
|
||
|
foreach my $hard_link_modul (@{ $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $self} }) {
|
||
|
my $class = "SL::DB::$hard_link_modul";
|
||
|
eval "require $class;";
|
||
|
|
||
|
my $hard_links = "SL::DB::Manager::$hard_link_modul"->get_all(
|
||
|
query => [
|
||
|
$RECORD_MODULE_TO_KEY{ref $self} => $self->id
|
||
|
]);
|
||
|
my $own_key = $RECORD_MODULE_TO_KEY{ref $self};
|
||
|
foreach my $hard_link (@$hard_links) {
|
||
|
my $other_record = $hard_link->other_record($own_key);
|
||
|
push @records, $other_record;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
return @records;
|
||
|
}
|
||
|
|
||
|
sub hard_linked_records_count {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $hard_links_count = 0;
|
||
|
foreach my $hard_link_modul (@{ $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $self} }) {
|
||
|
my $class = "SL::DB::$hard_link_modul";
|
||
|
eval "require $class;";
|
||
|
|
||
|
$hard_links_count += "SL::DB::Manager::$hard_link_modul"->get_all_count(
|
||
|
query => [
|
||
|
$RECORD_MODULE_TO_KEY{ref $self} => $self->id
|
||
|
]);
|
||
|
}
|
||
|
|
||
|
return $hard_links_count;
|
||
|
}
|
||
|
|
||
|
sub hard_linked {
|
||
|
my ($self) = @_;
|
||
|
return !!$self->hard_linked_records_count;
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/Helper/HardRecordLinks.pm | ||
|---|---|---|
|
package SL::DB::Helper::HardRecordLinks;
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
use List::Util qw(first any);
|
||
|
|
||
|
use SL::DB::HardRecordLinksEmailJournalAndAP;
|
||
|
use SL::DB::HardRecordLinksEmailJournalAndOrder;
|
||
|
|
||
|
my %RECORD_MODULE_TO_KEY = (
|
||
|
'SL::DB::Order' => 'order_id',
|
||
|
'SL::DB::PurchaseInvoice' => 'ap_id',
|
||
|
'SL::DB::EmailJournal' => 'email_journal_id',
|
||
|
);
|
||
|
my %RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES = (
|
||
|
'SL::DB::Order' => [
|
||
|
'HardRecordLinksEmailJournalAndOrder',
|
||
|
],
|
||
|
'SL::DB::PurchaseInvoice' => [
|
||
|
'HardRecordLinksEmailJournalAndAP',
|
||
|
],
|
||
|
'SL::DB::EmailJournal' => [
|
||
|
'HardRecordLinksEmailJournalAndOrder',
|
||
|
'HardRecordLinksEmailJournalAndAP',
|
||
|
],
|
||
|
);
|
||
|
|
||
|
sub get_links {
|
||
|
my ($self, $record) = @_;
|
||
|
|
||
|
my @ret_hard_links = ();
|
||
|
foreach my $hard_link_modul (@{ $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $record} }) {
|
||
|
my $hard_links = "SL::DB::Manager::$hard_link_modul"->get_all(
|
||
|
query => [
|
||
|
$RECORD_MODULE_TO_KEY{ref $record} => $record->id
|
||
|
]);
|
||
|
push @ret_hard_links, @$hard_links;
|
||
|
}
|
||
|
|
||
|
return @ret_hard_links;
|
||
|
}
|
||
|
|
||
|
sub get_count {
|
||
|
my ($self, $record) = @_;
|
||
|
my @hard_links = $self->get_links($record);
|
||
|
return scalar @hard_links;
|
||
|
}
|
||
|
|
||
|
sub create_link {
|
||
|
my ($self, $record_1, $record_2) = @_;
|
||
|
my $module_1 = ref $record_1;
|
||
|
my $module_2 = ref $record_2;
|
||
|
my $hard_link_moduls_1 = $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $record_1};
|
||
|
my $hard_link_moduls_2 = $RECORD_MODULE_TO_HARD_LINK_MODULE_NAMES{ref $record_2};
|
||
|
|
||
|
my $hard_link_modul = first {
|
||
|
my $a = $_; any {$a eq $_} @$hard_link_moduls_1
|
||
|
} @$hard_link_moduls_2;
|
||
|
die "No hard link modul found for $module_1 and $module_2" unless $hard_link_modul;
|
||
|
|
||
|
my $hard_link = "SL::DB::$hard_link_modul"->new(
|
||
|
$RECORD_MODULE_TO_KEY{$module_1} => $record_1->id,
|
||
|
$RECORD_MODULE_TO_KEY{$module_2} => $record_2->id,
|
||
|
)->save;
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/Order.pm | ||
|---|---|---|
|
use SL::DB::Helper::AttrSorted;
|
||
|
use SL::DB::Helper::FlattenToForm;
|
||
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::HardLinkedRecords;
|
||
|
use SL::DB::Helper::PriceTaxCalculator;
|
||
|
use SL::DB::Helper::PriceUpdater;
|
||
|
use SL::DB::Helper::TransNumberGenerator;
|
||
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
|
use SL::DB::Helper::AttrHTML;
|
||
|
use SL::DB::Helper::AttrSorted;
|
||
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::HardLinkedRecords;
|
||
|
use SL::DB::Helper::Payment qw(:ALL);
|
||
|
use SL::DB::Helper::SalesPurchaseInvoice;
|
||
|
use SL::DB::Helper::ZUGFeRD qw(:IMPORT);
|
||
| SL/Helper/EmailProcessing.pm | ||
|---|---|---|
|
use SL::ZUGFeRD;
|
||
|
|
||
|
use SL::DB::PurchaseInvoice;
|
||
|
use SL::DB::Helper::HardRecordLinks;
|
||
|
|
||
|
sub process_attachments {
|
||
|
my ($self, $function_name, $email_journal, %params) = @_;
|
||
| ... | ... | |
|
|
||
|
$attachment->add_file_to_record($record);
|
||
|
|
||
|
# soft link
|
||
|
$email_journal->link_to_record($record);
|
||
|
|
||
|
# hard link
|
||
|
SL::DB::Helper::HardRecordLinks->create_link($record, $email_journal);
|
||
|
$email_journal->hard_link_to_record($record);
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/IS.pm | ||
|---|---|---|
|
if ($table eq 'ap') {
|
||
|
require SL::DB::PurchaseInvoice;
|
||
|
my $record = SL::DB::PurchaseInvoice->new(id => $form->{id})->load;
|
||
|
$result = SL::DB::Helper::HardRecordLinks->get_count($record);
|
||
|
$result = $record->hard_linked;
|
||
|
}
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
Auch abrufbar als: Unified diff
SL::DB::Helper::HardLinkedRecords: Nutzung wie LinkedRecords