[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.8,1.18.2.9

Chris Cormack rangi at users.sourceforge.net
Mon Aug 19 08:20:50 CEST 2002


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

Modified Files:
      Tag: rel-1-2
	Search.pm 
Log Message:
Fix for item search


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.8
retrieving revision 1.18.2.9
diff -C2 -r1.18.2.8 -r1.18.2.9
*** Search.pm	15 Aug 2002 02:04:59 -0000	1.18.2.8
--- Search.pm	19 Aug 2002 06:20:48 -0000	1.18.2.9
***************
*** 106,112 ****
  #  }
    my ($count, at results);
! #  print STDERR "Doing a search \n";
    if ($search->{'itemnumber'} ne '' || $search->{'isbn'} ne ''){
!         print STDERR "Doing a precise search\n";
      ($count, at results)=CatSearch($env,'precise',$search,$num,$offset);
  
--- 106,112 ----
  #  }
    my ($count, at results);
! #  print STDERR "Doing a search $search->{'itemnumber'} $search->{'isbn'}\n";
    if ($search->{'itemnumber'} ne '' || $search->{'isbn'} ne ''){
! #        print STDERR "Doing a precise search $search->{'itemnumber'}\n";
      ($count, at results)=CatSearch($env,'precise',$search,$num,$offset);
  
***************
*** 663,669 ****
    if ($type eq 'precise'){
        
!       if ($search->{'item'} ne ''){
          $query="select * from items,biblio ";
!         my $search2=uc $search->{'item'};
          $query=$query." where 
          items.biblionumber=biblio.biblionumber 
--- 663,669 ----
    if ($type eq 'precise'){
        
!       if ($search->{'itemnumber'} ne ''){
          $query="select * from items,biblio ";
!         my $search2=uc $search->{'itemnumber'};
          $query=$query." where 
          items.biblionumber=biblio.biblionumber 
***************
*** 697,701 ****
        }
    }
! #print $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){   
--- 697,701 ----
        }
    }
! #print STDERR $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){   





More information about the Koha-cvs mailing list