projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bug_8083: parameters subpermissions: manage_circ_rules and parameters_remaining_permi...
[koha_fer]
/
admin
/
aqplan.pl
diff --git
a/admin/aqplan.pl
b/admin/aqplan.pl
index
9c75431
..
9cc8c59
100755
(executable)
--- a/
admin/aqplan.pl
+++ b/
admin/aqplan.pl
@@
-354,6
+354,10
@@
my ( @budget_lines, %cell_hash );
foreach my $budget (@budgets) {
my $budget_lock;
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;
# 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 ) = @_;
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,
my $csv = Text::CSV_XS->new(
{ sep_char => $del,