taxproduct selection for one time charges
[freeside.git] / httemplate / edit / quick-charge.html
1 <% include("/elements/header-popup.html", 'One-time charge entry', '',
2             ( $cgi->param('error') ? '' : 'onload="addRow()"' ),
3           )
4 %>
5
6 <% include('/elements/error.html') %>
7
8 <SCRIPT TYPE="text/javascript">
9
10 function enable_quick_charge () {
11   if (    document.QuickChargeForm.amount.value
12        && document.QuickChargeForm.pkg.value    ) {
13     document.QuickChargeForm.submit.disabled = false;
14   } else {
15     document.QuickChargeForm.submit.disabled = true;
16   }
17 }
18
19 function enable_quick_charge_desc () {
20   if (  document.QuickChargeForm.amount.value && document.QuickChargeForm.pkg.value ) {
21     document.QuickChargeForm.submit.disabled = false;
22   } else {
23     document.QuickChargeForm.submit.disabled = true;
24   }
25 }
26
27 function enable_quick_charge_amount () {
28   if ( document.QuickChargeForm.amount.value && document.QuickChargeForm.pkg.value ) {
29     document.QuickChargeForm.submit.disabled = false;
30   } else {
31     document.QuickChargeForm.submit.disabled = true;
32   }
33 }
34
35 function validate_quick_charge () {
36   var pkg = document.QuickChargeForm.pkg.value;
37   var pkg_regex = /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ ;
38   var amount = document.QuickChargeForm.amount.value;
39   var amount_regex = /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ;
40   var rval = true;
41
42   if ( ! amount_regex.test(amount) ) {
43     alert('Illegal amount - enter an amount to charge, for example, "5" or "43" or "21.46".');
44     return false;
45   }
46   if ( String(pkg).length < 1 ) {
47     rval = false;
48   }
49   if ( ! pkg_regex.test(pkg) ) {
50     rval = false;
51   }
52   var i=0;
53   for (i=0; i < rownum; i++) {
54     if (! eval('pkg_regex.test(document.QuickChargeForm.description' + i + '.value)')){
55       rval = false;
56       break;
57     }
58   }
59   if (rval == true) {
60     return true;
61   }
62
63   if ( ! pkg ) {
64     alert('Enter a description for the one-time charge');
65     return false;
66   }
67
68   alert('Illegal description - spaces, letters, numbers, and the following punctuation characters are allowed: . , ! ? @ # $ % & ( ) - + ; : ' + "'" + ' " = [ ]' );
69   return false;
70 }
71
72 </SCRIPT>
73
74 <FORM ACTION="process/quick-charge.cgi" NAME="QuickChargeForm" ID="QuickChargeForm" METHOD="POST" onsubmit="document.QuickChargeForm.submit.disabled=true;return validate_quick_charge();">
75
76 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
77
78 <TABLE ID="QuickChargeTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 STYLE="background-color: #cccccc">
79
80 <TR>
81   <TD ALIGN="right">Amount: </TD>
82   <TD>
83     $<INPUT TYPE="text" NAME="amount" SIZE=6 VALUE="<% $amount %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge_amount()">
84   </TD>
85 </TR>
86
87 % if ( $conf->exists('invoice-unitprice') ) {
88     <TR>
89       <TD ALIGN="right">Quantity: </TD>
90       <TD>
91         <INPUT TYPE="text" NAME="quantity" SIZE=4 VALUE="<% $quantity %>">
92       </TD>
93     </TR>
94 % }
95
96 <% include('/elements/tr-select-pkg_class.html', 'curr_value' => $cgi->param('classnum') ) %>
97
98 <% include('/elements/tr-select-taxclass.html', 'curr_value' => $cgi->param('taxclass') ) %>
99
100 <% include('/elements/tr-select-taxproduct.html', 'label' => 'Tax product', 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => $cgi->param('taxproductnum') ) %>
101
102 <% include('/elements/tr-select-taxoverride.html', 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => $cgi->param('tax_override') ) %>
103
104 <TR>
105   <TD>Description:</TD>
106   <TD>
107     <INPUT TYPE="text" NAME="pkg" SIZE="60" MAXLENGTH="65" VALUE="<% $pkg %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge_desc()">
108   </TD>
109 </TR>
110
111 <TR>
112   <TD></TD>
113   <TD><FONT SIZE="-1">Optional additional description: </FONT></TD>
114 </TR>
115
116 % my $row = 0;
117 %   if ( $cgi->param('error') || $cgi->param('magic') ) {
118 %     my $param = $cgi->Vars;
119 %
120 % for ( $row = 0; exists($param->{"description$row"}); $row++ ) { 
121
122     <TR>
123       <TD></TD>
124       <TD>
125         <INPUT TYPE="text" NAME="description<% $row %>" SIZE="60" MAXLENGTH="65" VALUE="<% $param->{"description$row"} |h %>" rownum="<% $row %>" onkeyup = "possiblyAddRow;" >
126       </TD>
127     </TR>
128 % } 
129 % } 
130
131
132 </TABLE>
133
134 <BR>
135 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="Add one-time charge" <% $cgi->param('error') ? '' :' DISABLED' %>>
136
137 </FORM>
138
139
140 <SCRIPT TYPE="text/javascript">
141
142   var rownum = <% $row %>;
143
144   function possiblyAddRow() {
145     if ( ( rownum - this.getAttribute('rownum') ) == 1 ) {
146       addRow();
147     }
148   }
149
150   function addRow() {
151
152     var table = document.getElementById('QuickChargeTable');
153     var tablebody = table.getElementsByTagName('tbody').item(0);
154
155     var row = document.createElement('TR');
156
157     var empty_cell = document.createElement('TD');
158     row.appendChild(empty_cell);
159
160     var description_cell = document.createElement('TD');
161
162       var description_input = document.createElement('INPUT');
163       description_input.setAttribute('name', 'description'+rownum);
164       description_input.setAttribute('id',   'description'+rownum);
165       description_input.setAttribute('size', 60);
166       description_input.setAttribute('maxLength', 65);
167       description_input.setAttribute('rownum',   rownum);
168       description_input.onkeyup = possiblyAddRow;
169       description_cell.appendChild(description_input);
170
171     row.appendChild(description_cell);
172
173     tablebody.appendChild(row);
174
175     rownum++;
176
177   }
178
179 </SCRIPT>
180
181 </BODY>
182 </HTML>
183 <%init>
184
185 die "access denied"
186   unless $FS::CurrentUser::CurrentUser->access_right('One-time charge');
187
188 my $conf = new FS::Conf;
189
190 $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum';
191 my $custnum = $1;
192
193 my $amount = '';
194 if ( $cgi->param('amount') =~ /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ) {
195   $amount = $1;
196 }
197
198 my $quantity = 1;
199 if ( $cgi->param('quantity') =~ /^\s*(\d+)\s*$/ ) {
200   $quantity = $1;
201 }
202
203 $cgi->param('pkg') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ 
204   or die 'illegal description';
205 my $pkg = $1;
206
207 </%init>