summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xhttemplate/edit/cust_credit.cgi7
-rwxr-xr-xhttemplate/elements/tr-select-reason.html2
2 files changed, 7 insertions, 2 deletions
diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi
index b6924f4d9..2fadb4763 100755
--- a/httemplate/edit/cust_credit.cgi
+++ b/httemplate/edit/cust_credit.cgi
@@ -30,7 +30,12 @@ Credit
%#print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
%
-<% include('/elements/tr-select-reason.html', 'reasonnum', 'R', '', '', '', 'document.credit_popup.submit',) %>
+<% include('/elements/tr-select-reason.html',
+ 'field' => 'reasonnum',
+ 'reason_class' => 'R',
+ 'control_button' => 'document.credit_popup.submit',
+ )
+%>
<TR>
<TD ALIGN="right">Auto-apply<BR>to invoices</TD>
diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html
index b57f78a1e..2639a9d5c 100755
--- a/httemplate/elements/tr-select-reason.html
+++ b/httemplate/elements/tr-select-reason.html
@@ -110,7 +110,7 @@ if ($class eq 'C') {
} elsif ($class eq 'S') {
$access_right = 'Suspend customer package';
$add_access_right = 'Add on-the-fly suspend reason';
-} elsif ($class eq 'S') {
+} elsif ($class eq 'R') {
$access_right = 'Post credit';
$add_access_right = 'Add on-the-fly credit reason';
} else {