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<accountlines> 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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
