<% include('/elements/header-popup.html', 'Order new package' ) %> <% include('/elements/error.html') %>

% if ( $svcpart ) { % } <% ntable("#cccccc", 2) %> <% include('/elements/tr-select-cust-part_pkg.html', 'curr_value' => $pkgpart, 'classnum' => -1, 'cust_main' => $cust_main, 'onchange' => 'enable_order_pkg', ) %> Start date <% include('/elements/input-date-field.html',{ 'name' => 'start_date', 'format' => $date_format, 'value' => $start_date, 'noinit' => 1, }) %> (leave blank to start immediately) % if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) { % my $what = lc(FS::payby->shortname($cust_main->payby)); Disable automatic <% $what %> charge % } % if ( $curuser->access_right('Discount customer package') ) { <% include('/elements/tr-select-discount.html', 'element_etc' => 'DISABLED', 'colspan' => 7, 'cgi' => $cgi, ) %> % } % if ( $conf->exists('pkg_referral') ) { <% include('/elements/tr-select-part_referral.html', 'curr_value' => scalar( $cgi->param('refnum') ), #get rid of empty_label first# || $cust_main->refnum, 'disable_empty' => 1, 'multiple' => $conf->exists('pkg_referral-multiple'), 'colspan' => 7, ) %> % } <% include('/elements/tr-select-cust_location.html', 'cgi' => $cgi, 'cust_main' => $cust_main, ) %> Contract end date <% include('/elements/input-date-field.html',{ 'name' => 'contract_end', 'format' => $date_format, 'value' => '', 'noinit' => 1, }) %> <% include( '/elements/standardize_locations.html', 'form' => "OrderPkgForm", 'onlyship' => 1, 'no_company' => 1, 'callback' => 'document.OrderPkgForm.submit();', ) %>
>

<%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Order customer package'); my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; $cgi->param('custnum') =~ /^(\d+)$/ or die "no custnum"; my $custnum = $1; my $cust_main = qsearchs({ 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, }); my $pkgpart = scalar($cgi->param('pkgpart')); my $format = $date_format. ' %T %z (%Z)'; #false laziness w/REAL_cust_pkg.cgi? my $start_date = ''; if( ! $conf->exists('order_pkg-no_start_date') ) { $start_date = $cust_main->next_bill_date; $start_date = $start_date ? time2str($format, $start_date) : ''; } my $svcpart = $cgi->param('svcpart');