[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi selfservice.cgi, 1.21.2.4, 1.21.2.5 svc_acct.html, 1.1, 1.1.4.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail:/tmp/cvs-serv26846/fs_selfservice/FS-SelfService/cgi

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	selfservice.cgi svc_acct.html 
Log Message:
self-service can select domain on provision (#2801)

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.21.2.4
retrieving revision 1.21.2.5
diff -u -d -r1.21.2.4 -r1.21.2.5
--- selfservice.cgi	11 Jul 2007 11:10:20 -0000	1.21.2.4
+++ selfservice.cgi	12 Dec 2007 05:58:16 -0000	1.21.2.5
@@ -14,7 +14,7 @@
                         process_prepay
                         list_pkgs order_pkg signup_info order_recharge
                         part_svc_info provision_acct provision_external
-                        unprovision_svc change_pkg
+                        unprovision_svc change_pkg domainselector
                         list_svcs list_svc_usage myaccount_passwd
                       );
 
@@ -438,7 +438,7 @@
   my $result = provision_acct (
     'session_id' => $session_id,
     map { $_ => $cgi->param($_) } qw(
-      pkgnum svcpart username _password _password2 sec_phrase popnum )
+      pkgnum svcpart username domsvc _password _password2 sec_phrase popnum )
   );
 
   if ( exists $result->{'error'} && $result->{'error'} ) { 
@@ -553,7 +553,7 @@
 
 #use FS::SelfService qw(regionselector expselect popselector);
 use HTML::Entities;
-use FS::SelfService qw(popselector);
+use FS::SelfService qw(popselector domainselector);
 
 #false laziness w/agent.cgi
 sub include {

Index: svc_acct.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/svc_acct.html,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -d -r1.1 -r1.1.4.1
--- svc_acct.html	24 Aug 2004 11:16:56 -0000	1.1
+++ svc_acct.html	12 Dec 2007 05:58:16 -0000	1.1.4.1
@@ -15,6 +15,9 @@
   <TD ALIGN="right">Username</TD>
   <TD><INPUT TYPE="text" NAME="username" VALUE="<%= $username %>"></TD>
 </TR>
+<%=
+   $OUT .= domainselector(pkgnum=>$pkgnum, svcpart=>$svcpart);
+%>
 <TR>
   <TD ALIGN="right">Password</TD>
   <TD><INPUT TYPE="password" NAME="_password" VALUE="<%= $_password %>"></TD>