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

(-)a/C4/Budgets.pm (-1 / +1 lines)
Lines 1161-1167 sub CloneBudgetHierarchy { Link Here
1161
        my $tidy_budget =
1161
        my $tidy_budget =
1162
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }
1162
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }
1163
              keys %$budget };
1163
              keys %$budget };
1164
	delete $tidy_budget->{timestamp};
1164
        delete $tidy_budget->{timestamp};
1165
        my $new_budget_id = AddBudget(
1165
        my $new_budget_id = AddBudget(
1166
            {
1166
            {
1167
                %$tidy_budget,
1167
                %$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