Attachment 29457 Details for Bug 12482 – Bug 12482 [QA Followup]

[patch] Bug 12482 [QA Followup]

Bug-12482-QA-Followup.patch (text/plain), 2.33 KB, created by Kyle M Hall (khall) on 2014-07-02 18:55:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2014-07-02 18:55:27 UTC

Size: 2.33 KB

patch

obsolete

>From c159589d90b6b7ec0b167eb5a38e798bdbbc3757 Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Wed, 2 Jul 2014 14:49:01 -0400
>Subject: [PATCH] Bug 12482 [QA Followup]
>
>---
> admin/aqbudgetperiods.pl |    4 ++--
> admin/aqbudgets.pl       |    2 +-
> 2 files changed, 3 insertions(+), 3 deletions(-)
>
>diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
>index c3f9691..6cf7833 100755
>--- a/admin/aqbudgetperiods.pl
>+++ b/admin/aqbudgetperiods.pl
>@@ -72,7 +72,7 @@ my $op                   = $input->param('op')||"else";
> 
> # get only the columns of aqbudgetperiods in budget_period_hashref
> 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_enddate}   = dt_from_string( $input->param('budget_period_enddate') );
> 
>@@ -222,7 +222,7 @@ elsif ( $op eq 'duplicate_budget' ){
> 
>         # 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;
>diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl
>index b8c7706..1a66c9c 100755
>--- a/admin/aqbudgets.pl
>+++ b/admin/aqbudgets.pl
>@@ -71,7 +71,7 @@ my $num=FormatNumber;
> 
> # get only the columns of aqbudgets in budget_hash
> 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_period_id          = $input->param('budget_period_id');
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 12482: 29277 | 29314 | 29457 | 29458 | 29459 | 29506