projekt kivitendo

sub has_hard_links {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form, $table) = @_;

  $main::lxdebug->leave_sub() and return 0 unless ($form->{id});

  my $result = 0;

  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);

  }

  $main::lxdebug->leave_sub();

  return $result;

}