View | Details | Raw Unified | Return to bug 19532
Collapse All | Expand All

(-)a/circ/recalls_overdue.pl (-1 / +1 lines)
Lines 42-48 my @recall_ids = $query->multi_param('recall_ids'); Link Here
42
42
43
if ($op eq 'cancel_multiple_recalls') {
43
if ($op eq 'cancel_multiple_recalls') {
44
    foreach my $id (@recall_ids) {
44
    foreach my $id (@recall_ids) {
45
        Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C' });
45
        Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 });
46
        $op = 'list'
46
        $op = 'list'
47
    }
47
    }
48
}
48
}
(-)a/circ/recalls_queue.pl (-1 / +1 lines)
Lines 42-48 my @recall_ids = $query->multi_param('recall_ids'); Link Here
42
42
43
if ($op eq 'cancel_multiple_recalls') {
43
if ($op eq 'cancel_multiple_recalls') {
44
    foreach my $id (@recall_ids) {
44
    foreach my $id (@recall_ids) {
45
        Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C' });
45
        Koha::Recalls->find($id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 });
46
        $op = 'list'
46
        $op = 'list'
47
    }
47
    }
48
}
48
}
(-)a/circ/recalls_waiting.pl (-1 / +1 lines)
Lines 42-48 my $op = $query->param('op') || 'list'; Link Here
42
42
43
if ($op eq 'expire_recall') {
43
if ($op eq 'expire_recall') {
44
    my $recall_id = $query->param('recall_id');
44
    my $recall_id = $query->param('recall_id');
45
    Koha::Recalls->find($recall_id)->update({ expirationdate => dt_from_string(), status => 'E' });
45
    Koha::Recalls->find($recall_id)->update({ expirationdate => dt_from_string(), status => 'E', old => 1 });
46
    $op = 'list';
46
    $op = 'list';
47
}
47
}
48
48
(-)a/opac/opac-recall.pl (-1 / +1 lines)
Lines 103-109 if ($op eq 'request'){ Link Here
103
    }
103
    }
104
} elsif ($op eq 'cancel'){
104
} elsif ($op eq 'cancel'){
105
    my $recall_id = $query->param('recall_id');
105
    my $recall_id = $query->param('recall_id');
106
    Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C' });
106
    Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 });
107
    print $query->redirect('/cgi-bin/koha/opac-user.pl');
107
    print $query->redirect('/cgi-bin/koha/opac-user.pl');
108
}
108
}
109
109
(-)a/svc/recall (-2 / +1 lines)
Lines 46-51 unless ($recall) { Link Here
46
    exit;
46
    exit;
47
}
47
}
48
48
49
$recall->update({ cancellationdate => dt_from_string(), status => 'C' });
49
$recall->update({ cancellationdate => dt_from_string(), status => 'C', old => 1 });
50
my $json = encode_json( { success => 1 } );
50
my $json = encode_json( { success => 1 } );
51
output_with_http_headers( $input, undef, $json, "json" );
51
output_with_http_headers( $input, undef, $json, "json" );
52
- 

Return to bug 19532