[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