summaryrefslogtreecommitdiff
path: root/httemplate/edit/bulk-cust_svc.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/bulk-cust_svc.html')
-rw-r--r--httemplate/edit/bulk-cust_svc.html97
1 files changed, 0 insertions, 97 deletions
diff --git a/httemplate/edit/bulk-cust_svc.html b/httemplate/edit/bulk-cust_svc.html
deleted file mode 100644
index 6f6e3f850..000000000
--- a/httemplate/edit/bulk-cust_svc.html
+++ /dev/null
@@ -1,97 +0,0 @@
-<% include('/elements/header.html', 'Bulk customer service change') %>
-
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_draggable.js"></SCRIPT>
-
-<% include('/elements/progress-init.html',
- 'OneTrueForm',
- [qw( old_svcpart new_svcpart pkgpart )],
- 'process/bulk-cust_svc.cgi',
- $p.'browse/part_svc.cgi',
- )
-%>
-
-<FORM NAME="OneTrueForm">
-%
-% $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";
-%
-
-
-<INPUT NAME="old_svcpart" TYPE="hidden" VALUE="<% $old_svcpart %>">
-Change <!-- customer
-<B><% $src_part_svc->svcpart %>: <% $src_part_svc->svc %></B> services
-<BR>
--->
-
-<SELECT NAME="pkgpart">
-% my $num_cust_svc = $src_part_svc->num_cust_svc;
-% if ( $num_cust_svc > 1 ) {
-
- <OPTION VALUE="">all <% $num_cust_svc %> <% $src_part_svc->svc %> services
-% } else {
-
- <OPTION VALUE="">the <% $num_cust_svc %> <% $src_part_svc->svc %> service
-% }
-%
-% my $num_unlinked = $src_part_svc->num_cust_svc(0);
-% if ( $num_unlinked ) {
-%
-
- <OPTION VALUE="0">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;
-%
-
- <OPTION VALUE="<% $part_pkg->pkgpart %>">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' : '' %>
-% }
-
-</SELECT>
-<BR>
-
-to new service definition
-<SELECT NAME="new_svcpart">
-% foreach my $dest_part_svc (
-% grep { $_->svcpart != $old_svcpart
-% && $_->svcdb eq $src_part_svc->svcdb
-% }
-% qsearch('part_svc', { 'disabled' => '' } )
-% ) {
-%
-
- <OPTION VALUE="<% $dest_part_svc->svcpart %>"><% $dest_part_svc->svcpart %>: <% $dest_part_svc->svc %>
-% }
-
-</SELECT>
-<BR>
-
-<BR>
-
-<SCRIPT TYPE="text/javascript">
-var confirm_change = '<P ALIGN="center"><B>Bulk customer service change - Are you sure?</B><BR><P ALIGN="CENTER" <INPUT TYPE="button" VALUE="Yes, make changes" onClick="process();">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="BUTTON" VALUE="Cancel" onClick="cClick()">';
-</SCRIPT>
-
-<INPUT TYPE="button" VALUE="Bulk change customer services" onClick="overlib(confirm_change, CAPTION, 'Confirm bulk customer service change', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' );">
-
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-</%init>