Lines 129-137
sub XSLTParse4Display {
Link Here
|
129 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
129 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
130 |
my $sysxml = "<sysprefs>\n"; |
130 |
my $sysxml = "<sysprefs>\n"; |
131 |
foreach my $syspref ( qw/OPACURLOpenInNewWindow DisplayOPACiconsXSLT URLLinkText viewISBD OPACBaseURL/ ) { |
131 |
foreach my $syspref ( qw/OPACURLOpenInNewWindow DisplayOPACiconsXSLT URLLinkText viewISBD OPACBaseURL/ ) { |
132 |
$sysxml .= "<syspref name=\"$syspref\">" . |
132 |
my $sp = C4::Context->preference( $syspref ); |
133 |
C4::Context->preference( $syspref ) . |
133 |
next unless defined($sp); |
134 |
"</syspref>\n"; |
134 |
$sysxml .= "<syspref name=\"$syspref\">$sp</syspref>\n"; |
135 |
} |
135 |
} |
136 |
$sysxml .= "</sysprefs>\n"; |
136 |
$sysxml .= "</sysprefs>\n"; |
137 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
137 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
138 |
- |
|
|