use strict; use Template; use CGI; use CGI::Session ( '-ip_match' ); use DBI; use Data::Dumper; use Sphinx::Search; require "lib/class.pm"; my $cgi = new CGI; my $dbh = new_dbh(); my $sph = sphinx_conn(); my $query = $cgi->param('search_index'); my $index = "cases"; my $field = $cgi->param('field'); my $col = "case_header"; my $header; .... foreach my $x(@results){ my $sth = $dbh->prepare("SELECT ?,status,DATE_FORMAT(added_date, \"%d/%m/%Y\") from cases where caseid = ?"); $sth->execute($col,$x); while (my @row = $sth->fetchrow_array()) { my $docs = \@row; my $bar = \%options; my $excerpts = $sph->BuildExcerpts($docs,$index, $query, $bar); my @deref_excerpts = @$excerpts; unshift (@deref_excerpts,$x); push (@send_to_template,\@deref_excerpts); } }