Bug 6667 Correct documentation of function

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

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Just improving text comments. No code changes involved.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Colin Campbell 2011-08-04 12:57:52 +01:00 committed by Chris Cormack
parent d03148a717
commit 0cf8194d5f

View file

@ -1204,12 +1204,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.
@ -1231,7 +1229,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;