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

(-)a/C4/XSLT.pm (-7 / +7 lines)
Lines 81-87 sub transformMARCXML4XSLT { Link Here
81
                    my ( $letter, $value ) = @$subfield;
81
                    my ( $letter, $value ) = @$subfield;
82
                    # Replace the field value with the authorised value *except* for MARC21/NORMARC field 942$n (suppression in opac)
82
                    # Replace the field value with the authorised value *except* for MARC21/NORMARC field 942$n (suppression in opac)
83
                    if ( !( $tag eq '942' && $subfield->[0] eq 'n' ) || $marcflavour eq 'UNIMARC' ) {
83
                    if ( !( $tag eq '942' && $subfield->[0] eq 'n' ) || $marcflavour eq 'UNIMARC' ) {
84
                        $value = GetAuthorisedValueDesc( $tag, $letter, $value, $frameworkcode, $tagslib, undef, $opac )
84
                        $value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib, undef, $opac )
85
                            if $av->{ $tag }->{ $letter };
85
                            if $av->{ $tag }->{ $letter };
86
                    }
86
                    }
87
                    push( @new_subfields, $letter, $value );
87
                    push( @new_subfields, $letter, $value );
Lines 394-406 sub buildKohaItemsNamespace { Link Here
394
        else {
394
        else {
395
            $status = "available";
395
            $status = "available";
396
        }
396
        }
397
        my $homebranch     = C4::Koha::xml_escape($branches{$item->homebranch});
397
        my $homebranch     = xml_escape($branches{$item->homebranch});
398
        my $holdingbranch  = C4::Koha::xml_escape($branches{$item->holdingbranch});
398
        my $holdingbranch  = xml_escape($branches{$item->holdingbranch});
399
        my $resultbranch   = C4::Context->preference('OPACResultsLibrary') eq 'homebranch' ? $homebranch : $holdingbranch;
399
        my $resultbranch   = C4::Context->preference('OPACResultsLibrary') eq 'homebranch' ? $homebranch : $holdingbranch;
400
        my $location       = C4::Koha::xml_escape($item->location && exists $shelflocations->{$item->location} ? $shelflocations->{$item->location} : $item->location);
400
        my $location       = xml_escape($item->location && exists $shelflocations->{$item->location} ? $shelflocations->{$item->location} : $item->location);
401
        my $ccode          = C4::Koha::xml_escape($item->ccode    && exists $ccodes->{$item->ccode}            ? $ccodes->{$item->ccode}            : $item->ccode);
401
        my $ccode          = xml_escape($item->ccode    && exists $ccodes->{$item->ccode}            ? $ccodes->{$item->ccode}            : $item->ccode);
402
        my $itemcallnumber = C4::Koha::xml_escape($item->itemcallnumber);
402
        my $itemcallnumber = xml_escape($item->itemcallnumber);
403
        my $stocknumber    = C4::Koha::xml_escape($item->stocknumber);
403
        my $stocknumber    = xml_escape($item->stocknumber);
404
        $xml .=
404
        $xml .=
405
            "<item>"
405
            "<item>"
406
          . "<homebranch>$homebranch</homebranch>"
406
          . "<homebranch>$homebranch</homebranch>"
(-)a/t/db_dependent/Koha/Biblio.t (-3 / +2 lines)
Lines 22-29 use Test::More tests => 14; Link Here
22
use C4::Biblio qw( AddBiblio ModBiblio );
22
use C4::Biblio qw( AddBiblio ModBiblio );
23
use Koha::Database;
23
use Koha::Database;
24
use Koha::Acquisition::Orders;
24
use Koha::Acquisition::Orders;
25
use Koha::AuthorisedValueCategory;
25
use Koha::AuthorisedValueCategories;
26
use Koha::AuthorisedValue;
26
use Koha::AuthorisedValues;
27
use Koha::MarcSubfieldStructures;
27
use Koha::MarcSubfieldStructures;
28
28
29
use t::lib::TestBuilder;
29
use t::lib::TestBuilder;
30
- 

Return to bug 28734