Attachment #62987 for bug #15408

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

Lines 1161-1167 sub CloneBudgetHierarchy { Link Here

(-)a/C4/Budgets.pm (-1 / +1 lines)
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,





my $budget_cloned = C4::Budgets::GetBudgets({ budget_period_id => $budget_period_id_cloned });
my $test =  $budget_cloned->[0]->{timestamp};
warn $test;
my $budget_time = Koha::DateUtils::dt_from_string($test);
my $local_time = Koha::DateUtils::dt_from_string();
warn $budget_time;
warn $local_time;


is(DateTime::compare($budget_time, $local_time), 0, "New budget got the right timestamp");



- 

Return to bug 15408

Lines 392-405 is($budget_period_cloned->{budget_period_description}, 'Budget Period Cloned', ' Link Here

(-)a/t/db_dependent/Budgets.t (-5 / +1 lines)
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	-