diff options
| -rw-r--r-- | httemplate/edit/process/quick-charge.cgi | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi index 024a281e0..4a090f9de 100644 --- a/httemplate/edit/process/quick-charge.cgi +++ b/httemplate/edit/process/quick-charge.cgi @@ -24,17 +24,17 @@ % my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ) % or $error .= "Unknown customer number $custnum. "; % -% $error ||= $cust_main->charge({ 'amount' => $amount, -% 'pkg' => $cgi->param('pkg'), -% 'taxclass' => $cgi->param('taxclass'), -% 'additional' => \@description, -% } -% ); +% $error ||= $cust_main->charge( { +% 'amount' => $amount, +% 'pkg' => scalar($cgi->param('pkg')), +% 'taxclass' => scalar($cgi->param('taxclass')), +% 'additional' => \@description, +% } ); % } % % if ( $error ) { % -% $cgi->param('error', "$error" ); +% $cgi->param('error', $error ); % <% $cgi->redirect($p.'quick-charge.html?'. $cgi->query_string) %> % @@ -44,4 +44,3 @@ window.top.location.reload(); </SCRIPT> </BODY></HTML> - |