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,
}
# ------------------------------------------------------------
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 );
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;