From d215d11c3d2735baa850e5c4cc63346a8ca9715f Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 24 Apr 2003 16:28:47 +0000
Subject: [PATCH] fix for 361

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

diff --git a/C4/SearchMarc.pm b/C4/SearchMarc.pm
index 796d46325d..fba1145451 100644
--- a/C4/SearchMarc.pm
+++ b/C4/SearchMarc.pm
@@ -72,7 +72,7 @@ sub catalogsearch {
 	for(my $i=0; $i<=@$value;$i++) {
 		if (@$value[$i]) {
 			if ($nb==1) {
-				if (@$operator[$i] eq "starts") {
+				if (@$operator[$i] eq "start") {
 					$sql_tables .= "marc_subfield_table as m$nb,";
 					$sql_where1 .= "@$excluding[$i](m1.subfieldvalue like '@$value[$i]%'";
 					if (@$tags[$i]) {
@@ -95,7 +95,7 @@ sub catalogsearch {
 					$sql_where1.=")";
 				}
 			} else {
-				if (@$operator[$i] eq "starts") {
+				if (@$operator[$i] eq "start") {
 					$sql_tables .= "marc_subfield_table as m$nb,";
 					$sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue like '@$value[$i]%'";
 					if (@$tags[$i]) {
@@ -126,6 +126,7 @@ sub catalogsearch {
 	}
 	chop $sql_tables;
 	my $sth;
+	warn "HERE";
 	if ($sql_where2) {
 		$sth = $dbh->prepare("select distinct m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");
 		warn("-->select m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");
-- 
2.39.5