<% include('/elements/header-popup.html', "Cancel Packages") %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

<& /elements/cust_pkg-search-form_input.html, $cgi &> <% ntable('#cccccc') %> %# <& /elements/tr-input-date-field.html, { %# 'name' => 'cancel_date', %# 'label' => mt("Cancel package on"), %# 'format' => $date_format, %# } &> %# (Leave blank to cancel immediately) <& /elements/tr-select-reason.html, field => 'cancel_reasonnum', reason_class => 'C', &>

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); #use Date::Parse qw(str2time); # my $conf = new FS::Conf; #my $date_format = $conf->config('date_format') || '%m/%d/%Y';