Lines 106-111
if ( scalar @branches && scalar @skip_branches ) {
Link Here
|
106 |
); |
106 |
); |
107 |
} |
107 |
} |
108 |
|
108 |
|
|
|
109 |
my $lost_control_pref = C4::Context->preference('LostChargesControl'); |
110 |
my $home_holding_pref = C4::Context->preference('HomeOrHoldingBranch'); |
111 |
if ( ( scalar @branches || scalar @skip_branches ) |
112 |
&& $lost_control_pref eq 'PickupLibrary' |
113 |
&& !( C4::Context->userenv->{branch} ) ) |
114 |
{ |
115 |
pod2usage( |
116 |
-verbose => 0, |
117 |
-message => |
118 |
"There is no branch set for the cron user, LostCharge Control is set to 'library you are logged in at'.\n" |
119 |
. "No branches will satisfy this requirement - exiting.", |
120 |
-exitval => 1 |
121 |
); |
122 |
} |
123 |
|
109 |
if ( scalar @$itemtype && scalar @$skip_itemtype ) { |
124 |
if ( scalar @$itemtype && scalar @$skip_itemtype ) { |
110 |
pod2usage( |
125 |
pod2usage( |
111 |
-verbose => 1, |
126 |
-verbose => 1, |
Lines 359-367
sub longoverdue_sth {
Link Here
|
359 |
return C4::Context->dbh->prepare($query); |
374 |
return C4::Context->dbh->prepare($query); |
360 |
} |
375 |
} |
361 |
|
376 |
|
362 |
my $dbh = C4::Context->dbh; |
377 |
my $dbh = C4::Context->dbh; |
363 |
my $lost_control_pref = C4::Context->preference('LostChargesControl'); |
|
|
364 |
my $home_holding_pref = C4::Context->preference('HomeOrHoldingBranch'); |
365 |
|
378 |
|
366 |
my @available_categories = Koha::Patron::Categories->search()->get_column('categorycode'); |
379 |
my @available_categories = Koha::Patron::Categories->search()->get_column('categorycode'); |
367 |
$borrower_category = [ map { uc $_ } @$borrower_category ]; |
380 |
$borrower_category = [ map { uc $_ } @$borrower_category ]; |
368 |
- |
|
|