<% include('/elements/header-popup.html', "Change Packages") %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

% for my $param (qw(agentnum magic status classnum pkgpart)) { % } % % foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { % "> "> "> "> % } <% ntable('#cccccc') %> New package: <% include('/elements/select-table.html', 'table' => 'part_pkg', 'name_col' => 'pkg', 'empty_label' => 'Select package', 'label_callback' => sub { $_[0]->pkgpart. ': '. $_[0]->pkg. ' - '. $_[0]->comment; }, 'element_name' => 'new_pkgpart', 'curr_value' => ( $cgi->param('error') ? scalar($cgi->param('new_pkgpart')) : '' ), ) %>

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); #false laziness w/report_cust_pkg.html my %disable = ( 'all' => {}, 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, }, 'active' => { 'susp'=>1, 'cancel'=>1 }, 'suspended' => { 'cancel' => 1 }, 'cancelled' => {}, '' => {}, );