Attachment #131282 for bug #19532

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

Lines 37-44 use C4::Log; Link Here

(-)a/misc/cronjobs/recalls/expire_recalls.pl (-2 / +2 lines)
37		37
38	cronlogaction();	38	cronlogaction();
39		39
40	my @recalls = Koha::Recalls->search({ old => undef })->as_list;	40	my $recalls = Koha::Recalls->search({ old => undef });
41	foreach my $recall (@recalls) {	41	while( my $recall = $recalls->next ) {
42	if ( ( $recall->requested or $recall->overdue ) and $recall->expirationdate and dt_from_string( $recall->expirationdate ) < dt_from_string() ){	42	if ( ( $recall->requested or $recall->overdue ) and $recall->expirationdate and dt_from_string( $recall->expirationdate ) < dt_from_string() ){
43	# recall is requested or overdue and has surpassed the specified expiration date	43	# recall is requested or overdue and has surpassed the specified expiration date
44	$recall->set_expired({ interface => 'COMMANDLINE' });	44	$recall->set_expired({ interface => 'COMMANDLINE' });

Lines 36-43 use C4::Log; Link Here

(-)a/misc/cronjobs/recalls/overdue_recalls.pl (-3 / +2 lines)
36		36
37	cronlogaction();	37	cronlogaction();
38		38
39	my @recalls = Koha::Recalls->search({ status => 'R' })->as_list;	39	my $recalls = Koha::Recalls->search({ status => 'R' });
40	foreach my $recall (@recalls){	40	while( my $recall = $recalls->next ) {
41	if ( $recall->should_be_overdue ){	41	if ( $recall->should_be_overdue ){
42	$recall->set_overdue({ interface => 'COMMANDLINE' });	42	$recall->set_overdue({ interface => 'COMMANDLINE' });
43	}	43	}
44	-

Return to bug 19532