Revision 85a85386
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 2847 | 2847 |
$restriction .= " OR addition = '" . $_ . "'"; |
| 2848 | 2848 |
} |
| 2849 | 2849 |
} |
| 2850 |
$restriction .= |
|
| 2851 |
$form->{fromdate} ne "" && $form->{todate} ne "" ? qq| AND st.itime::date >= '| . $form->{fromdate} . qq|' AND st.itime::date <= '| . $form->{todate} . qq|'|
|
|
| 2852 |
: $form->{fromdate} ne "" && $form->{todate} eq "" ? qq| AND st.itime::date >= '| . $form->{fromdate} . qq|'|
|
|
| 2853 |
: $form->{fromdate} eq "" && $form->{todate} ne "" ? qq| AND st.itime::date <= '| . $form->{todate} . qq|'|
|
|
| 2854 |
: "" |
|
| 2855 |
; |
|
| 2856 |
$restriction .= |
|
| 2857 |
$form->{mitarbeiter} eq "" ? ""
|
|
| 2858 |
: $form->{mitarbeiter} =~ /^\d+$/ ? " AND employee_id = " . $form->{mitarbeiter}
|
|
| 2859 |
: " AND employee_id = " . get_employee_id($form->{mitarbeiter}, $dbh);
|
|
| 2850 |
|
|
| 2851 |
$restriction .= qq| AND h.itime::date >= | . conv_dateq($form->{fromdate}) if $form->{fromdate};
|
|
| 2852 |
$restriction .= qq| AND h.itime::date <= | . conv_dateq($form->{todate}) if $form->{todate};
|
|
| 2853 |
$restriction .= qq| AND employee_id = | . $form->{mitarbeiter} if $form->{mitarbeiter} =~ m/^\d+$/;
|
|
| 2854 |
$restriction .= qq| AND employee_id = | . get_employee_id($form->{mitarbeiter}, $dbh) if $form->{mitarbeiter};
|
|
| 2860 | 2855 |
|
| 2861 | 2856 |
my $dbh = $form->dbconnect(\%myconfig); |
| 2862 | 2857 |
my $query = qq|SELECT trans_id AS id FROM history_erp | . |
Auch abrufbar als: Unified diff
Codevereinfachung; Tabellennamen richtig benannt.