allow user to edit webusername

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};

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>