From 5c1ba0f7b8a6c746ed43e1eb3177d8619c4727c1 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 15 Mar 2004 14:31:50 +0000
Subject: [PATCH] adding a minor check

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

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index fb5dd71783..b0a96bf8c8 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -256,6 +256,7 @@ sub MARCgettagslib {
 
 sub MARCfind_marc_from_kohafield {
     my ($dbh,$kohafield) = @_;
+    return 0,0 unless $kohafield;
     my $sth=$dbh->prepare("select tagfield,tagsubfield from marc_subfield_structure where kohafield=?");
     $sth->execute($kohafield);
     my ($tagfield,$tagsubfield) = $sth->fetchrow;
@@ -2193,6 +2194,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.83  2004/03/15 14:31:50  tipaul
+# adding a minor check
+#
 # Revision 1.82  2004/03/07 05:47:31  acli
 # Various updates/fixes from rel_2_0
 # Fixes for bugs 721 (templating), 727, and 734
-- 
2.11.0