[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi selfservice.cgi, 1.26, 1.27 svc_acct.html, 1.1, 1.2

Jeff Finucane,420,, jeff at wavetail.420.am
Tue Dec 11 21:58:45 PST 2007


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

Modified Files:
	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.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- selfservice.cgi	24 Sep 2007 15:47:51 -0000	1.26
+++ selfservice.cgi	12 Dec 2007 05:58:42 -0000	1.27
@@ -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 list_support_usage
                         myaccount_passwd
                       );
@@ -439,7 +439,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'} ) { 
@@ -563,7 +563,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.2
diff -u -d -r1.1 -r1.2
--- svc_acct.html	24 Aug 2004 11:16:56 -0000	1.1
+++ svc_acct.html	12 Dec 2007 05:58:42 -0000	1.2
@@ -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>



More information about the freeside-commits mailing list