View | Details | Raw Unified | Return to bug 15408
Collapse All | Expand All

(-)a/C4/Budgets.pm (-1 / +1 lines)
Lines 1166-1172 sub CloneBudgetHierarchy { Link Here
1166
        my $tidy_budget =
1166
        my $tidy_budget =
1167
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }
1167
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }
1168
              keys %$budget };
1168
              keys %$budget };
1169
	delete $tidy_budget->{timestamp};
1169
        delete $tidy_budget->{timestamp};
1170
        my $new_budget_id = AddBudget(
1170
        my $new_budget_id = AddBudget(
1171
            {
1171
            {
1172
                %$tidy_budget,
1172
                %$tidy_budget,
(-)a/t/db_dependent/Budgets.t (-5 / +1 lines)
Lines 392-405 is($budget_period_cloned->{budget_period_description}, 'Budget Period Cloned', ' Link Here
392
392
393
my $budget_cloned = C4::Budgets::GetBudgets({ budget_period_id => $budget_period_id_cloned });
393
my $budget_cloned = C4::Budgets::GetBudgets({ budget_period_id => $budget_period_id_cloned });
394
my $test =  $budget_cloned->[0]->{timestamp};
394
my $test =  $budget_cloned->[0]->{timestamp};
395
warn $test;
396
my $budget_time = Koha::DateUtils::dt_from_string($test);
395
my $budget_time = Koha::DateUtils::dt_from_string($test);
397
my $local_time = Koha::DateUtils::dt_from_string();
396
my $local_time = Koha::DateUtils::dt_from_string();
398
warn $budget_time;
399
warn $local_time;
400
397
401
398
402
is(DateTime::compare($budget_time, $local_time), 0);
399
is(DateTime::compare($budget_time, $local_time), 0, "New budget got the right timestamp");
403
400
404
401
405
402
406
- 

Return to bug 15408