Fix 'Can't use an undefined value as an ARRAY reference at /usr/local/share/perl...

diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi
index 024a281..4a090f9 100644 (file)
--- 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>
-