Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 2051 | 2051 |
|
| 2052 | 2052 |
my $dbh = $form->dbconnect(\%myconfig); |
| 2053 | 2053 |
|
| 2054 |
my $restriction = qq| AND (| . join(' OR ', map { " addition = " . $dbh->quote($_) } split(m/\,/, $form->{einschraenkungen})) . qq|)| if $form->{einschraenkungen};
|
|
| 2054 |
my $restriction; |
|
| 2055 |
$restriction = qq| AND (| . join(' OR ', map { " addition = " . $dbh->quote($_) } split(m/\,/, $form->{einschraenkungen})) . qq|)| if $form->{einschraenkungen};
|
|
| 2055 | 2056 |
$restriction .= qq| AND h.itime::date >= | . conv_dateq($form->{fromdate}) if $form->{fromdate};
|
| 2056 | 2057 |
$restriction .= qq| AND h.itime::date <= | . conv_dateq($form->{todate}) if $form->{todate};
|
| 2057 | 2058 |
if ($form->{mitarbeiter} =~ m/^\d+$/) {
|
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.