From f26d43345175db510a1503f8f9ad20ee2bd301f7 Mon Sep 17 00:00:00 2001 From: kados Date: Wed, 8 Mar 2006 16:50:14 +0000 Subject: [PATCH] re-adding paul's fix for improper XML characters. --- C4/Biblio.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 2e01d87dd3..f04d7c6d7e 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1045,6 +1045,12 @@ sub MARChtml2xml { my $first=1; my $j = -1; for (my $i=0;$i<=@$tags;$i++){ + @$values[$i] =~ s/&/&/g; + @$values[$i] =~ s//>/g; + @$values[$i] =~ s/"/"/g; + @$values[$i] =~ s/'/'/g; + if ((@$tags[$i] ne $prevtag)){ $j++ unless (@$tags[$i] eq ""); #warn "IND:".substr(@$indicator[$j],0,1).substr(@$indicator[$j],1,1)." ".@$tags[$i]; @@ -2995,6 +3001,9 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# Revision 1.115.2.48 2006/03/08 16:50:14 kados +# re-adding paul's fix for improper XML characters. +# # Revision 1.115.2.47 2006/03/08 16:39:01 kados # removing blank subfield values # -- 2.39.5