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>