[Koha-patches] [PATCH] Removing a Perl warning
Marcel de Rooy
M.de.Rooy at rijksmuseum.nl
Thu Apr 7 13:35:17 CEST 2011
From: Paul Poulain <paul.poulain at biblibre.com>
Signed-off-by: Marcel de Rooy <m.de.rooy at rijksmuseum.nl>
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
More information about the Koha-patches
mailing list