Attachment #81670 for bug #19532

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

Lines 42-48 my @recall_ids = $query->multi_param('recall_ids'); Link Here

(-)a/circ/recalls_overdue.pl (-1 / +1 lines)
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	}

Lines 42-48 my @recall_ids = $query->multi_param('recall_ids'); Link Here

(-)a/circ/recalls_queue.pl (-1 / +1 lines)
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	}

Lines 42-48 my $op = $query->param('op') \|\| 'list'; Link Here

(-)a/circ/recalls_waiting.pl (-1 / +1 lines)
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

Lines 103-109 if ($op eq 'request'){ Link Here

(-)a/opac/opac-recall.pl (-1 / +1 lines)
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

Lines 46-51 unless ($recall) { Link Here

(-)a/svc/recall (-2 / +1 lines)
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