X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Facqui-home.pl;h=8b6c58473821b98c014f00efbf9ea5839817c67f;hb=fa69f553eebbe671760cef93d869e24d4dc243a5;hp=0d9c20772601aff36af24f3dab7ffa6072e1f1b8;hpb=700249eb3cbf765a5a731effd21ba543b74eb334;p=koha.git

diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl
index 0d9c207726..8b6c584738 100755
--- a/acqui/acqui-home.pl
+++ b/acqui/acqui-home.pl
@@ -41,7 +41,7 @@ use C4::Debug;
 use C4::Suggestions;
 
 my $query = CGI->new;
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
     {   template_name   => 'acqui/acqui-home.tmpl',
         query           => $query,
         type            => 'intranet',
@@ -78,9 +78,7 @@ if ( $cur_format eq 'FR' ) {
 my $status           = $query->param('status') || "ASKED";
 my $suggestions_count       = CountSuggestion($status);
 
-my $budget_arr =
-  GetBudgetHierarchy( '', $user->{branchcode},
-    $template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'} );
+my $budget_arr = GetBudgetHierarchy;
 
 my $total      = 0;
 my $totspent   = 0;
@@ -93,7 +91,9 @@ my $totspent_active     = 0;
 my $totordered_active   = 0;
 my $totavail_active     = 0;
 
+my @budget_loop;
 foreach my $budget ( @{$budget_arr} ) {
+    next unless (CanUserUseBudget($loggedinuser, $budget, $userflags));
 
     $budget->{budget_code_indent} =~ s/\ /\&nbsp\;/g;
 
@@ -136,11 +136,13 @@ foreach my $budget ( @{$budget_arr} ) {
     for my $field (qw( budget_amount budget_spent budget_ordered budget_avail ) ) {
         $budget->{$field} = $num_formatter->format_price( $budget->{$field} );
     }
+
+    push @budget_loop, $budget;
 }
 
 $template->param(
     type          => 'intranet',
-    loop_budget   => $budget_arr,
+    loop_budget   => \@budget_loop,
     branchname    => $branchname,
     total         => $num_formatter->format_price($total),
     totspent      => $num_formatter->format_price($totspent),