@@ -, +, @@ --- C4/Budgets.pm | 1 + t/db_dependent/Budgets.t | 13 ++++++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -1221,6 +1221,7 @@ sub CloneBudgetHierarchy { my $tidy_budget = { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () } keys %$budget }; + delete $tidy_budget->{timestamp}; my $new_budget_id = AddBudget( { %$tidy_budget, --- a/t/db_dependent/Budgets.t +++ a/t/db_dependent/Budgets.t @@ -1,6 +1,6 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 145; +use Test::More tests => 146; BEGIN { use_ok('C4::Budgets') @@ -14,6 +14,7 @@ use Koha::Acquisition::Orders; use Koha::Patrons; use t::lib::TestBuilder; +use Koha::DateUtils; use YAML; @@ -488,6 +489,16 @@ my $budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod( my $budget_period_cloned = C4::Budgets::GetBudgetPeriod($budget_period_id_cloned); is($budget_period_cloned->{budget_period_description}, 'Budget Period Cloned', 'Cloned budget\'s description is updated.'); +my $budget_cloned = C4::Budgets::GetBudgets({ budget_period_id => $budget_period_id_cloned }); +my $test = $budget_cloned->[0]->{timestamp}; +my $budget_time = Koha::DateUtils::dt_from_string($test); +my $local_time = Koha::DateUtils::dt_from_string(); + + +is(DateTime::compare($budget_time, $local_time), 0, "New budget got the right timestamp"); + + + my $budget_hierarchy = GetBudgetHierarchy($budget_period_id); my $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); --