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

(-)a/C4/Members.pm (-6 / +13 lines)
Lines 1023-1035 The keys include C<biblioitems> fields except marc and marcxml. Link Here
1023
1023
1024
#'
1024
#'
1025
sub GetPendingIssues {
1025
sub GetPendingIssues {
1026
    my (@borrowernumbers) = @_;
1026
    my @borrowernumbers = @_;
1027
1028
    unless (@borrowernumbers ) { # return a ref_to_array
1029
        return \@borrowernumbers; # to not cause surprise to caller
1030
    }
1027
1031
1028
    # Borrowers part of the query
1032
    # Borrowers part of the query
1029
    my $bquery = '';
1033
    my $bquery = '';
1030
    for (my $i = 0; $i < @borrowernumbers; $i++) {
1034
    for (my $i = 0; $i < @borrowernumbers; $i++) {
1031
        $bquery .= " borrowernumber = ?";
1035
        $bquery .= ' borrowernumber = ?';
1032
        $bquery .= " OR" if ($i < (scalar(@borrowernumbers) - 1));
1036
        if ($i < $#borrowernumbers ) {
1037
            $bquery .= ' OR';
1038
        }
1033
    }
1039
    }
1034
1040
1035
    # must avoid biblioitems.* to prevent large marc and marcxml fields from killing performance
1041
    # must avoid biblioitems.* to prevent large marc and marcxml fields from killing performance
Lines 1070-1078 sub GetPendingIssues { Link Here
1070
    $sth->execute(@borrowernumbers);
1076
    $sth->execute(@borrowernumbers);
1071
    my $data = $sth->fetchall_arrayref({});
1077
    my $data = $sth->fetchall_arrayref({});
1072
    my $today = C4::Dates->new->output('iso');
1078
    my $today = C4::Dates->new->output('iso');
1073
    foreach (@$data) {
1079
    foreach (@{$data}) {
1074
        $_->{date_due} or next;
1080
        if ($_->{date_due}  and $_->{date_due} lt $today) {
1075
        ($_->{date_due} lt $today) and $_->{overdue} = 1;
1081
            $_->{overdue} = 1;
1082
        }
1076
    }
1083
    }
1077
    return $data;
1084
    return $data;
1078
}
1085
}
(-)a/circ/circulation.pl (-2 / +6 lines)
Lines 463-470 if ($borrower) { Link Here
463
    #push @borrowernumbers, $borrower->{'borrowernumber'};
463
    #push @borrowernumbers, $borrower->{'borrowernumber'};
464
464
465
    # get each issue of the borrower & separate them in todayissues & previous issues
465
    # get each issue of the borrower & separate them in todayissues & previous issues
466
    my ($issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
466
    my $issueslist = GetPendingIssues($borrower->{'borrowernumber'});
467
    my ($relissueslist) = GetPendingIssues(@relborrowernumbers);
467
    my $relissueslist = [];
468
    if ( @relborrowernumbers ) {
469
        $relissueslist = GetPendingIssues(@relborrowernumbers);
470
    }
468
471
469
    build_issue_data($issueslist, 0);
472
    build_issue_data($issueslist, 0);
470
    build_issue_data($relissueslist, 1);
473
    build_issue_data($relissueslist, 1);
Lines 477-482 if ($borrower) { Link Here
477
    else {
480
    else {
478
        @todaysissues   = sort { $b->{'timestamp'} cmp $a->{'timestamp'} } @todaysissues;
481
        @todaysissues   = sort { $b->{'timestamp'} cmp $a->{'timestamp'} } @todaysissues;
479
    }
482
    }
483
480
    if ( C4::Context->preference( "previousIssuesDefaultSortOrder" ) eq 'asc' ){
484
    if ( C4::Context->preference( "previousIssuesDefaultSortOrder" ) eq 'asc' ){
481
        @previousissues = sort { $a->{'date_due'} cmp $b->{'date_due'} } @previousissues;
485
        @previousissues = sort { $a->{'date_due'} cmp $b->{'date_due'} } @previousissues;
482
    }
486
    }
(-)a/members/moremember.pl (-4 / +6 lines)
Lines 242-250 if ( C4::Context->preference('OPACPrivacy') ) { Link Here
242
#
242
#
243
my @borrowernumbers = GetMemberRelatives($borrowernumber);
243
my @borrowernumbers = GetMemberRelatives($borrowernumber);
244
my $issue       = GetPendingIssues($borrowernumber);
244
my $issue       = GetPendingIssues($borrowernumber);
245
my $relissue    = GetPendingIssues(@borrowernumbers);
245
my $relissue    = [];
246
my $issuecount = scalar(@$issue);
246
if ( @borrowernumbers ) {
247
my $relissuecount  = scalar(@$relissue);
247
    $relissue    = GetPendingIssues(@borrowernumbers);
248
}
249
my $issuecount     = @{$issue};
250
my $relissuecount  = @{$relissue};
248
my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
251
my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
249
my $today       = POSIX::strftime("%Y-%m-%d", localtime);	# iso format
252
my $today       = POSIX::strftime("%Y-%m-%d", localtime);	# iso format
250
my @issuedata;
253
my @issuedata;
251
- 

Return to bug 6280