httemplate/misc/bulk_unsuspend_pkg.cgi

   1 <% include('/elements/header-popup.html', "Unsuspend 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_unsuspend_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 reasonnum
  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><INPUT TYPE="checkbox" NAME="confirm"></TD>
  49     <TD>Confirm Unsuspend Packages</TD>
  50   </TR>
  51
  52 </TABLE>
  53
  54 <BR>
  55 <INPUT TYPE="submit" VALUE="Unsuspend Packages">
  56
  57 </FORM>
  58 </BODY>
  59 </HTML>
  60
  61 <%init>
  62
  63 die "access denied"
  64   unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
  65
  66 </%init>