Now uses KeywordSearch from C4::Search rather than keywordsearch from
C4::Acquisitions .. which can now be deprecated? At least unless gynn tells me ive done something bad :)
This commit is contained in:
parent
a800aae2f6
commit
1c94d32cc2
1 changed files with 4 additions and 2 deletions
|
@ -3,6 +3,7 @@
|
|||
use CGI;
|
||||
use strict;
|
||||
use C4::Acquisitions;
|
||||
use C4::Search;
|
||||
use C4::Output;
|
||||
|
||||
my $input = new CGI;
|
||||
|
@ -18,8 +19,9 @@ if (! $keywords) {
|
|||
} else {
|
||||
if (! $offset) { $offset = 0 };
|
||||
if (! $num) { $num = 10 };
|
||||
|
||||
($count, @results) = &keywordsearch($keywords);
|
||||
my %search;
|
||||
$search{'keyword'}=$keywords;
|
||||
($count, @results) = KeywordSearch(undef,'intra',\%search,$num,$offset);
|
||||
|
||||
if ($count < ($offset + $num)) {
|
||||
$total = $count;
|
||||
|
|
Loading…
Reference in a new issue