From 55954342f5ede2ccae9ad3dd70595992ede62dc2 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 --- members/moremember.pl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/members/moremember.pl b/members/moremember.pl index 9dcfa3a..1e3d9ea 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -242,9 +242,9 @@ if ( C4::Context->preference('OPACPrivacy') ) { # my @borrowernumbers = GetMemberRelatives($borrowernumber); my $issue = GetPendingIssues($borrowernumber); -my $relissue = GetPendingIssues(@borrowernumbers); +my $relissue = GetPendingIssues(@borrowernumbers) if (@borrowernumbers); my $issuecount = scalar(@$issue); -my $relissuecount = scalar(@$relissue); +my $relissuecount = scalar(@$relissue) if ($relissue); my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} ); my $today = POSIX::strftime("%Y-%m-%d", localtime); # iso format my @issuedata; -- 1.7.1