Lines 40-46
menu.
Link Here
|
40 |
|
40 |
|
41 |
use Modern::Perl; |
41 |
use Modern::Perl; |
42 |
use Carp; |
42 |
use Carp; |
43 |
use C4::Biblio; |
43 |
use C4::Biblio qw( GetMarcStructure ); |
44 |
|
44 |
|
45 |
use base qw(Koha::RecordProcessor::Base); |
45 |
use base qw(Koha::RecordProcessor::Base); |
46 |
our $NAME = 'MARC_ViewPolicy'; |
46 |
our $NAME = 'MARC_ViewPolicy'; |
Lines 86-92
sub filter {
Link Here
|
86 |
my $result = $current_record; |
86 |
my $result = $current_record; |
87 |
my $hide = _should_hide_on_interface(); |
87 |
my $hide = _should_hide_on_interface(); |
88 |
|
88 |
|
89 |
my $marcsubfieldstructure = GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } ); |
89 |
my $marcsubfieldstructure = C4::Biblio::GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } ); |
90 |
|
90 |
|
91 |
#if ($marcsubfieldstructure->{'000'}->{'@'}->{hidden}>0) { |
91 |
#if ($marcsubfieldstructure->{'000'}->{'@'}->{hidden}>0) { |
92 |
# LDR field is excluded from $current_record->fields(). |
92 |
# LDR field is excluded from $current_record->fields(). |