From 5893e4b788c0fa70347a9c9d9d964defa438f519 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 14 Sep 2007 03:45:39 +0000
Subject: 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

---
 httemplate/edit/process/quick-charge.cgi | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'httemplate/edit/process/quick-charge.cgi')

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>
-
-- 
cgit v1.2.1