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

(-)a/Koha/Biblio.pm (-6 / +14 lines)
Lines 24-30 use URI; Link Here
24
use URI::Escape qw( uri_escape_utf8 );
24
use URI::Escape qw( uri_escape_utf8 );
25
25
26
use C4::Koha qw( GetNormalizedISBN );
26
use C4::Koha qw( GetNormalizedISBN );
27
use C4::XSLT qw( transformMARCXML4XSLT );
28
27
29
use Koha::Database;
28
use Koha::Database;
30
use Koha::DateUtils qw( dt_from_string );
29
use Koha::DateUtils qw( dt_from_string );
Lines 42-47 use Koha::Items; Link Here
42
use Koha::Libraries;
41
use Koha::Libraries;
43
use Koha::Old::Checkouts;
42
use Koha::Old::Checkouts;
44
use Koha::Recalls;
43
use Koha::Recalls;
44
use Koha::RecordProcessor;
45
use Koha::Suggestions;
45
use Koha::Suggestions;
46
use Koha::Subscriptions;
46
use Koha::Subscriptions;
47
use Koha::SearchEngine;
47
use Koha::SearchEngine;
Lines 927-935 sub get_marc_notes { Link Here
927
    my $marcflavour = C4::Context->preference('marcflavour');
927
    my $marcflavour = C4::Context->preference('marcflavour');
928
    my $opac = $params->{opac};
928
    my $opac = $params->{opac};
929
929
930
    my $scope = $marcflavour eq "UNIMARC"? '3..': '5..';
930
    my $record = $self->metadata->record;
931
    my @marcnotes;
931
    my $record_processor = Koha::RecordProcessor->new(
932
        {
933
            filters => ( 'ViewPolicy', 'AuthorizedValues' ),
934
            options => {
935
                interface     => $opac ? 'opac' : 'intranet' ,
936
                frameworkcode => $self->frameworkcode
937
            }
938
        }
939
    );
940
    $record_processor->process($record);
932
941
942
    my $scope = $marcflavour eq "UNIMARC"? '3..': '5..';
933
    #MARC21 specs indicate some notes should be private if first indicator 0
943
    #MARC21 specs indicate some notes should be private if first indicator 0
934
    my %maybe_private = (
944
    my %maybe_private = (
935
        541 => 1,
945
        541 => 1,
Lines 941-949 sub get_marc_notes { Link Here
941
951
942
    my %hiddenlist = map { $_ => 1 }
952
    my %hiddenlist = map { $_ => 1 }
943
        split( /,/, C4::Context->preference('NotesToHide'));
953
        split( /,/, C4::Context->preference('NotesToHide'));
944
    my $record = $self->metadata->record;
945
    $record = transformMARCXML4XSLT( $self->biblionumber, $record, $opac );
946
954
955
    my @marcnotes;
947
    foreach my $field ( $record->field($scope) ) {
956
    foreach my $field ( $record->field($scope) ) {
948
        my $tag = $field->tag();
957
        my $tag = $field->tag();
949
        next if $hiddenlist{ $tag };
958
        next if $hiddenlist{ $tag };
950
- 

Return to bug 30744