<%= header( 'Bulk customer service change', menubar( 'Main Menu' => $p, ), ) %> <%= include('/elements/progress-init.html', 'OneTrueForm', [qw( old_svcpart new_svcpart pkgpart )], 'process/bulk-cust_svc.cgi', $p.'browse/part_svc.cgi', ) %>

<% $cgi->param('svcpart') =~ /^(\d+)$/ or die "illegal svcpart: ". $cgi->param('svcpart'); my $old_svcpart = $1; my $src_part_svc = qsearchs('part_svc', { 'svcpart' => $old_svcpart } ) or die "unknown svcpart: $old_svcpart"; %> Change <% my $num_cust_svc = $src_part_svc->num_cust_svc; %> <% if ( $num_cust_svc > 1 ) { %> all <%= $num_cust_svc %> <%= $src_part_svc->svc %> services <% } else { %> the <%= $num_cust_svc %> <%= $src_part_svc->svc %> service <% } %> <% my $num_unlinked = $src_part_svc->num_cust_svc(0); if ( $num_unlinked ) { %> the <%= $num_unlinked %> unlinked <%= $src_part_svc->svc %> services <% } %> <% foreach my $schwartz ( grep { $_->[1] } map { [ $_, $src_part_svc->num_cust_svc($_->pkgpart) ] } qsearch('part_pkg', {} ) ) { my( $part_pkg, $num_cust_svc ) = @$schwartz; %> the <%= $num_cust_svc %> <%= $src_part_svc->svc %> service<%= $num_cust_svc > 1 ? 's in' : ' in a' %> <%= $part_pkg->pkg %> package<%= $num_cust_svc > 1 ? 's' : '' %> <% } %>
to new service definition <% foreach my $dest_part_svc ( grep { $_->svcpart != $old_svcpart && $_->svcdb eq $src_part_svc->svcdb } qsearch('part_svc', { 'disabled' => '' } ) ) { %> <%= $dest_part_svc->svcpart %>: <%= $dest_part_svc->svc %> <% } %>