View | Details | Raw Unified | Return to bug 5727
Collapse All | Expand All

(-)a/C4/XSLT.pm (-4 / +3 lines)
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
- 

Return to bug 5727