diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2015-08-28 00:56:49 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-08-29 17:23:58 -0500 |
| commit | 8508117a6127dc363736da08be6e71cb7aefc9d3 (patch) | |
| tree | 1cf9cbad185a4a6485e9706a69dec841f68440f3 /httemplate/edit/cust_refund.cgi | |
| parent | 225f922a9b48c5179b3fd9b28d9eb442d7e8598d (diff) | |
RT#37064: Add action link to manually refund a payment
Diffstat (limited to 'httemplate/edit/cust_refund.cgi')
| -rwxr-xr-x | httemplate/edit/cust_refund.cgi | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi index fa049a39a..bfcbfe725 100755 --- a/httemplate/edit/cust_refund.cgi +++ b/httemplate/edit/cust_refund.cgi @@ -139,16 +139,8 @@ my $payinfo = $cgi->param('payinfo'); my $reason = $cgi->param('reason'); my $link = $cgi->param('popup') ? 'popup' : ''; -my @rights = (); -push @rights, 'Post refund' if $payby =~ /^(BILL|CASH|MCRD|MCHK)$/; -push @rights, 'Post check refund' if $payby eq 'BILL'; -push @rights, 'Post cash refund ' if $payby eq 'CASH'; -push @rights, 'Refund payment' if $payby =~ /^(CARD|CHEK)$/; -push @rights, 'Refund credit card payment' if $payby eq 'CARD'; -push @rights, 'Refund Echeck payment' if $payby eq 'CHEK'; - die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right(\@rights); + unless $FS::CurrentUser::CurrentUser->refund_access_right($payby); my( $paynum, $cust_pay ) = ( '', '' ); if ( $cgi->param('paynum') =~ /^(\d+)$/ ) { |