<& /elements/header-popup.html, mt('One-time charge'), '', ( $cgi->param('error') ? '' : 'onload="addRow()"' ), &> <& /elements/error.html &>

% if ( $cust_pkg ) { <& /elements/tr-fixed.html, label => 'Amount', field => 'amount', value => $money_char . sprintf('%.2f',$part_pkg->option('setup_fee')), &> % if ( $conf->exists('invoice-unitprice') ) { <& /elements/tr-fixed.html, label => 'Quantity', field => 'quantity', value => $cust_pkg->quantity &> % } <& /elements/tr-select-pkg_class.html, 'curr_value' => $classnum &> % # crudely estimate whether any agent commission credits might exist % my @events = grep { $_->part_event->action =~ /credit/ } % $cust_pkg->cust_event; % if ( scalar @events ) { % } % #display the future or past charge date, but don't allow changes % # XXX we probably _could_ let as-yet unbilled charges be rescheduled, but % # there's no compelling need yet % if ( $cust_pkg->setup or $cust_pkg->start_date ) { % my $label = $cust_pkg->setup ? emt('Billed on') : emt('Will be billed'); % my $field = $cust_pkg->setup ? 'setup' : 'start_date'; <& /elements/tr-fixed-date.html, label => $label, value => $cust_pkg->get($field) &> % } # else we don't show anything here % } else { # new one-time charge % if ( $conf->exists('invoice-unitprice') ) { % } <& /elements/tr-select-pkg_class.html, 'curr_value' => $classnum &> %# false laziness w/misc/order_pkg.html % if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) { % my $what = lc(FS::payby->shortname($cust_main->payby)); % } <& /elements/tr-select-taxclass.html, 'curr_value' => $cgi->param('taxclass') &> <& /elements/tr-select-taxproduct.html, 'label' => emt('Tax product'), 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => $cgi->param('taxproductnum') &> <& /elements/tr-select-taxoverride.html, 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => $cgi->param('tax_override') &> % } # if !$cust_pkg % my $row = 0; % foreach (@description) { % $row++; % }

	<% emt('Adjust commission credits if necessary') %>
<% mt('Amount') |h %>	<% $money_char %>
<% mt('Quantity') |h %>
<% mt('Invoice now') |h %>	param('bill_now') ? 'CHECKED' : '' %> onClick = "bill_now_changed(this);" onChange = "bill_now_changed(this);" > <% mt('with terms') |h %> <& /elements/select-terms.html, 'curr_value' => scalar($cgi->param('invoice_terms')), 'disabled' => ( $cgi->param('bill_now') ? 0 : 1 ), &>
<% mt('Charge date') |h %>	param('bill_now') ? 'STYLE = "background-color:#dddddd" DISABLED' : '' %> > param('bill_now') ? '' : 'STYLE="display:none"' %> > (<% mt('leave blank to charge immediately') |h %>)
<% mt("Disable automatic $what charge") |h %>
<% mt('Tax exempt') |h %>	param('setuptax') ? 'CHECKED' : '' %>>
<% mt('Description') |h %>
	<% mt('Optional additional description (also printed on invoice):') |h %>

% my $label = $cust_pkg % ? emt('Modify one-time charge') % : emt('Add one-time charge'); param('error') || $cust_pkg) ? '' :' DISABLED' %>>

<%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('One-time charge'); my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; my $money_char = $conf->config('money_char') || '$'; my ($cust_main, $cust_pkg); if ( $cgi->param('change_pkgnum') ) { # change an existing one-time charge die "access denied" unless $curuser->access_right('Modify one-time charge'); $cgi->param('change_pkgnum') =~ /^(\d+)$/ or die "illegal pkgnum"; $cust_pkg = FS::cust_pkg->by_key($1) or die "pkgnum $1 not found"; $cust_main = $cust_pkg->cust_main; } else { $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; $cust_main = FS::cust_main->by_key($1) or die "custnum $1 not found"; } my $custnum = $cust_main->custnum; # agent-virt if (!exists($curuser->agentnums_href->{$cust_main->agentnum})) { die "custnum $custnum not found"; } 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) : ''; my $amount = ''; if ( $cgi->param('amount') =~ /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ) { $amount = $1; } my $quantity = 1; if ( $cgi->param('quantity') =~ /^\s*(\d+)\s*$/ ) { $quantity = $1; } $cgi->param('pkg') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ or die 'illegal description'; my $pkg = $1; my $default_terms; if ( $cust_main->invoice_terms ) { $default_terms = emt("Customer default ([_1])", $cust_main->invoice_terms); } else { $default_terms = emt("Default ([_1])", ($conf->config('invoice_default_terms') || emt('Payable upon receipt')) ); } my @description; my %param = $cgi->Vars; for (my $i = 0; exists($param{"description$i"}); $i++) { push @description, $param{"description$i"}; } my $classnum; if ( $cgi->param('classnum') =~ /^(\d+)$/ ) { $classnum = $1; } my $part_pkg; if ( $cust_pkg ) { # set defaults $part_pkg = $cust_pkg->part_pkg; $pkg ||= $part_pkg->pkg; $classnum ||= $part_pkg->classnum; if (!@description) { for (my $i = 0; $i < ($part_pkg->option('additional_count',1) || 0); $i++) { push @description, $part_pkg->option("additional_info$i",1); } } }