|
Lines 1170-1176
sub CanBookBeReturned {
Link Here
|
| 1170 |
|
1170 |
|
| 1171 |
sub checkHighHolds { |
1171 |
sub checkHighHolds { |
| 1172 |
my ( $item, $borrower ) = @_; |
1172 |
my ( $item, $borrower ) = @_; |
| 1173 |
my $branch = _GetCircControlBranch( $item, $borrower ); |
1173 |
my $branchcode = _GetCircControlBranch( $item, $borrower ); |
| 1174 |
my $item_object = Koha::Items->find( $item->{itemnumber} ); |
1174 |
my $item_object = Koha::Items->find( $item->{itemnumber} ); |
| 1175 |
|
1175 |
|
| 1176 |
my $return_data = { |
1176 |
my $return_data = { |
|
Lines 1228-1237
sub checkHighHolds {
Link Here
|
| 1228 |
|
1228 |
|
| 1229 |
my $issuedate = DateTime->now( time_zone => C4::Context->tz() ); |
1229 |
my $issuedate = DateTime->now( time_zone => C4::Context->tz() ); |
| 1230 |
|
1230 |
|
| 1231 |
my $calendar = Koha::Calendar->new( branchcode => $branch ); |
1231 |
my $calendar = Koha::Calendar->new( branchcode => $branchcode ); |
| 1232 |
|
1232 |
|
| 1233 |
my $itype = $item_object->effective_itemtype; |
1233 |
my $itype = $item_object->effective_itemtype; |
| 1234 |
my $orig_due = C4::Circulation::CalcDateDue( $issuedate, $itype, $branch, $borrower ); |
1234 |
my $orig_due = C4::Circulation::CalcDateDue( $issuedate, $itype, $branchcode, $borrower ); |
| 1235 |
|
1235 |
|
| 1236 |
my $decreaseLoanHighHoldsDuration = C4::Context->preference('decreaseLoanHighHoldsDuration'); |
1236 |
my $decreaseLoanHighHoldsDuration = C4::Context->preference('decreaseLoanHighHoldsDuration'); |
| 1237 |
|
1237 |
|
|
Lines 1321-1327
sub AddIssue {
Link Here
|
| 1321 |
or return; # if we don't get an Item, abort. |
1321 |
or return; # if we don't get an Item, abort. |
| 1322 |
my $item_unblessed = $item_object->unblessed; |
1322 |
my $item_unblessed = $item_object->unblessed; |
| 1323 |
|
1323 |
|
| 1324 |
my $branch = _GetCircControlBranch( $item_unblessed, $borrower ); |
1324 |
my $branchcode = _GetCircControlBranch( $item_unblessed, $borrower ); |
| 1325 |
|
1325 |
|
| 1326 |
# get actual issuing if there is one |
1326 |
# get actual issuing if there is one |
| 1327 |
my $actualissue = $item_object->checkout; |
1327 |
my $actualissue = $item_object->checkout; |
|
Lines 1332-1338
sub AddIssue {
Link Here
|
| 1332 |
$datedue = AddRenewal( |
1332 |
$datedue = AddRenewal( |
| 1333 |
$borrower->{'borrowernumber'}, |
1333 |
$borrower->{'borrowernumber'}, |
| 1334 |
$item_object->itemnumber, |
1334 |
$item_object->itemnumber, |
| 1335 |
$branch, |
1335 |
$branchcode, |
| 1336 |
$datedue, |
1336 |
$datedue, |
| 1337 |
$issuedate, # here interpreted as the renewal date |
1337 |
$issuedate, # here interpreted as the renewal date |
| 1338 |
); |
1338 |
); |
|
Lines 1340-1352
sub AddIssue {
Link Here
|
| 1340 |
else { |
1340 |
else { |
| 1341 |
unless ($datedue) { |
1341 |
unless ($datedue) { |
| 1342 |
my $itype = $item_object->effective_itemtype; |
1342 |
my $itype = $item_object->effective_itemtype; |
| 1343 |
$datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); |
1343 |
$datedue = CalcDateDue( $issuedate, $itype, $branchcode, $borrower ); |
| 1344 |
|
1344 |
|
| 1345 |
} |
1345 |
} |
| 1346 |
$datedue->truncate( to => 'minute' ); |
1346 |
$datedue->truncate( to => 'minute' ); |
| 1347 |
|
1347 |
|
| 1348 |
my $patron = Koha::Patrons->find( $borrower ); |
1348 |
my $patron = Koha::Patrons->find( $borrower ); |
| 1349 |
my $library = Koha::Libraries->find( $branch ); |
1349 |
my $library = Koha::Libraries->find( $branchcode ); |
| 1350 |
my $fees = Koha::Charges::Fees->new( |
1350 |
my $fees = Koha::Charges::Fees->new( |
| 1351 |
{ |
1351 |
{ |
| 1352 |
patron => $patron, |
1352 |
patron => $patron, |
|
Lines 1387-1393
sub AddIssue {
Link Here
|
| 1387 |
my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule( |
1387 |
my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule( |
| 1388 |
{ categorycode => $borrower->{categorycode}, |
1388 |
{ categorycode => $borrower->{categorycode}, |
| 1389 |
itemtype => $item_object->effective_itemtype, |
1389 |
itemtype => $item_object->effective_itemtype, |
| 1390 |
branchcode => $branch |
1390 |
branchcode => $branchcode |
| 1391 |
} |
1391 |
} |
| 1392 |
); |
1392 |
); |
| 1393 |
|
1393 |
|
|
Lines 1397-1403
sub AddIssue {
Link Here
|
| 1397 |
# Record in the database the fact that the book was issued. |
1397 |
# Record in the database the fact that the book was issued. |
| 1398 |
unless ($datedue) { |
1398 |
unless ($datedue) { |
| 1399 |
my $itype = $item_object->effective_itemtype; |
1399 |
my $itype = $item_object->effective_itemtype; |
| 1400 |
$datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); |
1400 |
$datedue = CalcDateDue( $issuedate, $itype, $branchcode, $borrower ); |
| 1401 |
|
1401 |
|
| 1402 |
} |
1402 |
} |
| 1403 |
$datedue->truncate( to => 'minute' ); |
1403 |
$datedue->truncate( to => 'minute' ); |
|
Lines 1497-1503
sub AddIssue {
Link Here
|
| 1497 |
# Send a checkout slip. |
1497 |
# Send a checkout slip. |
| 1498 |
my $circulation_alert = 'C4::ItemCirculationAlertPreference'; |
1498 |
my $circulation_alert = 'C4::ItemCirculationAlertPreference'; |
| 1499 |
my %conditions = ( |
1499 |
my %conditions = ( |
| 1500 |
branchcode => $branch, |
1500 |
branchcode => $branchcode, |
| 1501 |
categorycode => $borrower->{categorycode}, |
1501 |
categorycode => $borrower->{categorycode}, |
| 1502 |
item_type => $item_object->effective_itemtype, |
1502 |
item_type => $item_object->effective_itemtype, |
| 1503 |
notification => 'CHECKOUT', |
1503 |
notification => 'CHECKOUT', |
|
Lines 1508-1514
sub AddIssue {
Link Here
|
| 1508 |
type => 'CHECKOUT', |
1508 |
type => 'CHECKOUT', |
| 1509 |
item => $item_object->unblessed, |
1509 |
item => $item_object->unblessed, |
| 1510 |
borrower => $borrower, |
1510 |
borrower => $borrower, |
| 1511 |
branch => $branch, |
1511 |
branch => $branchcode, |
| 1512 |
} |
1512 |
} |
| 1513 |
); |
1513 |
); |
| 1514 |
} |
1514 |
} |
| 1515 |
- |
|
|