1 <% include('/elements/header-popup.html', "Cancel Packages") %>
3 % if ( $cgi->param('error') ) {
4 <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
8 <FORM NAME = "OneTrueForm"
10 ACTION = "<% $p %>misc/process/bulk_cancel_pkg.cgi"
11 onSubmit = "document.OneTrueForm.submit.disabled=true;"
14 <& /elements/cust_pkg-search-form_input.html, $cgi &>
16 <% ntable('#cccccc') %>
18 %# <& /elements/tr-input-date-field.html, {
19 %# 'name' => 'cancel_date',
20 %# 'label' => mt("Cancel package on"),
21 %# 'format' => $date_format,
23 %# <TR><TD></TD><TH>(Leave blank to cancel immediately)</TH></TR>
25 <& /elements/tr-select-reason.html,
26 field => 'cancel_reasonnum',
33 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="Cancel Packages">
42 unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
44 #use Date::Parse qw(str2time);
45 #<table style="background-color: #cccccc; border-spacing: 2; width: 100%">
47 my $conf = new FS::Conf;
48 #my $date_format = $conf->config('date_format') || '%m/%d/%Y';