From e9a5048ae2c14f2b343ce773c67a13ab5e41d907 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Thu, 4 Aug 2011 12:57:52 +0100 Subject: [PATCH] Bug 6667 Correct documentation of function Content-Type: text/plain; charset="utf-8" Return list was documented as being in the reverse order to how it is returned. Correct the perldoc description also removed comments which did not help anyone trying to make sense of this subroutine --- C4/Members.pm | 5 +---- 1 files changed, 1 insertions(+), 4 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 2ce3030..00758b8 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -1191,12 +1191,10 @@ sub GetMemberAccountRecords { =head2 GetBorNotifyAcctRecord - ($count, $acctlines, $total) = &GetBorNotifyAcctRecord($params,$notifyid); + ($total, $acctlines, $count) = &GetBorNotifyAcctRecord($params,$notifyid); Looks up accounting data for the patron with the given borrowernumber per file number. -(FIXME - I'm not at all sure what this is about.) - C<&GetBorNotifyAcctRecord> returns a three-element array. C<$acctlines> is a reference-to-array, where each element is a reference-to-hash; the keys are the fields of the C table in the Koha database. @@ -1218,7 +1216,6 @@ sub GetBorNotifyAcctRecord { AND amountoutstanding != '0' ORDER BY notify_id,accounttype "); -# AND (accounttype='FU' OR accounttype='N' OR accounttype='M'OR accounttype='A'OR accounttype='F'OR accounttype='L' OR accounttype='IP' OR accounttype='CH' OR accounttype='RE' OR accounttype='RL') $sth->execute( $borrowernumber, $notifyid ); my $total = 0; -- 1.7.6