<& /elements/header-popup.html, 'Merge customer' &> <& /elements/error.html &>
<& /elements/tr-search-cust_main.html, 'label' => 'Merge into: ', 'field' => 'new_custnum', 'find_button' => 1, 'curr_value' => scalar($cgi->param('new_custnum')), &> % if ( 0 ) { #we start supporting payment info merge again in some way % if ( scalar($cust_main->ncancelled_pkgs) ) { % } else { % $cgi->param('merge', 'Y'); % } % }
<& /elements/radio.html, 'field' => 'merge', 'value' => '', 'curr_value' => scalar($cgi->param('merge')), &> Merge packages only.
<& /elements/radio.html, 'field' => 'merge', 'value' => 'Y', 'curr_value' => scalar($cgi->param('merge')), &> Merge invoices, payments/credits, notes, tickets and delete this customer.

%#have merge button start out disabled and enable after you select a target cust         

<%init> my $conf = new FS::Conf; $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; my $custnum = $1; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Merge customer'); 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;