From 5dacccedec737715fbca15f805ca7a07213ee135 Mon Sep 17 00:00:00 2001
From: Mason James <mason.james@liblime.com>
Date: Wed, 2 Jan 2008 01:25:04 -0600
Subject: [PATCH] TransformHtmlToXml() now checks from UNIMARC flavour, before
 inserting encoding info to 100$a

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Biblio.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 1b9c02f298..6f54a84535 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -2575,7 +2575,7 @@ sub TransformHtmlToXml {
         }
         $prevtag = @$tags[$i];
     }
-    if (C4::Context->preference('marcflavour') and !$unimarc_and_100_exist) {
+    if (C4::Context->preference('marcflavour') eq 'UNIMARC' and !$unimarc_and_100_exist) {
 #     warn "SETTING 100 for $auth_type";
         use POSIX qw(strftime);
         my $string = strftime( "%Y%m%d", localtime(time) );
-- 
2.39.5