[freeside-commits] freeside/httemplate/edit cust_main.cgi, 1.102, 1.102.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit
In directory wavetail.420.am:/tmp/cvs-serv21416/edit

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	cust_main.cgi 
Log Message:
add lock_agentnum and lock_pkgpart parameters to new customer page, RT#9782

Index: cust_main.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/cust_main.cgi,v
retrieving revision 1.102
retrieving revision 1.102.2.1
diff -u -w -d -r1.102 -r1.102.2.1
--- cust_main.cgi	7 Aug 2009 23:08:03 -0000	1.102
+++ cust_main.cgi	11 Oct 2010 09:03:34 -0000	1.102.2.1
@@ -169,6 +169,8 @@
 
     <% include('cust_main/first_pkg.html', $cust_main,
                  'pkgpart_svcpart' => $pkgpart_svcpart,
+                 'disable_empty'   =>
+                   scalar( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ),
                  #svc_acct
                  'username'        => $username,
                  'password'        => $password,
@@ -297,11 +299,18 @@
   $stateid = '';
   $payinfo = '';
 
+  if ( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ) {
+    my $pkgpart = $1;
+    my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
+      or die "unknown pkgpart $pkgpart";
+    my $svcpart = $part_pkg->svcpart;
+    $pkgpart_svcpart = $pkgpart.'_'.$svcpart;
 }
 
-my $error = $cgi->param('error');
-$cgi->delete_all();
-$cgi->param('error', $error);
+}
+
+my %keep = map { $_=>1 } qw( error tagnum lock_agentnum lock_pkgpart );
+$cgi->delete( grep !$keep{$_}, $cgi->param );
 
 my $action = $custnum ? 'Edit' : 'Add';
 $action .= ": ". $cust_main->name if $custnum;