Attachment #131280 for bug #19532

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

Lines 307-314 if ( $pending_checkouts->count ) { # Useless test Link Here

(-)a/opac/opac-user.pl (-2 / +2 lines)
307	$issue->{MySummaryHTML} = $my_summary_html;	307	$issue->{MySummaryHTML} = $my_summary_html;
308	}	308	}
309		309
310	my @maybe_recalls = Koha::Recalls->search({ biblionumber => $issue->{biblionumber}, itemnumber => [ undef, $issue->{itemnumber} ], old => undef });	310	my $maybe_recalls = Koha::Recalls->search({ biblionumber => $issue->{biblionumber}, itemnumber => [ undef, $issue->{itemnumber} ], old => undef });
311	foreach my $recall ( @maybe_recalls ) {	311	while( my $recall = $maybe_recalls->next ) {
312	if ( $recall->checkout and $recall->checkout->issue_id == $issue->{issue_id} ) {	312	if ( $recall->checkout and $recall->checkout->issue_id == $issue->{issue_id} ) {
313	$issue->{recall} = 1;	313	$issue->{recall} = 1;
314	last;	314	last;

Lines 45-51 if ( $op eq 'cancel' ) { Link Here

(-)a/recalls/recalls_to_pull.pl (-2 / +2 lines)
45	}	45	}
46		46
47	if ( $op eq 'list' ) {	47	if ( $op eq 'list' ) {
48	my @recalls = Koha::Recalls->search({ status => [ 'R','O','T' ] });	48	my @recalls = Koha::Recalls->search({ status => [ 'R','O','T' ] })->as_list;
49	my @pull_list;	49	my @pull_list;
50	my %seen_bib;	50	my %seen_bib;
51	foreach my $recall ( @recalls ) {	51	foreach my $recall ( @recalls ) {
Lines 57-63 if ( $op eq 'list' ) { Link Here
57	$seen_bib{$recall->biblionumber}++;	57	$seen_bib{$recall->biblionumber}++;
58		58
59	# get recall data about this biblio	59	# get recall data about this biblio
60	my @this_bib_recalls = Koha::Recalls->search({ biblionumber => $recall->biblionumber, status => [ 'R','O','T' ] }, { order_by => { -asc => 'recalldate' } });	60	my @this_bib_recalls = Koha::Recalls->search({ biblionumber => $recall->biblionumber, status => [ 'R','O','T' ] }, { order_by => { -asc => 'recalldate' } })->as_list;
61	my $recalls_count = scalar @this_bib_recalls;	61	my $recalls_count = scalar @this_bib_recalls;
62	my @unique_patrons = do { my %seen; grep { !$seen{$_->borrowernumber}++ } @this_bib_recalls };	62	my @unique_patrons = do { my %seen; grep { !$seen{$_->borrowernumber}++ } @this_bib_recalls };
63	my $patrons_count = scalar @unique_patrons;	63	my $patrons_count = scalar @unique_patrons;

Lines 51-57 if ( $op eq 'modify' ) { Link Here

(-)a/recalls/recalls_waiting.pl (-2 / +1 lines)
51	}	51	}
52		52
53	if ( $op eq 'list' ) {	53	if ( $op eq 'list' ) {
54	my @recalls = Koha::Recalls->search({ status => 'W' });	54	my @recalls = Koha::Recalls->search({ status => 'W' })->as_list;
55	my $borrower = Koha::Patrons->find( $loggedinuser );	55	my $borrower = Koha::Patrons->find( $loggedinuser );
56	my @over;	56	my @over;
57	my $maxdelay = C4::Context->preference('RecallsMaxPickUpDelay') \|\| 7;	57	my $maxdelay = C4::Context->preference('RecallsMaxPickUpDelay') \|\| 7;
58	-

Return to bug 19532