Revision 8f07fac1
Von Bernd Bleßmann vor mehr als 3 Jahren hinzugefügt
SL/DB/ShopOrder.pm | ||
---|---|---|
122 | 122 |
my $zipcode = $self->billing_street ne '' ? $self->billing_zipcode : ''; |
123 | 123 |
my $email = $self->billing_street ne '' ? $self->billing_email : ''; |
124 | 124 |
|
125 |
if($self->check_trgm) {
|
|
125 |
if(check_trgm($::form->get_standard_dbh())) {
|
|
126 | 126 |
# Fuzzysearch for street to find e.g. "Dorfstrasse - Dorfstr. - Dorfstraße" |
127 | 127 |
my $fs_query = <<SQL; |
128 | 128 |
SELECT * |
... | ... | |
235 | 235 |
return $result || ($self->id <=> $other->id); |
236 | 236 |
} |
237 | 237 |
|
238 |
sub check_trgm { |
|
239 |
my ( $self ) = @_; |
|
240 |
|
|
241 |
my $dbh = $::form->get_standard_dbh(); |
|
242 |
my $sql = "SELECT installed_version FROM pg_available_extensions WHERE name = 'pg_trgm'"; |
|
243 |
my @version = selectall_hashref_query($::form, $dbh, $sql); |
|
244 |
|
|
245 |
return 1 if($version[0]->{installed_version}); |
|
246 |
return 0; |
|
247 |
} |
|
248 |
|
|
249 | 238 |
sub has_differing_delivery_address { |
250 | 239 |
my ($self) = @_; |
251 | 240 |
($self->billing_firstname // '') ne ($self->delivery_firstname // '') || |
... | ... | |
294 | 283 |
|
295 | 284 |
=item C<compare_to> |
296 | 285 |
|
297 |
=item C<check_trgm> |
|
298 |
|
|
299 |
Checks if the postgresextension pg_trgm is installed and return 0 or 1. |
|
300 |
|
|
301 | 286 |
=back |
302 | 287 |
|
303 | 288 |
=head1 TODO |
Auch abrufbar als: Unified diff
DBUtils: Prüfung auf Trigram-Erweiterung aus S/D/ShopOrder in DBUtils verschoben