[Koha-devel] CVS: koha/C4 Search.pm,1.13,1.14

[Chris Cormack]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv15057/C4

Modified Files:
	Search.pm 
Log Message:
Making a "fix" to normal title search


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Search.pm	20 Feb 2002 20:53:29 -0000	1.13
--- Search.pm	20 Feb 2002 21:05:19 -0000	1.14
***************
*** 675,682 ****
  	    my $count=@key;
  	    my $i=1;
!             $query="select * from biblio,bibliosubtitle,biblioitems
  	    where
!             (biblio.biblionumber=bibliosubtitle.biblionumber and
!             biblioitems.biblionumber=biblio.biblionumber) and
  	    (((title like '$key[0]%' or title like '% $key[0]%' or title like '% $key[0]')";
  	    while ($i<$count){
--- 675,683 ----
  	    my $count=@key;
  	    my $i=1;
!             $query="select * from biblio,biblioitems
! 	    left join bibliosubtitle on
! 	    biblio.biblionumber=bibliosubtitle.biblionumber
  	    where
!             biblioitems.biblionumber=biblio.biblionumber and
  	    (((title like '$key[0]%' or title like '% $key[0]%' or title like '% $key[0]')";
  	    while ($i<$count){
***************
*** 796,800 ****
        }
    }
! #print $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){   
--- 797,801 ----
        }
    }
! print $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){