From 2c7d3ed6253ceab2189185f5b681c97cef3da738 Mon Sep 17 00:00:00 2001
From: Daniel Tiefnig <dtiefnig@sipwise.com>
Date: Tue, 30 Nov 2010 00:09:48 +0000
Subject: [PATCH] allow user to edit webusername

---
 lib/admin/Controller/subscriber.pm | 14 +++++++++++++-
 root/tt/subscriber_detail.tt       | 14 +++++++++++++-
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lib/admin/Controller/subscriber.pm b/lib/admin/Controller/subscriber.pm
index 325ab30..f6c4c4e 100644
--- a/lib/admin/Controller/subscriber.pm
+++ b/lib/admin/Controller/subscriber.pm
@@ -205,7 +205,7 @@ sub update_subscriber : Local {
         my $checkresult;
         $c->session->{subscriber}{account_id} = $c->request->params->{account_id};
 
-        $c->session->{subscriber}{username} = $settings{webusername} = $c->request->params->{username};
+        $c->session->{subscriber}{username} = $c->request->params->{username};
         return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'check_username',
                                                             $c->session->{subscriber}{username}, \$checkresult
                                                           );
@@ -235,6 +235,18 @@ sub update_subscriber : Local {
         }
     }
 
+    $settings{webusername} = $c->request->params->{webusername};
+    if(length $settings{webusername}) {
+        my $checkresult;
+        return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'check_username',
+                                                            $settings{webusername}, \$checkresult
+                                                          );
+        $messages{webusername} = 'Client.Syntax.MalformedUsername' unless($checkresult);
+    } else {
+        $settings{webusername} = $c->session->{subscriber}{username};
+    }
+
+
     my $cc = $c->request->params->{cc};
     my $ac = $c->request->params->{ac};
     my $sn = $c->request->params->{sn};
diff --git a/root/tt/subscriber_detail.tt b/root/tt/subscriber_detail.tt
index 0b4dd04..6a2b079 100644
--- a/root/tt/subscriber_detail.tt
+++ b/root/tt/subscriber_detail.tt
@@ -82,7 +82,19 @@
                 </td>
               </tr>
 
-              <tr><td class="tdkey">web user:</td><td>[% subscriber.webusername %]</td></tr>
+              <tr>
+                <td class="tdkey">web user:</td>
+                <td>
+                [% IF edit_subscriber %]
+                  <input type="text" name="webusername" value="[% subscriber.webusername %]"
+                         title="the username (without domain) used for login at the SOAP and CSC interfaces, string" />
+                  [% IF subscriber.domain %]@[% subscriber.domain %][% END %]
+                [% ELSE %]
+                  [% subscriber.webusername %]@[% subscriber.domain %]
+                [% END %]
+                </td>
+              </tr>
+              [% IF messages.webusername %]<tr><td /><td><div class="errormsg">[% messages.webusername %]</div></td></tr>[% END %]
               <tr>
                 <td class="tdkey">web password:</td>
                 <td>