Lines 24-29
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( XSLTParse4Display ); |
27 |
|
28 |
|
28 |
use Koha::Database; |
29 |
use Koha::Database; |
29 |
use Koha::DateUtils qw( dt_from_string ); |
30 |
use Koha::DateUtils qw( dt_from_string ); |
Lines 829-835
sub get_marc_notes {
Link Here
|
829 |
|
830 |
|
830 |
my %hiddenlist = map { $_ => 1 } |
831 |
my %hiddenlist = map { $_ => 1 } |
831 |
split( /,/, C4::Context->preference('NotesToHide')); |
832 |
split( /,/, C4::Context->preference('NotesToHide')); |
832 |
foreach my $field ( $self->metadata->record->field($scope) ) { |
833 |
my $record = $self->metadata->record; |
|
|
834 |
|
835 |
my $xslfile = C4::Context->preference('XSLTDetailsDisplay') || 'default'; |
836 |
my $lang = $xslfile ? C4::Languages::getlanguage() : undef; |
837 |
my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef; |
838 |
XSLTParse4Display( $self->biblionumber, $record, "XSLTDetailsDisplay", 1, undef, $sysxml, $xslfile, $lang, undef ); |
839 |
|
840 |
foreach my $field ( $record->field($scope) ) { |
833 |
my $tag = $field->tag(); |
841 |
my $tag = $field->tag(); |
834 |
next if $hiddenlist{ $tag }; |
842 |
next if $hiddenlist{ $tag }; |
835 |
next if $opac && $maybe_private{$tag} && !$field->indicator(1); |
843 |
next if $opac && $maybe_private{$tag} && !$field->indicator(1); |
836 |
- |
|
|