package RecordLinks;
+use utf8;
+use strict;
+
use SL::Common;
use SL::DBUtils;
use Data::Dumper;
use List::Util qw(reduce);
-use strict;
-
sub create_links {
$main::lxdebug->enter_sub();
add_token(\@where_tokens, \@where_values, col => $col, val => $params{$col}) if $params{$col};
}
- my $where = "WHERE ". join ' AND ', map { "($_)" } @where_tokens if scalar @where_tokens;
+ my $where = @where_tokens ? "WHERE ". join ' AND ', map { "($_)" } @where_tokens : '';
my $query = "DELETE FROM record_links $where";
do_query($form, $dbh, $query, @where_values);
=head1 NAME
-SL::RecordLinks - Verlinkung von Lx-Office Objekten.
+SL::RecordLinks - Verlinkung von kivitendo Objekten.
=head1 SYNOPSIS
=head1 DESCRIPTION
-=over 4
-
Transitive RecordLinks mit get_links_via.
-get_links_via erwartet den zusätzlichen parameter via. via ist ein
-hashref mit den jeweils optionalen Einträgen table und id, die sich
+get_links_via erwartet den zusätzlichen parameter via. via ist ein
+hashref mit den jeweils optionalen Einträgen table und id, die sich
genauso verhalten wie die from/to_table/id werte der get_links funktion.
Alternativ kann via auch ein Array dieser Hashes sein:
],
)
-Die Einträge in einem via-Array werden exakt in dieser Reihenfolge
-benutzt und sind nicht optional. Da obige Beispiel würde also die
-Verknüpfung:
+Die Einträge in einem via-Array werden exakt in dieser Reihenfolge
+benutzt und sind nicht optional. Da obige Beispiel würde also die
+Verknüpfung:
oe:11 -> ar:12 -> is:13 -> do:14
oe:11 -> ar:13 -> do:14
-=back
-
=cut