From b65bf02b9ccb138a4e160f833c0e2f62f4f75acb Mon Sep 17 00:00:00 2001 From: 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