-## delete the budget period record
-
- my $data = GetBudgetPeriod( $budget_period_id);
- DelBudgetPeriod($budget_period_id);
+ ## confirm no funds have been added to budget
+ my $funds = GetBudgets({ budget_period_id => $budget_period_id });
+ my $fund_count = scalar @$funds;
+ if ( $fund_count > 0 ) {
+ $template->param( failed_delete_funds_exist => 1 );
+ } else {
+ ## delete the budget period record
+ my $data = GetBudgetPeriod( $budget_period_id);
+ DelBudgetPeriod($budget_period_id);
+ }