internationalization/localization, RT12515
[freeside.git] / httemplate / edit / bulk-cust_svc.html
1 <% include('/elements/header.html', 'Bulk customer service change') %>
2
3 <% include('/elements/init_overlib.html') %>
4
5 <% include('/elements/progress-init.html',
6               'OneTrueForm',
7               [qw( old_svcpart new_svcpart pkgpart )],
8               'process/bulk-cust_svc.cgi',
9               $p.'browse/part_svc.cgi',
10            )
11 %>
12
13 <FORM NAME="OneTrueForm">
14 %
15 %  $cgi->param('svcpart') =~ /^(\d+)$/
16 %    or die "illegal svcpart: ". $cgi->param('svcpart');
17 %
18 %  my $old_svcpart = $1;
19 %  my $src_part_svc = qsearchs('part_svc', { 'svcpart' => $old_svcpart } )
20 %    or die "unknown svcpart: $old_svcpart";
21 %
22
23
24 <INPUT NAME="old_svcpart" TYPE="hidden" VALUE="<% $old_svcpart %>">
25 Change <!-- customer
26 <B><% $src_part_svc->svcpart %>: <% $src_part_svc->svc %></B> services
27 <BR>
28 -->
29
30 <SELECT NAME="pkgpart">
31 % my $num_cust_svc = $src_part_svc->num_cust_svc; 
32 % if ( $num_cust_svc > 1 ) { 
33
34   <OPTION VALUE="">all <% $num_cust_svc %> <% $src_part_svc->svc %> services
35 % } else { 
36
37   <OPTION VALUE="">the <% $num_cust_svc %> <% $src_part_svc->svc %> service
38 % } 
39 %
40 %  my $num_unlinked = $src_part_svc->num_cust_svc(0);
41 %  if ( $num_unlinked ) {
42 %
43
44   <OPTION VALUE="0">the <% $num_unlinked %> unlinked <% $src_part_svc->svc %> services
45 % } 
46 % foreach my $schwartz (
47 %     grep { $_->[1] }
48 %     map  { [ $_, $src_part_svc->num_cust_svc($_->pkgpart) ] }
49 %          qsearch('part_pkg', {} )
50 %   ) {
51 %     my( $part_pkg, $num_cust_svc ) = @$schwartz;
52 %
53
54   <OPTION VALUE="<% $part_pkg->pkgpart %>">the <% $num_cust_svc %>
55     <% $src_part_svc->svc %> service<% $num_cust_svc > 1 ? 's in' : ' in a' %>
56     <% $part_pkg->pkg %> package<% $num_cust_svc > 1 ? 's' : '' %>
57 % } 
58
59 </SELECT>
60 <BR>
61
62 to new service definition
63 <SELECT NAME="new_svcpart">
64 % foreach my $dest_part_svc (
65 %     grep {    $_->svcpart != $old_svcpart
66 %            && $_->svcdb   eq $src_part_svc->svcdb
67 %          }
68 %          qsearch('part_svc', { 'disabled' => '' } )
69 %   ) {
70 %
71
72   <OPTION VALUE="<% $dest_part_svc->svcpart %>"><% $dest_part_svc->svcpart %>: <% $dest_part_svc->svc %>
73 % } 
74
75 </SELECT>
76 <BR>
77
78 <BR>
79
80 <SCRIPT TYPE="text/javascript">
81 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()">';
82 </SCRIPT>
83
84 <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' );">
85
86 </FORM>
87
88 <% include('/elements/footer.html') %>
89
90 <%init>
91
92 die "access denied"
93   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
94
95 </%init>