From: ivan <ivan>
Date: Fri, 14 Sep 2007 03:45:40 +0000 (+0000)
Subject: Fix 'Can't use an undefined value as an ARRAY reference at /usr/local/share/perl... 
X-Git-Tag: freeside_1_7_3rc1~333
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c23caf37ebb162ef28918a83051217065191d5f0;p=freeside.git

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
---

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>
-