use SL::Common;
use SL::CVar;
use SL::DBUtils;
+use SL::DB;
use Text::ParseWords;
use strict;
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();
}