gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modified to use Search.pm and KeywordSearch(). 

Note that I had to modify Search.pm as well to get it to return something other than that bizarre @stuff array.  :)
This commit is contained in:
tonnesen 2002-05-10 22:18:48 +00:00
parent 7e48dd5114
commit 0058d9f7e3
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
html-template/cmsdsearchresults.tmpl
View File

@ -4,12 +4,12 @@
<body>
<TMPL_INCLUDE NAME="searchheader.tmpl">
<table border=1>
<tr><th>Title</th><th>Author</th><th>Notes</th></tr>
<tr><th>Title</th><th>Author</th><th>Dewey</th></tr>
<TMPL_LOOP NAME=SEARCH_RESULTS>
<tr>
<td> <TMPL_VAR NAME=title> </td>
<td> <TMPL_VAR NAME=author> </td>
<td> <TMPL_VAR NAME=notes> </td>
<td> <TMPL_VAR NAME=dewey> </td>
</tr>
</TMPL_LOOP>
<tr><td colspan=3><a href=search.pl?template=<TMPL_VAR NAME="template">&startfrom=<TMPL_VAR NAME="nextstartfrom">>Next Records</a></td></tr>

22
html-template/search.pl
View File

@ -4,6 +4,7 @@ use strict;
require Exporter;
use C4::Database;
use CGI;
use C4::Search;
my $query=new CGI;
@ -18,12 +19,19 @@ my $dbh=&C4Connect;
my $template = HTML::Template->new(filename => $templatename, die_on_bad_params => 0);
my @results;
my $sth=$dbh->prepare("select * from biblio where author like 's%' order by author limit $startfrom,20");
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
push @results, $data;
}
##my @results;
#my $sth=$dbh->prepare("select * from biblio where author like 's%' order by author limit $startfrom,20");
#$sth->execute;
#while (my $data=$sth->fetchrow_hashref){
# push @results, $data;
#}
my $blah;
my %search;
$search{'keyword'}='bear';
my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', \%search, 20, $startfrom);
@ -31,6 +39,6 @@ $template->param(startfrom => $startfrom);
$startfrom+=20;
$template->param(nextstartfrom => $startfrom);
$template->param(template => $templatename);
$template->param(SEARCH_RESULTS => \@results);
$template->param(SEARCH_RESULTS => $resultshash);
print "Content-Type: text/html\n\n", $template->output;