# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# backend code for customers and vendors
use SL::Common;
use SL::CVar;
use SL::DBUtils;
+use SL::DB;
use Text::ParseWords;
use strict;
if ($form->{"${cv}number"}) {
$where .= " AND ct.${cv}number ILIKE ?";
- push(@values, '%' . $form->{"${cv}number"} . '%');
+ push(@values, like($form->{"${cv}number"}));
}
foreach my $key (qw(name contact email)) {
if ($form->{$key}) {
$where .= " AND ct.$key ILIKE ?";
- push(@values, '%' . $form->{$key} . '%');
+ push(@values, like($form->{$key}));
}
}
if ($form->{cp_name}) {
$where .= " AND ct.id IN (SELECT cp_cv_id FROM contacts WHERE lower(cp_name) LIKE lower(?))";
- push @values, '%' . $form->{cp_name} . '%';
+ push @values, like($form->{cp_name});
}
if ($form->{addr_street}) {
qq| WHERE (sc.module = 'CT') | .
qq| AND (sc.shiptostreet ILIKE ?) | .
qq| ))) |;
- push @values, ('%' . $form->{addr_street} . '%') x 2;
+ push @values, (like($form->{addr_street})) x 2;
}
if ($form->{addr_zipcode}) {
qq| WHERE (sc.module = 'CT') | .
qq| AND (sc.shiptozipcode ILIKE ?) | .
qq| ))) |;
- push @values, ('%' . $form->{addr_zipcode} . '%') x 2;
+ push @values, (like($form->{addr_zipcode})) x 2;
}
if ($form->{addr_city}) {
AND (lower(sc.shiptocity) LIKE lower(?))
))
)";
- push @values, ('%' . $form->{addr_city} . '%') x 2;
+ push @values, (like($form->{addr_city})) x 2;
}
if ($form->{addr_country}) {
AND (lower(so.shiptocountry) LIKE lower(?))
))
)";
- push @values, ('%' . $form->{addr_country} . '%') x 2;
+ push @values, (like($form->{addr_country})) x 2;
}
if ($form->{addr_gln}) {
AND (lower(so.shiptogln) LIKE lower(?))
))
)";
- push @values, ('%' . $form->{addr_gln} . '%') x 2;
+ push @values, (like($form->{addr_gln})) x 2;
}
if ( $form->{status} eq 'orphaned' ) {
}
my $pg_select = $form->{l_pricegroup} ? qq|, pg.pricegroup as pricegroup | : '';
- my $pg_join = $form->{l_pricegroup} ? qq|LEFT JOIN pricegroup pg ON (ct.klass = pg.id) | : '';
+ my $pg_join = $form->{l_pricegroup} ? qq|LEFT JOIN pricegroup pg ON (ct.pricegroup_id = pg.id) | : '';
my $query =
qq|SELECT ct.*, ct.itime::DATE AS insertdate, b.description AS business, e.name as salesman, | .
qq| pt.description as payment | .
die 'Missing argument: cp_id' unless $::form->{cp_id};
- my $dbh = $form->dbconnect($myconfig);
+ my $dbh = SL::DB->client->dbh;
my $query =
qq|SELECT * FROM contacts c | .
qq|WHERE cp_id = ? ORDER BY cp_id limit 1|;
($form->{cp_used}) = selectfirst_array_query($form, $dbh, $query, ($form->{cp_id})x2);
$sth->finish;
- $dbh->disconnect;
$main::lxdebug->leave_sub();
}
'cp.cp_name ILIKE ?',
'cp.cp_givenname ILIKE ?',
'cp.cp_email ILIKE ?';
- push @values, ('%' . $params{search_term} . '%') x 3;
+ push @values, (like($params{search_term})) x 3;
if (($params{search_term} =~ m/\d/) && ($params{search_term} !~ m/[^\d \(\)+\-]/)) {
my $number = $params{search_term};