@@ -, +, @@ - Fix a perl warning in suggestions_stats.tt, - Replace term "Acquisitions" with "Suggestions", - Add POD for GetBudgetDescendantsIds. --- C4/Budgets.pm | 8 ++++++++ .../intranet-tmpl/prog/en/modules/reports/suggestions_stats.tt | 4 ++-- .../prog/en/modules/reports/suggestions_stats_results.tt | 4 ++-- 3 files changed, 12 insertions(+), 4 deletions(-) --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -191,6 +191,14 @@ sub GetBudgetChildren { |, { Slice => {} }, $budget_id ); } +=head2 GetBudgetDescendantsIds + + my @descendants_ids = GetBudgetDescendantsIds($parent_id); + +Get ids of all descendants of a given budget id. + +=cut + sub GetBudgetDescendantsIds { my ($budget_id) = @_; --- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/suggestions_stats.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/suggestions_stats.tt @@ -40,7 +40,7 @@ [% BLOCK select_tr %] [% select_filter = BLOCK %] - [% IF display_values.$name.keys.size > 0 %] + [% IF display_values.$name.keys.size %]