From 31a590d4ada3c47ccde8656a910deee88b582249 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 6 Oct 2003 15:20:51 +0000
Subject: [PATCH] fix for 536 (subtitle error)

---
 C4/Biblio.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 69a83bc1c7..1cb5ae7eb3 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1,6 +1,9 @@
 package C4::Biblio;
 # $Id$
 # $Log$
+# Revision 1.64  2003/10/06 15:20:51  tipaul
+# fix for 536 (subtitle error)
+#
 # Revision 1.63  2003/10/01 13:25:49  tipaul
 # seems a char encoding problem modified something in char_decode sub... changing back to something that works...
 #
@@ -1131,6 +1134,7 @@ sub MARCmarc2koha {
 		$result = &MARCmarc2kohaOneField($sth,"items",$field,$record,$result);
 	}
 	# additional authors : specific
+	$result = &MARCmarc2kohaOneField($sth,"bibliosubtitle","subtitle",$record,$result);
 	$result = &MARCmarc2kohaOneField($sth,"additionalauthors","additionalauthors",$record,$result);
 # modify copyrightdate to keep only the 1st year found
 	my $temp = $result->{'copyrightdate'};
@@ -1252,7 +1256,7 @@ sub NEWnewbiblio {
 			OLDmodaddauthor($dbh,$oldbibnum,$addiauthsubfields[$subfieldcount]);
 		}
 	}
-	($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.subtitle");
+	($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.title");
 	my @subtitlefields = $record->field($tagfield);
 	foreach my $subtitlefield (@subtitlefields) {
 		my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
-- 
2.39.5