httemplate/misc/bulk_cancel_pkg.cgi

   1 <% include('/elements/header-popup.html', "Cancel 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 NAME     = "OneTrueForm"
   9       METHOD   = POST
  10       ACTION   = "<% $p %>misc/process/bulk_cancel_pkg.cgi"
  11       onSubmit = "document.OneTrueForm.submit.disabled=true;"
  12 >
  13
  14 <& /elements/cust_pkg-search-form_input.html, $cgi &>
  15
  16 <% ntable('#cccccc') %>
  17
  18 %#  <& /elements/tr-input-date-field.html, {
  19 %#      'name'    => 'cancel_date',
  20 %#      'label'   => mt("Cancel package on"),
  21 %#      'format'  => $date_format,
  22 %#  } &>
  23 %#  <TR><TD></TD><TH>(Leave blank to cancel immediately)</TH></TR>
  24
  25   <& /elements/tr-select-reason.html,
  26        field          => 'cancel_reasonnum',
  27        reason_class   => 'C',
  28   &>
  29
  30 </TABLE>
  31
  32 <BR>
  33 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="Cancel Packages">
  34
  35 </FORM>
  36 </BODY>
  37 </HTML>
  38
  39 <%init>
  40
  41 die "access denied"
  42   unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
  43
  44 #use Date::Parse qw(str2time);
  45 #<table style="background-color: #cccccc; border-spacing: 2; width: 100%">
  46
  47 my $conf = new FS::Conf;
  48 #my $date_format = $conf->config('date_format') || '%m/%d/%Y';
  49
  50 </%init>