|
Lines 33-38
use Koha::Patrons;
Link Here
|
| 33 |
use List::Util qw( shuffle ); |
33 |
use List::Util qw( shuffle ); |
| 34 |
use List::MoreUtils qw( any ); |
34 |
use List::MoreUtils qw( any ); |
| 35 |
|
35 |
|
|
|
36 |
use Data::Dumper; |
| 37 |
use Koha::Logger; |
| 38 |
|
| 39 |
$Data::Dumper::Maxdepth = 2; |
| 40 |
C4::Context->interface('intranet'); |
| 41 |
my $logger = Koha::Logger->get(); |
| 42 |
|
| 36 |
our (@ISA, @EXPORT_OK); |
43 |
our (@ISA, @EXPORT_OK); |
| 37 |
BEGIN { |
44 |
BEGIN { |
| 38 |
require Exporter; |
45 |
require Exporter; |
|
Lines 813-820
sub load_branches_to_pull_from {
Link Here
|
| 813 |
->get_column('branchcode')->all() |
820 |
->get_column('branchcode')->all() |
| 814 |
unless (@branches_to_use); |
821 |
unless (@branches_to_use); |
| 815 |
|
822 |
|
| 816 |
@branches_to_use = shuffle(@branches_to_use) |
823 |
if(C4::Context->preference("RandomizeHoldsQueueWeight")) { |
| 817 |
if C4::Context->preference("RandomizeHoldsQueueWeight"); |
824 |
$logger->warn("Branch list before shuffle:" . Dumper(@branches_to_use)); |
|
|
825 |
@branches_to_use = shuffle(@branches_to_use); |
| 826 |
$logger->warn("Branch list after shuffle:" . Dumper(@branches_to_use)); |
| 827 |
} |
| 828 |
|
| 818 |
|
829 |
|
| 819 |
my $today = dt_from_string(); |
830 |
my $today = dt_from_string(); |
| 820 |
if ( C4::Context->preference('HoldsQueueSkipClosed') ) { |
831 |
if ( C4::Context->preference('HoldsQueueSkipClosed') ) { |
| 821 |
- |
|
|