Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 12482 [QA Followup]

Browse source 
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Kyle Hall 2014-07-02 14:49:01 -04:00 committed by Tomas Cohen Arazi
parent 63789fc095
commit a66eb6e86d
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
admin/aqbudgetperiods.pl
View file

@ -72,7 +72,7 @@ my $op = $input->param('op')||"else";
# get only the columns of aqbudgetperiods in budget_period_hashref # get only the columns of aqbudgetperiods in budget_period_hashref
my @columns = Koha::Database->new()->schema->source('Aqbudgetperiod')->columns; my @columns = Koha::Database->new()->schema->source('Aqbudgetperiod')->columns;
my $budget_period_hashref = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) ) : () } keys($input->Vars) } ; my $budget_period_hashref = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) ) : () } keys( %{$input->Vars()} ) } ;
$budget_period_hashref->{budget_period_startdate} = dt_from_string( $input->param('budget_period_startdate') ); $budget_period_hashref->{budget_period_startdate} = dt_from_string( $input->param('budget_period_startdate') );
$budget_period_hashref->{budget_period_enddate} = dt_from_string( $input->param('budget_period_enddate') ); $budget_period_hashref->{budget_period_enddate} = dt_from_string( $input->param('budget_period_enddate') );
@ -222,7 +222,7 @@ elsif ( $op eq 'duplicate_budget' ){
# get only the columns of aqbudgets # get only the columns of aqbudgets
my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns; 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 # write it to db
my $new_id = AddBudget($new_entry); my $new_id = AddBudget($new_entry);
$old_new{$old_id} = $new_id; $old_new{$old_id} = $new_id;

2
admin/aqbudgets.pl
View file

@ -71,7 +71,7 @@ my $num=FormatNumber;
# get only the columns of aqbudgets in budget_hash # get only the columns of aqbudgets in budget_hash
my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns; my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns;
my $budget_hash = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) ) : () } keys($input->Vars) } ; my $budget_hash = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) ) : () } keys( %{$input->Vars()}) } ;
my $budget_id = $input->param('budget_id'); my $budget_id = $input->param('budget_id');
my $budget_period_id = $input->param('budget_period_id'); my $budget_period_id = $input->param('budget_period_id');