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

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

Return to bug 14377