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

(-)a/opac/opac-user.pl (-2 / +2 lines)
Lines 307-314 if ( $pending_checkouts->count ) { # Useless test Link Here
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;
(-)a/recalls/recalls_to_pull.pl (-2 / +2 lines)
Lines 45-51 if ( $op eq 'cancel' ) { Link Here
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;
(-)a/recalls/recalls_waiting.pl (-2 / +1 lines)
Lines 51-57 if ( $op eq 'modify' ) { Link Here
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