X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=admin%2Faqplan.pl;h=9cc8c5990d2d089db001c218911702dae30b16be;hb=c1e5462db18776fc6f16808824e10d4b02474c1b;hp=9c754310c30521e8597769121bd87bbeacdecb5a;hpb=aef1dd15fbe37a8a9c30ba4b38f7ecd6c1fea54d;p=koha_fer

diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index 9c754310c3..9cc8c5990d 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -354,6 +354,10 @@ my ( @budget_lines, %cell_hash );
 foreach my $budget (@budgets) {
     my $budget_lock;
 
+    unless (CanUserUseBudget($borrowernumber, $budget, $staff_flags)) {
+        $budget_lock = 1
+    }
+
     # check budget permission
     if ( $period->{budget_period_locked} == 1 ) {
         $budget_lock = 1;
@@ -463,7 +467,7 @@ output_html_with_http_headers $input, $cookie, $template->output;
 sub _print_to_csv {
     my ( $header, $results ) = @_;
 
-    binmode STDOUT, ":encoding(UTF-8)";
+    binmode STDOUT, ':encoding(UTF-8)';
 
     my $csv = Text::CSV_XS->new(
         {   sep_char     => $del,