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

(-)a/C4/XSLT.pm (-12 / +14 lines)
Lines 159-164 sub _get_best_default_xslt_filename { Link Here
159
sub XSLTParse4Display {
159
sub XSLTParse4Display {
160
    my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;
160
    my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;
161
    my $xslfilename = C4::Context->preference($xslsyspref);
161
    my $xslfilename = C4::Context->preference($xslsyspref);
162
    my $marcflavour = C4::Context->preference('marcflavour');
162
    if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
163
    if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
163
        my $htdocs;
164
        my $htdocs;
164
        my $theme;
165
        my $theme;
Lines 196-202 sub XSLTParse4Display { Link Here
196
    # grab the XML, run it through our stylesheet, push it out to the browser
197
    # grab the XML, run it through our stylesheet, push it out to the browser
197
    my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
198
    my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
198
    my $itemsxml  = buildKohaItemsNamespace($biblionumber, $hidden_items);
199
    my $itemsxml  = buildKohaItemsNamespace($biblionumber, $hidden_items);
199
    my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
200
    my $xmlrecord = $record->as_xml($marcflavour);
200
    my $sysxml = "<sysprefs>\n";
201
    my $sysxml = "<sysprefs>\n";
201
    foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
202
    foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
202
                              DisplayOPACiconsXSLT URLLinkText viewISBD
203
                              DisplayOPACiconsXSLT URLLinkText viewISBD
Lines 218-233 sub XSLTParse4Display { Link Here
218
    ## Non-syspref variables that need to be computed
219
    ## Non-syspref variables that need to be computed
219
    $sysxml .= "<OtherVars>";
220
    $sysxml .= "<OtherVars>";
220
221
221
    # Fetch the authorised value description for 942$n ( supressed in opac ) for the value '1'
222
    unless ( $marcflavour eq 'UNIMARC' ) {
222
    # if 942$n is not mapped, the return value will be '1' which means even if the field is not
223
        # Fetch the authorised value description for 942$n ( supressed in opac ) for the value '1'
223
    # mapped in the framework, we will still get the correct value to compare against
224
        # if 942$n is not mapped, the return value will be '1' which means even if the field is not
224
    my $frameworkcode = GetFrameworkCode($biblionumber) || '';
225
        # mapped in the framework, we will still get the correct value to compare against
225
    my $tagslib = &GetMarcStructure(1,$frameworkcode);
226
        my $frameworkcode = GetFrameworkCode($biblionumber) || '';
226
    my $value = GetAuthorisedValueDesc( '942', 'n', '1', '', $tagslib );
227
        my $tagslib = &GetMarcStructure(1,$frameworkcode);
227
    $sysxml .= "<OtherVar name=\"Field942_1_True_Value\">$value</OtherVar>";
228
        my $value = GetAuthorisedValueDesc( '942', 'n', '1', '', $tagslib );
228
229
        $sysxml .= "<OtherVar name=\"Field942_1_True_Value\">$value</OtherVar>";
229
    $sysxml .= "</OtherVars>\n";
230
230
    ## End non-syspref variables that need to be computed
231
        $sysxml .= "</OtherVars>\n";
232
        ## End non-syspref variables that need to be computed
233
    }
231
234
232
    $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;
235
    $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;
233
    if ($fixamps) { # We need to correct the HTML entities that Zebra outputs
236
    if ($fixamps) { # We need to correct the HTML entities that Zebra outputs
234
- 

Return to bug 14377