11 my $templatename=$query->param('template');
12 my $startfrom=$query->param('startfrom');
13 ($startfrom) || ($startfrom=0);
14 ($templatename) || ($templatename='searchresults.tmpl');
20 my $template = HTML::Template->new(filename => $templatename, die_on_bad_params => 0);
23 #my $sth=$dbh->prepare("select * from biblio where author like 's%' order by author limit $startfrom,20");
25 #while (my $data=$sth->fetchrow_hashref){
26 # push @results, $data;
31 $search{'keyword'}='bear';
33 my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', \%search, 20, $startfrom);
38 $template->param(startfrom => $startfrom);
40 $template->param(nextstartfrom => $startfrom);
41 $template->param(template => $templatename);
42 $template->param(SEARCH_RESULTS => $resultshash);
44 print "Content-Type: text/html\n\n", $template->output;