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

<% include('/elements/tr-select-pkg_class.html', '') %> <% include('/elements/tr-select-taxclass.html') %> % my $row = 0; % if ( $cgi->param('error') ) { % my $param = $cgi->Vars; % % for ( $row = 0; exists($param->{"description$row"}); $row++ ) { % } % }

Amount:	$
Description:
	Optional additional description:
	" rownum="<% $row %>" onkeyup = "possiblyAddRow;" >

param('error') ? '' :' DISABLED' %>>

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('One-time charge'); $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; my $custnum = $1; my $amount = ''; if ( $cgi->param('amount') =~ /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ) { $amount = $1; } $cgi->param('pkg') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ or die 'illegal description'; my $pkg = $1;