diff --git a/lib/admin/Controller/account.pm b/lib/admin/Controller/account.pm
index ab0bb88..759143b 100644
--- a/lib/admin/Controller/account.pm
+++ b/lib/admin/Controller/account.pm
@@ -274,6 +274,34 @@ sub terminate : Local {
return;
}
+=head2 delete
+
+Deletes an account.
+
+=cut
+
+sub delete : Local {
+ my ( $self, $c ) = @_;
+
+ my %messages;
+
+ my $account_id = $c->request->params->{account_id};
+
+ if($c->model('Provisioning')->call_prov( $c, 'billing', 'delete_voip_account',
+ { id => $account_id },
+ undef))
+ {
+ $messages{topmsg} = 'Server.Voip.SubscriberDeleted';
+ $c->session->{messages} = \%messages;
+ $c->response->redirect("/account");
+ return;
+ }
+
+ $c->session->{messages} = \%messages;
+ $c->response->redirect("/account/detail?account_id=$account_id");
+ return;
+}
+
=head2 update_balance
Update a VoIP account cash and free time balance.
diff --git a/root/tt/account_detail.tt b/root/tt/account_detail.tt
index e804e63..71295bb 100644
--- a/root/tt/account_detail.tt
+++ b/root/tt/account_detail.tt
@@ -20,6 +20,7 @@
lock
[% END %]
terminate
+ delete
[% END %]
[% END %]