|
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 |
- |
|
|