<% 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

%# Preserve all billing dates (strongly recommended) %#
%#
<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration');