Revision 4f19857e
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 761 | 761 |
$where .= qq| AND ($cvar_where)|; |
| 762 | 762 |
push @values, @cvar_values; |
| 763 | 763 |
} |
| 764 |
# Um nach Straße in der Berichtsmaske zu suchen ... jb 13.11.2008 |
|
| 765 |
if ($form->{addr_street}) {
|
|
| 766 |
$where .= qq| AND (street ILIKE ?)|;
|
|
| 767 |
push @values, ('%' . $form->{addr_street} . '%');
|
|
| 768 |
}
|
|
| 769 |
|
|
| 770 |
# Um nach PLZ in der Berichtsmaske zu suchen ... jb 13.11.2008
|
|
| 771 |
if ($form->{addr_zipcode}) {
|
|
| 772 |
$where .= qq| AND (zipcode ILIKE ?)|;
|
|
| 773 |
push @values, ($form->{addr_zipcode} . '%');
|
|
| 774 |
} |
|
| 764 |
|
|
| 765 |
if ($form->{addr_street}) {
|
|
| 766 |
$where .= qq| AND (street ILIKE ?)|;
|
|
| 767 |
push @values, '%' . $form->{addr_street} . '%';
|
|
| 768 |
}
|
|
| 769 |
|
|
| 770 |
if ($form->{addr_zipcode}) {
|
|
| 771 |
$where .= qq| AND (zipcode ILIKE ?)|;
|
|
| 772 |
push @values, $form->{addr_zipcode} . '%';
|
|
| 773 |
}
|
|
| 774 |
|
|
| 775 | 775 |
my $query = |
| 776 | 776 |
qq|SELECT ct.*, b.description AS business | . |
| 777 | 777 |
qq|FROM $cv ct | . |
Auch abrufbar als: Unified diff
Code aufgeräumt.