From b65bf02b9ccb138a4e160f833c0e2f62f4f75acb Mon Sep 17 00:00:00 2001
From: doxulting <doxulting>
Date: Wed, 5 Oct 2005 16:19:21 +0000
Subject: [PATCH] Fixed bug #1013. Works for me, if someone can check.

---
 search.marc/search.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/search.marc/search.pl b/search.marc/search.pl
index 8ba60de44e..6d0d88fba6 100755
--- a/search.marc/search.pl
+++ b/search.marc/search.pl
@@ -130,7 +130,15 @@ if ($op eq "do_search") {
 			if ($tag) {
 				push @tags,$dbh->quote("$tag$subfield");
 			} else {
-				push @tags, $dbh->quote(substr($marc,0,4));
+				if ($marc =~ /^(\d){3}(. -)(.)*/)
+				{
+					# The user is using the search catalogue part, more fields
+					push @tags, $dbh->quote(substr($marc,0,4));
+				}
+				else
+				{
+					push @tags, $marc;
+				}
 			}
 		} else {
 			push @tags, "";
-- 
2.39.5