From d52f3680f482a42cc98ad9810c011c8775d9b3ee Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Mon, 14 Mar 2011 22:14:19 -0400 Subject: [PATCH] Bug 3326: Work around Zebra's handling of & entities When using XSLT mode, the OPAC results display will show "&" instead of "&" when Zebra is indexing in XML mode. This patch works around this by replacing "&" with "&" and then extends the previous fix to apply to all occurrences of "& " instead of just the first. Signed-off-by: Nicole C. Engard Signed-off-by: Chris Cormack --- C4/Search.pm | 4 +++- C4/XSLT.pm | 7 +++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index 26dc67ff30..c486df9115 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -1687,7 +1687,9 @@ sub searchResults { # FIXME note that XSLTResultsDisplay (use of XSLT to format staff interface bib search results) # is not implemented yet $oldbiblio->{XSLTResultsRecord} = XSLTParse4Display($oldbiblio->{biblionumber}, $marcrecord, 'Results', - $search_context); + $search_context, 1); + # the last parameter tells Koha to clean up the problematic ampersand entities that Zebra outputs + } # last check for norequest : if itemtype is notforloan, it can't be reserved either, whatever the items diff --git a/C4/XSLT.pm b/C4/XSLT.pm index 348930f9e7..d60268893e 100644 --- a/C4/XSLT.pm +++ b/C4/XSLT.pm @@ -120,7 +120,7 @@ sub getAuthorisedValues4MARCSubfields { my $stylesheet; sub XSLTParse4Display { - my ( $biblionumber, $orig_record, $xsl_suffix, $interface ) = @_; + my ( $biblionumber, $orig_record, $xsl_suffix, $interface, $fixamps ) = @_; $interface = 'opac' unless $interface; # grab the XML, run it through our stylesheet, push it out to the browser my $record = transformMARCXML4XSLT($biblionumber, $orig_record); @@ -139,8 +139,11 @@ sub XSLTParse4Display { } $sysxml .= "\n"; $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; + if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs + $xmlrecord =~ s/\&/\&/g; + } $xmlrecord =~ s/\& /\&\; /; - $xmlrecord=~ s/\&\;amp\; /\&\; /; + $xmlrecord =~ s/\&\;amp\; /\&\; /; my $parser = XML::LibXML->new(); # don't die when you find &, >, etc -- 2.39.5