[freeside-commits] freeside/httemplate/edit cust_main.cgi, 1.75,
1.76
Jeff Finucane,420,,
jeff at wavetail.420.am
Wed Feb 14 15:32:24 PST 2007
Update of /home/cvs/cvsroot/freeside/httemplate/edit
In directory wavetail:/tmp/cvs-serv14661/httemplate/edit
Modified Files:
cust_main.cgi
Log Message:
selectable domain on first package in edit/cust_main
Index: cust_main.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/cust_main.cgi,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- cust_main.cgi 13 Feb 2007 01:16:47 -0000 1.75
+++ cust_main.cgi 14 Feb 2007 23:32:22 -0000 1.76
@@ -15,7 +15,7 @@
%#get record
%
%my $error = '';
-%my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart);
+%my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart, $saved_domsvc);
%my(@invoicing_list);
%my $payinfo;
%my $same = '';
@@ -25,6 +25,12 @@
% map { $_, scalar($cgi->param($_)) } fields('cust_main')
% } );
% $custnum = $cust_main->custnum;
+% $saved_domsvc = $cgi->param('domsvc') || '';
+% if ( $saved_domsvc =~ /^(\d+)$/ ) {
+% $saved_domsvc = $1;
+% } else {
+% $saved_domsvc = '';
+% }
% $saved_pkgpart = $cgi->param('pkgpart_svcpart') || '';
% if ( $saved_pkgpart =~ /^(\d+)_/ ) {
% $saved_pkgpart = $1;
@@ -50,6 +56,7 @@
% $cust_main->paycvv($paycvv);
% }
% $saved_pkgpart = 0;
+% $saved_domsvc = 0;
% $username = '';
% $password = '';
% $popnum = 0;
@@ -61,6 +68,7 @@
% $cust_main->otaker( &getotaker );
% $cust_main->referral_custnum( $cgi->param('referral_custnum') );
% $saved_pkgpart = 0;
+% $saved_domsvc = 0;
% $username = '';
% $password = '';
% $popnum = 0;
@@ -427,7 +435,7 @@
% #eslaf
%
% my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
-% qsearch( 'part_pkg', { 'disabled' => '' },'','ORDER BY pkg' ); # case?
+% qsearch( 'part_pkg', { 'disabled' => '' }, '', 'ORDER BY pkg' ); # case?
%
% if ( @part_pkg ) {
%
@@ -441,15 +449,12 @@
<TR>
<TD COLSPAN=2>
- <SELECT NAME="pkgpart_svcpart">
- <OPTION VALUE="">(none)
-% foreach my $part_pkg ( @part_pkg ) {
-
-
- <OPTION VALUE="<% $part_pkg->pkgpart. "_". $part_pkg->svcpart('svc_acct') %>"<% ( $saved_pkgpart && $part_pkg->pkgpart == $saved_pkgpart ) ? ' SELECTED' : '' %>><% $part_pkg->pkg. " - ". $part_pkg->comment %>
-% }
-
- </SELECT>
+ <% include('cust_main/select-domain.html',
+ 'pkgparts' => \@part_pkg,
+ 'saved_pkgpart' => $saved_pkgpart,
+ 'saved_domsvc' => $saved_domsvc,
+ )
+ %>
</TD>
</TR>
%
@@ -470,6 +475,15 @@
</TR>
<TR>
+ <TD ALIGN="right">Domain</TD>
+ <TD>
+ <SELECT NAME="domsvc">
+ <OPTION>(none)</OPTION>
+ </SELECT>
+ </TD>
+ </TR>
+
+ <TR>
<TD ALIGN="right">Password</TD>
<TD>
<INPUT TYPE="text" NAME="_password" VALUE="<% $password %>" SIZE=<% $pmax2 %> MAXLENGTH=<% $passwordmax %>>
More information about the freeside-commits
mailing list