|
Lines 30-35
use MARC::Record;
Link Here
|
| 30 |
use C4::ClassSource; |
30 |
use C4::ClassSource; |
| 31 |
use C4::Log; |
31 |
use C4::Log; |
| 32 |
use List::MoreUtils qw/any/; |
32 |
use List::MoreUtils qw/any/; |
|
|
33 |
use YAML qw/Load/; |
| 33 |
use Data::Dumper; # used as part of logging item record changes, not just for |
34 |
use Data::Dumper; # used as part of logging item record changes, not just for |
| 34 |
# debugging; so please don't remove this |
35 |
# debugging; so please don't remove this |
| 35 |
|
36 |
|
|
Lines 1629-1634
sub GetHiddenItemnumbers {
Link Here
|
| 1629 |
my @resultitems; |
1630 |
my @resultitems; |
| 1630 |
|
1631 |
|
| 1631 |
my $yaml = C4::Context->preference('OpacHiddenItems'); |
1632 |
my $yaml = C4::Context->preference('OpacHiddenItems'); |
|
|
1633 |
return () if (! $yaml =~ /\S/ ); |
| 1632 |
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
1634 |
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
| 1633 |
my $hidingrules; |
1635 |
my $hidingrules; |
| 1634 |
eval { |
1636 |
eval { |
| 1635 |
- |
|
|