From 7bf736d0c640e46c64b97791735f1c0146db82fe Mon Sep 17 00:00:00 2001
From: Daniel Tiefnig <dtiefnig@sipwise.com>
Date: Thu, 6 Mar 2008 23:12:16 +0000
Subject: [PATCH] added delete link for voip accounts

---
 lib/admin/Controller/account.pm | 28 ++++++++++++++++++++++++++++
 root/tt/account_detail.tt       |  1 +
 2 files changed, 29 insertions(+)

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 @@
               <a href="lock?account_id=[% account.id %]&amp;lock=global" class="aaction">lock</a>
               [% END %]
               <a href="terminate?account_id=[% account.id %]" class="aaction">terminate</a>
+              <a href="delete?account_id=[% account.id %]" class="aaction">delete</a>
             [% END %]
           [% END %]
           </div>