kivitendo/SL/Chart.pm @ 5cada5ab
| 1c603341 | Jan Büren | package SL::Chart;
|
||
use SL::Form;
|
||||
use SL::DBUtils;
|
||||
| 80f6efd0 | Sven Schöling | use strict;
|
||
| 1c603341 | Jan Büren | sub list {
|
||
$main::lxdebug->enter_sub();
|
||||
my $self = shift;
|
||||
my %params = @_;
|
||||
my $myconfig = \%main::myconfig;
|
||||
my $form = $main::form;
|
||||
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
||||
my @values = ();
|
||||
my @where = ();
|
||||
if ($params{link}) {
|
||||
if ($params{link} =~ '%') {
|
||||
push @where, "c.link LIKE ?";
|
||||
push @values, $params{link};
|
||||
} else {
|
||||
push @where, "(c.link = ?) OR (c.link LIKE ?) OR (c.link LIKE ?) OR (c.link LIKE ?)";
|
||||
push @values, $params{link}, '%:' . $params{link} . ':%', '%:' . $params{link}, $params{link} . ':%';
|
||||
}
|
||||
}
|
||||
my $where = scalar @where ? 'WHERE ' . join(' AND ', map { "($_)" } @where) : '';
|
||||
my $query =
|
||||
qq|SELECT c.id, c.accno, c.description, c.link
|
||||
FROM chart c
|
||||
$where
|
||||
ORDER BY c.accno|;
|
||||
my $charts = selectall_hashref_query($form, $dbh, $query, @values);
|
||||
$main::lxdebug->leave_sub();
|
||||
return $charts;
|
||||
}
|
||||
1;
|