% if ( $error ) { % $cgi->param('error', $error); <% $cgi->redirect(popurl(1). "merge_cust.html?". $cgi->query_string ) %> % } else { <% include('/elements/header-popup.html', "Customer merged") %> % } <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Merge customer'); my $error = ''; $cgi->param('custnum') =~ /^(\d+)$/ or die "illegal custnum"; my $custnum = $1; my $new_custnum; if ( $cgi->param('new_custnum') =~ /^(\d+)$/ ) { $new_custnum = $1; my $cust_main = qsearchs( { 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, } ); die "No customer # $custnum" unless $cust_main; if ( $cgi->param('merge') eq 'Y' ) { #old-style merge: everything + delete old customer $error = $cust_main->merge($new_custnum); } else { #new-style attach: move packages 3.0 style, that's it $error = $cust_main->attach_pkgs($new_custnum); } } else { $error = 'Select a customer to merge into'; }