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

% }

%# some false laziness w/search/cust_pkg.cgi % for my $param ( % qw( % agentnum cust_status cust_main_salesnum salesnum custnum magic status % custom pkgbatch zip % 477part 477rownum date % report_option % ), % grep { /^location_\w+$/ || /^report_option_any/ } $cgi->param % ) { % } % % for my $param (qw( censustract censustract2 ) ) { % next unless grep { $_ eq $param } $cgi->param; % } % % for my $param (qw( pkgpart classnum refnum towernum )) { % foreach my $value ($cgi->param($param)) { % } % } % % foreach my $field (qw( setup last_bill bill adjourn susp expire contract_end change_date cancel active )) { % "> "> "> "> "> % } <% ntable('#cccccc') %> New package: <% include('/elements/select-table.html', 'table' => 'part_pkg', 'name_col' => 'pkg', 'empty_label' => 'Select package', 'label_callback' => sub { $_[0]->pkg_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');