<% include('/elements/header-popup.html', 'Bulk package change') %> <% include('/elements/init_overlib.html') %> <% include('/elements/progress-init.html', 'OneTrueForm', [qw( old_pkgpart new_pkgpart )], 'process/bulk-cust_pkg.cgi', $p.'browse/part_pkg.cgi', ) %>

% #false laziness with bulk-cust_svc.html % $cgi->param('pkgpart') =~ /^(\d+)$/ % or die "illegal pkgpart: ". $cgi->param('pkgpart'); % % my $old_pkgpart = $1; % my $src_part_pkg = qsearchs('part_pkg', { 'pkgpart' => $old_pkgpart } ) % or die "unknown pkgpart: $old_pkgpart"; % Change <% $src_part_pkg->pkg_comment %>
to new package definition % foreach my $dest_part_pkg ( qsearch('part_pkg', { 'disabled' => '' } ) ) { <% $dest_part_pkg->pkgpart %>: <% $dest_part_pkg->pkg %> % }

%# Preserve all billing dates (strongly recommended) %#
%#

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration');