From 1c94d32cc2a2b5886ffa8da8e2170ed3675b592a Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 15 May 2002 06:11:21 +0000
Subject: [PATCH] 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 :)

---
 acqui.simple/keywordsearch.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/keywordsearch.pl b/acqui.simple/keywordsearch.pl
index 247e44654c..efd4022f02 100755
--- a/acqui.simple/keywordsearch.pl
+++ b/acqui.simple/keywordsearch.pl
@@ -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;
-- 
2.39.5