diff options
| author | ivan <ivan> | 2007-09-14 03:45:40 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-09-14 03:45:40 +0000 |
| commit | c23caf37ebb162ef28918a83051217065191d5f0 (patch) | |
| tree | 5deceb10eaff211309a9d866716336f181ebed7d | |
| parent | 2be118d2472a189461d829eaae09c50ac050f256 (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
| -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> - |