projekt kivitendo

      # Check if bank_transaction already has a link to the invoice, may only be linked once per invoice

      # This might be caused by the user reloading a page and resending the form

      if (_existing_record_link($bank_transaction, $invoice)) {

        return {

          %data,

          result  => 'error',

          message => $::locale->text("Bank transaction with id #1 has already been linked to #2.", $bank_transaction->id, $invoice->displayable_name),

        };

      }

sub _existing_record_link {

  my ($bt, $invoice) = @_;

  # check whether a record link from banktransaction $bt already exists to

  # invoice $invoice, returns 1 if that is the case

  die unless $bt->isa("SL::DB::BankTransaction") && ( $invoice->isa("SL::DB::Invoice") || $invoice->isa("SL::DB::PurchaseInvoice") );

  my $linked_record_to_table = $invoice->is_sales ? 'Invoice' : 'PurchaseInvoice';

  my $linked_records = $bt->linked_records( direction => 'to', to => $linked_record_to_table, query => [ id => $invoice->id ]  );

  return @$linked_records ? 1 : 0;

};