[Koha-cvs] CVS: koha/acqui.simple keywordsearch.pl,1.1,1.2

[Chris Cormack]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv23517/acqui.simple

Modified Files:
	keywordsearch.pl 
Log Message:
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 :)



Index: keywordsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/keywordsearch.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** keywordsearch.pl	29 Apr 2002 05:29:02 -0000	1.1
--- keywordsearch.pl	15 May 2002 06:11:21 -0000	1.2
***************
*** 4,7 ****
--- 4,8 ----
  use strict;
  use C4::Acquisitions;
+ use C4::Search;
  use C4::Output;
  
***************
*** 19,24 ****
      if (! $offset) { $offset = 0 };
      if (! $num) { $num = 10 };
! 
!     ($count, @results) = &keywordsearch($keywords);
  
      if ($count < ($offset + $num)) {
--- 20,26 ----
      if (! $offset) { $offset = 0 };
      if (! $num) { $num = 10 };
!     my %search;
!     $search{'keyword'}=$keywords;
!     ($count, @results) = KeywordSearch(undef,'intra',\%search,$num,$offset);
  
      if ($count < ($offset + $num)) {