1 <% include("/elements/header-popup.html", 'One-time charge', '',
2 ( $cgi->param('error') ? '' : 'onload="addRow()"' ),
6 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
7 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
8 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
9 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
11 <% include('/elements/error.html') %>
13 <SCRIPT TYPE="text/javascript">
15 function enable_quick_charge () {
16 if ( document.QuickChargeForm.amount.value
17 && document.QuickChargeForm.pkg.value ) {
18 document.QuickChargeForm.submit.disabled = false;
20 document.QuickChargeForm.submit.disabled = true;
24 function validate_quick_charge () {
25 var pkg = document.QuickChargeForm.pkg.value;
26 var pkg_regex = /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ ;
27 var amount = document.QuickChargeForm.amount.value;
28 var amount_regex = /^\s*\$?\s*(\d*(\.?\d{1,2}))\s*$/ ;
31 if ( ! amount_regex.test(amount) ) {
32 alert('Illegal amount - enter an amount to charge, for example, "5" or "43" or "21.46".');
35 if ( String(pkg).length < 1 ) {
38 if ( ! pkg_regex.test(pkg) ) {
42 for (i=0; i < rownum; i++) {
43 if (! eval('pkg_regex.test(document.QuickChargeForm.description' + i + '.value)')){
53 alert('Enter a description for the one-time charge');
57 alert('Illegal description - spaces, letters, numbers, and the following punctuation characters are allowed: . , ! ? @ # $ % & ( ) - + ; : ' + "'" + ' " = [ ]' );
63 <FORM ACTION="process/quick-charge.cgi" NAME="QuickChargeForm" ID="QuickChargeForm" METHOD="POST" onsubmit="document.QuickChargeForm.submit.disabled=true;return validate_quick_charge();">
65 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
67 <TABLE ID="QuickChargeTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 STYLE="background-color: #cccccc">
70 <TD ALIGN="right">Amount </TD>
72 $<INPUT TYPE="text" NAME="amount" SIZE=6 VALUE="<% $amount %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge()">
76 % if ( $conf->exists('invoice-unitprice') ) {
78 <TD ALIGN="right">Quantity </TD>
80 <INPUT TYPE="text" NAME="quantity" SIZE=4 VALUE="<% $quantity %>">
85 <% include('/elements/tr-select-pkg_class.html', 'curr_value' => $cgi->param('classnum') ) %>
88 <TD ALIGN="right">Charge date </TD>
93 ID = "start_date_text"
94 VALUE = "<% $start_date %>"
96 <IMG SRC = "../images/calendar.png"
97 ID = "start_date_button"
98 STYLE = "cursor: pointer"
101 <FONT SIZE=-1>(leave blank to charge immediately)</FONT>
105 <SCRIPT TYPE="text/javascript">
107 inputField: "start_date_text",
108 ifFormat: "%m/%d/%Y",
109 button: "start_date_button",
116 <TD ALIGN="right">Tax exempt </TD>
117 <TD><INPUT TYPE="checkbox" NAME="setuptax" VALUE="Y" <% $cgi->param('setuptax') ? 'CHECKED' : '' %>></TD>
120 <% include('/elements/tr-select-taxclass.html', 'curr_value' => $cgi->param('taxclass') ) %>
122 <% include('/elements/tr-select-taxproduct.html', 'label' => 'Tax product', 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => $cgi->param('taxproductnum') ) %>
124 <% include('/elements/tr-select-taxoverride.html', 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => $cgi->param('tax_override') ) %>
127 <TD ALIGN="right">Description </TD>
129 <INPUT TYPE="text" NAME="pkg" SIZE="50" MAXLENGTH="50" VALUE="<% $pkg %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge()">
135 <TD><FONT SIZE="-1">Optional additional description (also printed on invoice): </FONT></TD>
139 % if ( $cgi->param('error') || $cgi->param('magic') ) {
140 % my $param = $cgi->Vars;
142 % for ( $row = 0; exists($param->{"description$row"}); $row++ ) {
147 <INPUT TYPE="text" NAME="description<% $row %>" SIZE="60" MAXLENGTH="65" VALUE="<% $param->{"description$row"} |h %>" rownum="<% $row %>" onkeyup = "possiblyAddRow;" >
157 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="Add one-time charge" <% $cgi->param('error') ? '' :' DISABLED' %>>
162 <SCRIPT TYPE="text/javascript">
164 var rownum = <% $row %>;
166 function possiblyAddRow() {
167 if ( ( rownum - this.getAttribute('rownum') ) == 1 ) {
174 var table = document.getElementById('QuickChargeTable');
175 var tablebody = table.getElementsByTagName('tbody').item(0);
177 var row = document.createElement('TR');
179 var empty_cell = document.createElement('TD');
180 row.appendChild(empty_cell);
182 var description_cell = document.createElement('TD');
184 var description_input = document.createElement('INPUT');
185 description_input.setAttribute('name', 'description'+rownum);
186 description_input.setAttribute('id', 'description'+rownum);
187 description_input.setAttribute('size', 60);
188 description_input.setAttribute('maxLength', 65);
189 description_input.setAttribute('rownum', rownum);
190 description_input.onkeyup = possiblyAddRow;
191 description_cell.appendChild(description_input);
193 row.appendChild(description_cell);
195 tablebody.appendChild(row);
208 unless $FS::CurrentUser::CurrentUser->access_right('One-time charge');
210 my $conf = new FS::Conf;
212 $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum';
214 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); #XXX agent-virt
216 my $format = "%m/%d/%Y %T %z (%Z)"; #false laziness w/REAL_cust_pkg.cgi?
217 my $start_date = $cust_main->next_bill_date;
218 $start_date = $start_date ? time2str($format, $start_date) : '';
221 if ( $cgi->param('amount') =~ /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ) {
226 if ( $cgi->param('quantity') =~ /^\s*(\d+)\s*$/ ) {
230 $cgi->param('pkg') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/
231 or die 'illegal description';