@@ -, +, @@ --- circ/recalls_overdue.pl | 2 +- circ/recalls_queue.pl | 2 +- circ/recalls_waiting.pl | 2 +- opac/opac-recall.pl | 2 +- svc/recall | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) --- a/circ/recalls_overdue.pl +++ a/circ/recalls_overdue.pl @@ -42,7 +42,7 @@ my @recall_ids = $query->multi_param('recall_ids'); if ($op eq 'cancel_multiple_recalls') { foreach my $id (@recall_ids) { - Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C' }); + Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 }); $op = 'list' } } --- a/circ/recalls_queue.pl +++ a/circ/recalls_queue.pl @@ -42,7 +42,7 @@ my @recall_ids = $query->multi_param('recall_ids'); if ($op eq 'cancel_multiple_recalls') { foreach my $id (@recall_ids) { - Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C' }); + Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 }); $op = 'list' } } --- a/circ/recalls_waiting.pl +++ a/circ/recalls_waiting.pl @@ -42,7 +42,7 @@ my $op = $query->param('op') || 'list'; if ($op eq 'expire_recall') { my $recall_id = $query->param('recall_id'); - Koha::Recalls->find($recall_id)->update({ expirationdate => dt_from_string(), status => 'E' }); + Koha::Recalls->find($recall_id)->update({ expirationdate => dt_from_string(), status => 'E', old => 1 }); $op = 'list'; } --- a/opac/opac-recall.pl +++ a/opac/opac-recall.pl @@ -103,7 +103,7 @@ if ($op eq 'request'){ } } elsif ($op eq 'cancel'){ my $recall_id = $query->param('recall_id'); - Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C' }); + Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 }); print $query->redirect('/cgi-bin/koha/opac-user.pl'); } --- a/svc/recall +++ a/svc/recall @@ -46,6 +46,6 @@ unless ($recall) { exit; } -$recall->update({ cancellationdate => dt_from_string(), status => 'C' }); +$recall->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 }); my $json = encode_json( { success => 1 } ); output_with_http_headers( $input, undef, $json, "json" ); --