diff options
| author | ivan <ivan> | 2007-09-14 03:45:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-09-14 03:45:39 +0000 |
| commit | 5893e4b788c0fa70347a9c9d9d964defa438f519 (patch) | |
| tree | a81c10dcd452aef86615b7cea821b33a37f2a43e /httemplate/edit/process/quick-charge.cgi | |
| parent | aa0af6a8d190b51f4d62e7c8732604a6193b3337 (diff) | |
Fix 'Can't use an undefined value as an ARRAY reference at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 4383.' error
Diffstat (limited to 'httemplate/edit/process/quick-charge.cgi')
| -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> - |