|
Lines 75-81
if ($op eq 'request'){
Link Here
|
| 75 |
# updating due date on checkout |
75 |
# updating due date on checkout |
| 76 |
my $timestamp = dt_from_string($recall->timestamp); |
76 |
my $timestamp = dt_from_string($recall->timestamp); |
| 77 |
my $due_date = $timestamp->add( $issuing_rule->lengthunit => $issuing_rule->recall_due_date_interval ); |
77 |
my $due_date = $timestamp->add( $issuing_rule->lengthunit => $issuing_rule->recall_due_date_interval ); |
| 78 |
Koha::Checkouts->find({ itemnumber => $itemnumber })->update({ date_due => $due_date }); |
78 |
my $checkout = Koha::Checkouts->find({ itemnumber => $itemnumber })->update({ date_due => $due_date }); |
|
|
79 |
my $checkout_borrower = Koha::Patrons->find($checkout->borrowernumber->borrowernumber); |
| 80 |
|
| 81 |
# send notice to user with recalled item checked out |
| 82 |
my $letter = C4::Letters::GetPreparedLetter ( |
| 83 |
module => 'circulation', |
| 84 |
letter_code => 'RETURN_RECALLED_ITEM', |
| 85 |
branchcode => $recall->branchcode, |
| 86 |
tables => { |
| 87 |
'biblio', $biblio->biblionumber, |
| 88 |
'borrowers', $checkout_borrower->borrowernumber, |
| 89 |
'items', $itemnumber, |
| 90 |
'issues', $itemnumber, |
| 91 |
}, |
| 92 |
); |
| 93 |
C4::Message->enqueue($letter, $checkout_borrower->unblessed, 'email'); |
| 79 |
|
94 |
|
| 80 |
$template->param( |
95 |
$template->param( |
| 81 |
success => 1, |
96 |
success => 1, |
| 82 |
- |
|
|