Lines 192-197
sub XSLTParse4Display {
Link Here
|
192 |
$sysxml ||= C4::Context->preference($xslsyspref); |
192 |
$sysxml ||= C4::Context->preference($xslsyspref); |
193 |
$xslfilename ||= C4::Context->preference($xslsyspref); |
193 |
$xslfilename ||= C4::Context->preference($xslsyspref); |
194 |
$lang ||= C4::Languages::getlanguage(); |
194 |
$lang ||= C4::Languages::getlanguage(); |
|
|
195 |
my $kohavars = "<koha>\n<biblionumber>$biblionumber</biblionumber>\n</koha>\n"; |
195 |
|
196 |
|
196 |
if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
197 |
if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
197 |
my $htdocs; |
198 |
my $htdocs; |
Lines 242-248
sub XSLTParse4Display {
Link Here
|
242 |
my $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items); |
243 |
my $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items); |
243 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
244 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
244 |
|
245 |
|
245 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
246 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml$kohavars\<\/record\>/; |
246 |
if ($fixamps) { # We need to correct the HTML entities that Zebra outputs |
247 |
if ($fixamps) { # We need to correct the HTML entities that Zebra outputs |
247 |
$xmlrecord =~ s/\&amp;/\&/g; |
248 |
$xmlrecord =~ s/\&amp;/\&/g; |
248 |
$xmlrecord =~ s/\&\;lt\;/\<\;/g; |
249 |
$xmlrecord =~ s/\&\;lt\;/\<\;/g; |