Will work now with the existing C4/Search.pm at least the one in the main

branch.
Will still break with the version in rel-1.2
This commit is contained in:
rangi 2002-05-13 22:29:27 +00:00
parent c981ae9957
commit 4e4ff04a0e
1 changed files with 7 additions and 3 deletions

View File

@ -8,10 +8,14 @@ use C4::Search;
my $query=new CGI;
# temporary variable for testing. Replace from /etc/koha.conf
my $templatedir="/usr/share/koha/intranet/htdocs/includes/templates";
my $templatename=$query->param('template');
my $startfrom=$query->param('startfrom');
($startfrom) || ($startfrom=0);
($templatename) || ($templatename='searchresults.tmpl');
($templatename) || ($templatename="$templatedir/searchresults.tmpl");
my $dbh=&C4Connect;
@ -31,8 +35,8 @@ my %search;
my $keyword='bear';
$search{'keyword'}=$keyword;
my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', \%search, 20, $startfrom);
my ($count, @results) = &KeywordSearch(\$blah, 'intra', \%search, 20, $startfrom);
my $resultshash=\@results;