<% include("/elements/header.html", '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 %> % }