<& /elements/header-popup.html, 'Move services' &> Select the target package and the services to be moved.

<& /view/cust_main/packages.html, $cust_main, no_links => 1, before_pkg_callback => sub { my $cust_pkg = shift; ''; }, before_svc_callback => sub { my $cust_svc = shift; my $nameid = 'svcnum'. $cust_svc->svcnum; '

'. qq( ). '

'; }, after_svc_callback => sub { #my $cust_svc = shift; '

'; }, &>

<%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Bulk move customer services'); $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; my $custnum = $1; my $cust_main = qsearchs({ 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }) or die 'unknown customer';