From 09a16c4405a3ed771c399157fa00d10147f4092d Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Sat, 1 Jan 2000 07:39:45 +0000
Subject: [PATCH] got author working with itemtype

---
 C4/Search.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index cb85562..c0050d2 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -167,8 +167,8 @@ sub CatSearch  {
 	my $count=@key;
 	my $i=1;
         $query="select count(*) from
-         biblio
-         where (biblio.author like '%$key[0]%'";    
+         biblio,biblioitems
+         where biblioitems.biblionumber=biblio.biblionumber and (biblio.author like '%$key[0]%'";    
 	 while ($i < $count){ 
            $query=$query." and author like '%$key[$i]%'";   
            $i++;       
@@ -177,6 +177,9 @@ sub CatSearch  {
          if ($search->{'title'} ne ''){ 
 	   $query=$query. " and title like '%$search->{'title'}%'";
 	 }
+	 if ($search->{'class'} ne ''){
+	   $query.=" and biblioitems.itemtype='$search->{'class'}'";
+	 }
       } else {
           if ($search->{'title'} ne ''){
 	    my @key=split(' ',$search->{'title'});