X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqplan.pl;h=9cc8c5990d2d089db001c218911702dae30b16be;hb=398b9dfdbd6f0bba6f001c44e6d2576b3b5a29ec;hp=ffb11456060a81e6e73ab51826cf9890e08c5a1c;hpb=6eb021ab0e113e2b6b897c89475f1eadc7a2c15b;p=koha.git

diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index ffb1145606..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;