<% 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', ) %>
% foreach my $src_part_pkg (@src_part_pkg) { Change <% $src_part_pkg->pkg_comment |h %>
% }
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'); my @src_part_pkg = (); foreach my $pkgpart ( $cgi->multi_param('pkgpart') ) { $pkgpart =~ /^(\d+)$/ or die "illegal pkgpart: $pkgpart"; my $old_pkgpart = $1; my $src_part_pkg = qsearchs('part_pkg', { 'pkgpart' => $old_pkgpart } ) or die "unknown pkgpart: $old_pkgpart"; push @src_part_pkg, $src_part_pkg; }