From dc3a90c41160493e9dfbf3353d755825c7f403b8 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 13 Apr 2012 10:40:35 +0200 Subject: [PATCH] Bug 7308: Show ordered amount in aqbudgets.pl MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Cédric Vita Signed-off-by: Katrin Fischer Signed-off-by: Galen Charlton --- C4/Budgets.pm | 1 + admin/aqbudgets.pl | 11 +++++++++-- .../intranet-tmpl/prog/en/modules/admin/aqbudgets.tt | 3 +++ 3 files changed, 13 insertions(+), 2 deletions(-) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 758e98f5dd..7eff6f5c05 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -611,6 +611,7 @@ sub GetBudgetHierarchy { $r->{'budget_name_indent'} = $moo; $r->{'budget_spent'} = GetBudgetSpent( $r->{'budget_id'} ); + $r->{budget_ordered} = GetBudgetOrdered( $r->{budget_id} ); $r->{'budget_amount_total'} = $r->{'budget_amount'}; diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 229606e4b0..b503135aad 100755 --- a/admin/aqbudgets.pl +++ b/admin/aqbudgets.pl @@ -276,7 +276,7 @@ if ($op eq 'add_form') { my $toggle = 0; my @loop; my $period_total = 0; - my ( $period_alloc_total, $base_spent_total ); + my ( $period_alloc_total, $base_spent_total, $base_ordered_total ); #This Looks WEIRD to me : should budgets be filtered in such a way ppl who donot own it would not see the amount spent on the budget by others ? @@ -303,6 +303,7 @@ if ($op eq 'add_form') { # adds to total - only if budget is a 'top-level' budget $period_alloc_total += $budget->{'budget_amount_total'} if $budget->{'depth'} == 0; $base_spent_total += $budget->{'budget_spent'}; + $base_ordered_total += $budget->{budget_ordered}; $budget->{'budget_remaining'} = $budget->{'budget_amount'} - $budget->{'total_levels_spent'}; # if amount == 0 dont display... @@ -312,12 +313,13 @@ if ($op eq 'add_form') { $budget->{'remaining_pos'} = 1 if $budget->{'budget_remaining'} > 0; $budget->{'remaining_neg'} = 1 if $budget->{'budget_remaining'} < 0; - for (grep {/total_levels_spent|budget_spent|budget_amount|budget_remaining|budget_unalloc/} keys %$budget){ + for (grep {/total_levels_spent|budget_spent|budget_ordered|budget_amount|budget_remaining|budget_unalloc/} keys %$budget){ $budget->{$_} = $num->format_price( $budget->{$_} ) if defined($budget->{$_}) } # Value of budget_spent equals 0 instead of undefined value $budget->{"budget_spent"} = $num->format_price(0) unless defined($budget->{"budget_spent"}); + $budget->{budget_ordered} = $num->format_price(0) unless defined($budget->{"budget_ordered"}); my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} ); $budget->{"budget_owner_name"} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'}; @@ -356,12 +358,17 @@ if ($op eq 'add_form') { $base_spent_total = $num->format_price($base_spent_total); } + if ($base_ordered_total) { + $base_ordered_total = $num->format_price($base_ordered_total); + } + $template->param( else => 1, budget => \@loop, budget_period_total => $budget_period_total, period_alloc_total => $period_alloc_total, base_spent_total => $base_spent_total, + base_ordered_total => $base_ordered_total, branchloop => \@branchloop2, ); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tt index cdf7edc399..c33946ee88 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tt @@ -243,6 +243,7 @@ var MSG_PARENT_BENEATH_BUDGET = "- " + _("New budget-parent is beneath budget") Fund name Total
allocated Base-level
allocated + Base-level
ordered Base-level
spent Total sublevels
spent Base-level
remaining @@ -255,6 +256,7 @@ var MSG_PARENT_BENEATH_BUDGET = "- " + _("New budget-parent is beneath budget") Period allocated [% IF ( budget_period_total ) %][% budget_period_total %][% END %] [% period_alloc_total %] [% base_alloc_total %] + [% base_ordered_total %] [% base_spent_total %] [% base_spent_total %] [% base_remaining_total %] @@ -274,6 +276,7 @@ var MSG_PARENT_BENEATH_BUDGET = "- " + _("New budget-parent is beneath budget") [% budge.budget_name %] [% budge.budget_amount_total %] [% budge.budget_amount %] + [% budge.budget_ordered %] [% budge.budget_spent %] [% budge.total_levels_spent %] [% IF ( budge.remaining_pos ) %] -- 2.39.5