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

<% ntable("#cccccc", 2) %> <% include('/elements/tr-select-cust-part_pkg.html', 'curr_value' => $pkgpart, 'classnum' => -1, 'cust_main' => $cust_main, 'onchange' => 'enable_order_pkg', ) %> %# false laziness w/edit/quick-charge.html Start date (leave blank to start immediately) % 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, ) %>
>

<%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 = "%m/%d/%Y %T %z (%Z)"; #false laziness w/REAL_cust_pkg.cgi? my $start_date = $cust_main->next_bill_date; $start_date = $start_date ? time2str($format, $start_date) : '';