From e801c227015177071359b0644ea19d1cb98f1b5e Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 22 Jun 2004 11:35:37 +0000
Subject: [PATCH] removing % at the beginning of a string to avoid
 loooonnnngggg searchs

---
 C4/AuthoritiesMarc.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index eb456d443c..94ee47d00f 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -377,6 +377,7 @@ sub AUTHaddauthority {
 		($authid)=$sth->fetchrow;
 		$sth->finish;
 	}
+	warn "auth : $authid";
 	my $fieldcount=0;
 	# now, add subfields...
 	foreach my $field (@fields) {
@@ -823,6 +824,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.4  2004/06/22 11:35:37  tipaul
+# removing % at the beginning of a string to avoid loooonnnngggg searchs
+#
 # Revision 1.3  2004/06/17 08:02:13  tipaul
 # merging tag & subfield in auth_word for better perfs
 #
-- 
2.39.5