From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Tue, 6 Oct 2009 15:50:36 +0000 (+0200)
Subject: TransformHTMLToXML bug default_ind_to_space
X-Git-Tag: v3.02.00-alpha~54^2~180
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=bfffa5361b25dc02a4180b490caa0caf780b66ba;p=koha.git

TransformHTMLToXML bug default_ind_to_space

default_ind_to_space made the assumption that indicator string by default was a string containing 2 characters.
This was not true, causing an Internal server error.
This patch Fixes that.
---

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index a0c325a19c..9b63223d7e 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1769,6 +1769,7 @@ sub TransformHtmlToXml {
     my $prevtag = -1;
     my $first   = 1;
     my $j       = -1;
+	@$indicator=map{sprintf("%2s",$_) unless ( length($_)<2)}@$indicator;
     for ( my $i = 0 ; $i < @$tags ; $i++ ) {
         if (C4::Context->preference('marcflavour') eq 'UNIMARC' and @$tags[$i] eq "100" and @$subfields[$i] eq "a") {
             # if we have a 100 field and it's values are not correct, skip them.