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;
sub _print_to_csv {
my ( $header, $results ) = @_;
- binmode STDOUT, ":utf8";
+ binmode STDOUT, ':encoding(UTF-8)';
my $csv = Text::CSV_XS->new(
{ sep_char => $del,