X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=admin%2Faqplan.pl;h=d4f355e69fcbacb0636ae90497a3eeb122d57572;hb=afd2418d7387dc2a50835128e24840686600ef4b;hp=ffb11456060a81e6e73ab51826cf9890e08c5a1c;hpb=6f6bfb8aff59ae10b4bf7e8d4bdcb31c5b269458;p=koha-ffzg.git

diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index ffb1145606..d4f355e69f 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -45,7 +45,7 @@ my $input = new CGI;
 my $dbh = C4::Context->dbh;
 
 my ( $template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user(
-    {   template_name   => "admin/aqplan.tmpl",
+    {   template_name   => "admin/aqplan.tt",
         query           => $input,
         type            => "intranet",
         authnotrequired => 0,
@@ -225,7 +225,6 @@ HideCols($authcat, @hide_cols);
 }
 # ------------------------------------------------------------
 if ( $authcat =~ m/^Asort/ ) {
-    # ----------- copied from C4::Input::buildCGIsort()
    my $query = qq{ SELECT * FROM authorised_values WHERE category=? order by lib };
     my $sth   = $dbh->prepare($query);
     $sth->execute($authcat  );
@@ -354,6 +353,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;