Lines 120-126
sub getAuthorisedValues4MARCSubfields {
Link Here
|
120 |
my $stylesheet; |
120 |
my $stylesheet; |
121 |
|
121 |
|
122 |
sub XSLTParse4Display { |
122 |
sub XSLTParse4Display { |
123 |
my ( $biblionumber, $orig_record, $xsl_suffix, $interface ) = @_; |
123 |
my ( $biblionumber, $orig_record, $xsl_suffix, $interface, $fixamps ) = @_; |
124 |
$interface = 'opac' unless $interface; |
124 |
$interface = 'opac' unless $interface; |
125 |
# grab the XML, run it through our stylesheet, push it out to the browser |
125 |
# grab the XML, run it through our stylesheet, push it out to the browser |
126 |
my $record = transformMARCXML4XSLT($biblionumber, $orig_record); |
126 |
my $record = transformMARCXML4XSLT($biblionumber, $orig_record); |
Lines 139-146
sub XSLTParse4Display {
Link Here
|
139 |
} |
139 |
} |
140 |
$sysxml .= "</sysprefs>\n"; |
140 |
$sysxml .= "</sysprefs>\n"; |
141 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
141 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
|
|
142 |
if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs |
143 |
$xmlrecord =~ s/\&/\&/g; |
144 |
} |
142 |
$xmlrecord =~ s/\& /\&\; /; |
145 |
$xmlrecord =~ s/\& /\&\; /; |
143 |
$xmlrecord=~ s/\&\;amp\; /\&\; /; |
146 |
$xmlrecord =~ s/\&\;amp\; /\&\; /; |
144 |
|
147 |
|
145 |
my $parser = XML::LibXML->new(); |
148 |
my $parser = XML::LibXML->new(); |
146 |
# don't die when you find &, >, etc |
149 |
# don't die when you find &, >, etc |
147 |
- |
|
|