projekt kivitendo

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;