[freeside-commits] freeside/httemplate/edit cust_main.cgi, 1.105, 1.106

[Ivan,,,]

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

Modified Files:
	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.105
retrieving revision 1.106
diff -u -w -d -r1.105 -r1.106
--- cust_main.cgi	17 Jun 2010 01:14:45 -0000	1.105
+++ cust_main.cgi	11 Oct 2010 09:03:14 -0000	1.106
@@ -179,6 +179,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,
@@ -307,11 +309,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 $title = $custnum ? 'Edit Customer' : 'Add Customer';
 $title .= ": ". $cust_main->name if $custnum;