configure "Please pay by" string per agent, RT#75372
[freeside.git] / httemplate / misc / bulk_change_pkg.cgi
1 <% include('/elements/header-popup.html', "Change Packages") %>
2
3 % if ( $cgi->param('error') ) {
4   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
5   <BR><BR>
6 % }
7
8 <FORM ACTION="<% $p %>misc/process/bulk_change_pkg.cgi" METHOD=POST>
9
10 %# some false laziness w/search/cust_pkg.cgi
11
12 <INPUT TYPE="hidden" NAME="query" VALUE="<% $cgi->keywords |h %>">
13 % for my $param (
14 %   qw(
15 %     agentnum cust_status cust_main_salesnum salesnum custnum magic status
16 %     custom pkgbatch zip
17 %     477part 477rownum date
18 %     report_option
19 %   ),
20 %   grep { /^location_\w+$/ || /^report_option_any/ } $cgi->param
21 % ) {
22   <INPUT TYPE="hidden" NAME="<% $param %>" VALUE="<% $cgi->param($param) |h %>">
23 % }
24 %
25 % for my $param (qw( censustract censustract2 ) ) {
26 %   next unless grep { $_ eq $param } $cgi->param;
27   <INPUT TYPE="hidden" NAME="<% $param %>" VALUE="<% $cgi->param($param) |h %>">
28 % }
29 %
30 % for my $param (qw( pkgpart classnum refnum towernum )) {
31 %   foreach my $value ($cgi->param($param)) {
32       <INPUT TYPE="hidden" NAME="<% $param %>" VALUE="<% $value |h %>">
33 %   }
34 % }
35 %
36 % foreach my $field (qw( setup last_bill bill adjourn susp expire contract_end change_date cancel active )) {
37
38   <INPUT TYPE="hidden" NAME="<% $field %>_null" VALUE="<% $cgi->param("${field}_null") |h %>">
39   <INPUT TYPE="hidden" NAME="<% $field %>begin" VALUE="<% $cgi->param("${field}.begin") |h %>">
40   <INPUT TYPE="hidden" NAME="<% $field %>beginning" VALUE="<% $cgi->param("${field}beginning") |h %>">
41   <INPUT TYPE="hidden" NAME="<% $field %>end" VALUE="<% $cgi->param("${field}.end") |h %>">
42   <INPUT TYPE="hidden" NAME="<% $field %>ending" VALUE="<% $cgi->param("${field}.ending") |h %>">
43 % }
44
45 <% ntable('#cccccc') %>
46
47   <TR>
48     <TD>New package: </TD>
49     <TD><% include('/elements/select-table.html',
50                      'table'          => 'part_pkg',
51                      'name_col'       => 'pkg',
52                      'empty_label'    => 'Select package',
53                      'label_callback' => sub { $_[0]->pkg_comment },
54                      'element_name'   => 'new_pkgpart',
55                      'curr_value'     => ( $cgi->param('error')
56                                            ? scalar($cgi->param('new_pkgpart'))
57                                            : ''
58                                          ),
59                   )
60         %>
61     </TD>
62   </TR>
63
64 </TABLE>
65
66 <BR>
67 <INPUT TYPE="submit" VALUE="Change packages">
68
69 </FORM>
70 </BODY>
71 </HTML>
72
73 <%init>
74
75 die "access denied"
76   unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
77
78 </%init>