From 97350a2d42b92bebbbee2bdb2af2701399d15050 Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Sun, 10 Aug 2003 00:38:47 +0000
Subject: [PATCH] Added support for author searching to KeywordSearch

---
 C4/Search.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index bfa1583cb3..7351c9ec86 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -340,7 +340,7 @@ EOT
 
     # For each field we're searching on, create a subclause that'll
     # match the current keyword in the current field.
-    foreach my $field (qw(title notes seriestitle))
+    foreach my $field (qw(title notes seriestitle author))
     {
       push @subclauses,
 	"$field LIKE '\Q$keyword\E%' OR $field LIKE '% \Q$keyword\E%'";