use DBI;
use utf8;
+use Scraper;
use base 'Scraper';
my $debug = $ENV{DEBUG} || 0;
=cut
my $dbname = 'bibliografija';
+my $pg_user = $ENV{PGUSER} || '';
+my $pg_passwd = $ENV{PGPASSWD} || '';
+my $pg_host = $ENV{PGHOST} || '';
my @and;
my @exec;
my @or;
foreach my $f ( split(/,/,$fti) ) {
- push @or, "$f @@ to_tsquery(?)";
+ push @or, "$f @@ to_tsquery('english',?)";
push @exec, $tsquery;
};
push @and, "( " . join(" or ", @or) . ")";
parse_fti $query;
} else { # no " AND " in query
my $tsquery = join(' & ', split(/\s+/,$query) );
- push @and, "( fti_au @@ to_tsquery(?) or fti_pr @@ to_tsquery(?) )";
+ push @and, "( fti_au @@ to_tsquery('english',?) or fti_pr @@ to_tsquery('english',?) )";
push @exec, $tsquery, $tsquery;
}
warn "XXX SQL = ",$sql, dump( @exec );
- my $dbh = DBI->connect_cached("dbi:Pg:dbname=$dbname", '', '', {AutoCommit => 0});
+ my $dbh = DBI->connect_cached("dbi:Pg:dbname=$dbname;host=$pg_host", $pg_user, $pg_passwd, {AutoCommit => 0});
my $sth = $dbh->prepare( $sql );