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

(-)a/C4/Members.pm (+1 lines)
Lines 1032-1037 The keys include C<biblioitems> fields except marc and marcxml. Link Here
1032
#'
1032
#'
1033
sub GetPendingIssues {
1033
sub GetPendingIssues {
1034
    my (@borrowernumbers) = @_;
1034
    my (@borrowernumbers) = @_;
1035
    return unless scalar(@borrowernumbers);
1035
1036
1036
    # Borrowers part of the query
1037
    # Borrowers part of the query
1037
    my $bquery = '';
1038
    my $bquery = '';
(-)a/circ/circulation.pl (-9 / +11 lines)
Lines 458-475 sub build_issue_data { Link Here
458
458
459
if ($borrower) {
459
if ($borrower) {
460
460
461
    # Getting borrower relatives
462
    my @relborrowernumbers = GetMemberRelatives($borrower->{'borrowernumber'});
463
    #push @borrowernumbers, $borrower->{'borrowernumber'};
464
465
    # get each issue of the borrower & separate them in todayissues & previous issues
461
    # get each issue of the borrower & separate them in todayissues & previous issues
466
    my ($issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
462
    my ($issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
467
    my ($relissueslist) = GetPendingIssues(@relborrowernumbers);
468
469
    build_issue_data($issueslist, 0);
463
    build_issue_data($issueslist, 0);
470
    build_issue_data($relissueslist, 1);
464
471
  
465
    # Getting borrower relatives
472
    $displayrelissues = scalar($relissueslist);
466
    my @relborrowernumbers = GetMemberRelatives($borrower->{'borrowernumber'});
467
    if (scalar(@relborrowernumbers)>0){
468
        my $relissueslist = GetPendingIssues(@relborrowernumbers);
469
        if ($relissueslist){
470
            build_issue_data($relissueslist, 1);
471
            $displayrelissues = scalar($relissueslist);
472
        }
473
    }
474
473
475
474
    if ( C4::Context->preference( "todaysIssuesDefaultSortOrder" ) eq 'asc' ) {
476
    if ( C4::Context->preference( "todaysIssuesDefaultSortOrder" ) eq 'asc' ) {
475
        @todaysissues   = sort { $a->{'timestamp'} cmp $b->{'timestamp'} } @todaysissues;
477
        @todaysissues   = sort { $a->{'timestamp'} cmp $b->{'timestamp'} } @todaysissues;
(-)a/members/moremember.pl (-2 / +1 lines)
Lines 244-250 my @borrowernumbers = GetMemberRelatives($borrowernumber); Link Here
244
my $issue       = GetPendingIssues($borrowernumber);
244
my $issue       = GetPendingIssues($borrowernumber);
245
my $relissue    = GetPendingIssues(@borrowernumbers);
245
my $relissue    = GetPendingIssues(@borrowernumbers);
246
my $issuecount = scalar(@$issue);
246
my $issuecount = scalar(@$issue);
247
my $relissuecount  = scalar(@$relissue);
247
my $relissuecount  = ($relissue?scalar(@$relissue):0);
248
my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
248
my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
249
my $today       = POSIX::strftime("%Y-%m-%d", localtime);	# iso format
249
my $today       = POSIX::strftime("%Y-%m-%d", localtime);	# iso format
250
my @issuedata;
250
my @issuedata;
251
- 

Return to bug 6568