From 7777dd0507c70bd6d7962dcf2e991e5517a14f8d Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Mon, 15 Oct 2018 18:58:20 +0000 Subject: [PATCH] Bug 20629: Follow up to add POD for getcharges. --- C4/Accounts.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 78cd003176..45452df78f 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -310,6 +310,23 @@ sub manualinvoice { return 0; } +=head2 getcharges + + my @charges = getcharges( $borrowernumber, $timestamp, $accountno ); + +Find all the charges for a given borrower number and account number. + +B<$borrowernumber> -- Borrower number to look for in accountlines. + +B<$timestamp> -- Unused parameter. + +B<$accountno> -- Account number to look for in accountlines. + +Returns an array of hash references from accountlines which match the +criteria. + +=cut + sub getcharges { my ( $borrowerno, $timestamp, $accountno ) = @_; my $dbh = C4::Context->dbh; -- 2.11.0