X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_credit.cgi;h=776112ac03399ea00d556a3e77af37be37bc6a4b;hb=91ffcc0ecc1e1da51fa4b99a342691caa85a5992;hp=8715ad61eaf5f114267e1c5cbfdb3fb4c480c150;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git

diff --git a/httemplate/edit/process/cust_credit.cgi b/httemplate/edit/process/cust_credit.cgi
index 8715ad61e..776112ac0 100755
--- a/httemplate/edit/process/cust_credit.cgi
+++ b/httemplate/edit/process/cust_credit.cgi
@@ -12,11 +12,10 @@
 %      or die "unknown custnum $custnum";
 %    $cust_main->apply_credits;
 %  }
-%  #print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
 %
 %  $dbh->commit or die $dbh->errstr if $oldAutoCommit;
 %  
-<% header('Credit sucessful') %>
+<% header(emt('Credit sucessful')) %>
   <SCRIPT TYPE="text/javascript">
     window.top.location.reload();
   </SCRIPT>
@@ -43,9 +42,10 @@ if ($reasonnum == -1) {
 
   $error = 'Enter a new reason (or select an existing one)'
     unless $cgi->param('newreasonnum') !~ /^\s*$/;
-  my $reason = new FS::reason({ 'reason_type' => $cgi->param('newreasonnumT'),
-                                'reason'      => $cgi->param('newreasonnum'),
-                              });
+  my $reason = new FS::reason {
+                 'reason_type' => scalar($cgi->param('newreasonnumT')),
+                 'reason'      => scalar($cgi->param('newreasonnum')),
+               };
   $error ||= $reason->insert;
   $cgi->param('reasonnum', $reason->reasonnum)
     unless $error;