diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 4a8b3b6487..8d0a2f03bd 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -630,14 +630,14 @@ sub DelBudget { return $rc; } -=back - =head2 FUNCTIONS ABOUT BUDGETS =over 2 =cut +=back + =head3 GetBudget =over 4 @@ -773,9 +773,12 @@ sub ConvertCurrency { return ( $price / $cur ); } -=item +=head3 _columns + returns an array containing fieldname followed by PRI as value if PRIMARY Key + =cut + sub _columns(;$) { my $tablename=shift||"aqbudgets"; return @{C4::Context->dbh->selectcol_arrayref("SHOW columns from $tablename",{Columns=>[1,4]})}; @@ -806,8 +809,6 @@ END { } # module clean-up code here (global destructor) 1; __END__ -=back - =head1 AUTHOR Koha Developement team