remember selected domain on failure (mantis 1253)

lib/admin/Controller/subscriber.pm

@@ -192,6 +192,8 @@ sub detail : Local {
             if defined $c->session->{restore_subscriber_input}{password};
         $c->stash->{subscriber}{edit_webpass} = $c->session->{restore_subscriber_input}{webpassword}
             if defined $c->session->{restore_subscriber_input}{webpassword};
+        $c->stash->{subscriber}{selected_domain} = $c->session->{restore_subscriber_input}{selected_domain}
+            if defined $c->session->{restore_subscriber_input}{selected_domain};
         delete $c->session->{restore_subscriber_input};
     }
 
@@ -337,6 +339,7 @@ sub update_subscriber : Local {
         $c->response->redirect("/subscriber/detail?subscriber_id=$subscriber_id&edit_subscriber=1");
     } else {
         $c->session->{restore_subscriber_input}{username} = $$subscriber{username};
+        $c->session->{restore_subscriber_input}{selected_domain} = $$subscriber{domain};
         $c->response->redirect("/subscriber/detail?account_id=". $$subscriber{account_id} ."&new=1");
     }
     return;

root/tt/subscriber_detail.tt

@@ -179,8 +179,12 @@
                   @
                   <select size="1" name="domain">
                   [% FOREACH sdom = domains %]
+                    [% IF subscriber.selected_domain && (subscriber.selected_domain == sdom.domain) %]
+                      <option selected="selected">[% sdom.domain %]</option>
+                    [% ELSE %]
                       <option>[% sdom.domain %]</option>
                     [% END %]
+                  [% END %]
                   </select>
                 </div>
               </li>