diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
index 35a5522ac2..c66969a21c 100755
--- a/admin/aqbudgetperiods.pl
+++ b/admin/aqbudgetperiods.pl
@@ -145,7 +145,7 @@ elsif ( $op eq 'cud-add_validate' ) {
 }
 
 #--------------------------------------------------
-elsif ( $op eq 'cud-delete_confirm' ) {
+elsif ( $op eq 'delete_confirm' ) {
 ## delete a budget period (preparation)
     my $funds = GetBudgets({ budget_period_id => $budget_period_id });
     my $fund_count = scalar @$funds;