|
Lines 145-151
elsif ( $op eq 'cud-add_validate' ) {
Link Here
|
| 145 |
} |
145 |
} |
| 146 |
|
146 |
|
| 147 |
#-------------------------------------------------- |
147 |
#-------------------------------------------------- |
| 148 |
elsif ( $op eq 'cud-delete_confirm' ) { |
148 |
elsif ( $op eq 'delete_confirm' ) { |
| 149 |
## delete a budget period (preparation) |
149 |
## delete a budget period (preparation) |
| 150 |
my $funds = GetBudgets({ budget_period_id => $budget_period_id }); |
150 |
my $funds = GetBudgets({ budget_period_id => $budget_period_id }); |
| 151 |
my $fund_count = scalar @$funds; |
151 |
my $fund_count = scalar @$funds; |
| 152 |
- |
|
|