From 465e8ae184dd46013c48b57cc2218b13ee68e4c9 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 7 Apr 2011 11:55:38 +0200 Subject: [PATCH] Removing a Perl warning Content-Type: text/plain; charset="utf-8" Signed-off-by: Marcel de Rooy Applied small fix to proposed patch. Tested. No warnings. --- members/moremember.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/members/moremember.pl b/members/moremember.pl index 9dcfa3a..c0c0d87 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -242,7 +242,7 @@ if ( C4::Context->preference('OPACPrivacy') ) { # my @borrowernumbers = GetMemberRelatives($borrowernumber); my $issue = GetPendingIssues($borrowernumber); -my $relissue = GetPendingIssues(@borrowernumbers); +my $relissue = @borrowernumbers>0? GetPendingIssues(@borrowernumbers): []; my $issuecount = scalar(@$issue); my $relissuecount = scalar(@$relissue); my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} ); -- 1.6.0.6