sub convert_to_sales_order {
my ($self, %params) = @_;
- my $customer = delete $params{customer};
- my $employee = delete $params{employee};
+ my $customer = delete $params{customer};
+ my $employee = delete $params{employee};
+ my $transdate = delete $params{transdate} // DateTime->today_local;
croak "param customer is missing" unless ref($customer) eq 'SL::DB::Customer';
croak "param employee is missing" unless ref($employee) eq 'SL::DB::Employee';
taxzone_id => $customer->taxzone_id,
currency_id => $customer->currency_id,
transaction_description => $shop->transaction_description,
- transdate => DateTime->today_local
+ transdate => $transdate,
);
return $order;
}else{
my $zipcode = $self->billing_street ne '' ? $self->billing_zipcode : '';
my $email = $self->billing_street ne '' ? $self->billing_email : '';
- if($self->check_trgm) {
+ if(check_trgm($::form->get_standard_dbh())) {
# Fuzzysearch for street to find e.g. "Dorfstrasse - Dorfstr. - Dorfstraße"
my $fs_query = <<SQL;
SELECT *
return $result || ($self->id <=> $other->id);
}
-sub check_trgm {
- my ( $self ) = @_;
-
- my $dbh = $::form->get_standard_dbh();
- my $sql = "SELECT installed_version FROM pg_available_extensions WHERE name = 'pg_trgm'";
- my @version = selectall_hashref_query($::form, $dbh, $sql);
-
- return 1 if($version[0]->{installed_version});
- return 0;
-}
-
sub has_differing_delivery_address {
my ($self) = @_;
($self->billing_firstname // '') ne ($self->delivery_firstname // '') ||
=item C<compare_to>
-=item C<check_trgm>
-
-Checks if the postgresextension pg_trgm is installed and return 0 or 1.
-
=back
=head1 TODO