[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