=cut
-## modules
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
+
use Number::Format qw(format_price);
use CGI;
use List::Util qw/min/;
my $input = new CGI;
-my $searchfield = $input->param('searchfield');
+my $searchfield = $input->param('searchfield') // '';
my $budget_period_id = $input->param('budget_period_id');
my $op = $input->param('op')||"else";
#my $sort1_authcat = $input->param('sort1_authcat');
}
elsif ( $op eq 'add_validate' ) {
-## add or modify a budget period (confirimation)
+## add or modify a budget period (confirmation)
## update budget period data
if ( $budget_period_id ne '' ) {
# get only the columns of aqbudgets
my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns;
- my $new_entry = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $$entry{$_} ) : () } keys(%$entry) };
+ my $new_entry = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $entry->{$_} ) : () } keys(%$entry) };
# write it to db
my $new_id = AddBudget($new_entry);
$old_new{$old_id} = $new_id;