X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcredit-cust_bill_pkg.html;h=8e66368d4bc54096a735246dc310c5e6a82e193a;hb=15cca75dbf7fba140fbf7b6ea1566165f921978c;hp=1b61997729c69fa2aabd44f77f06bc702de190da;hpb=61e988d7675346395d24f1d7a2e89f4d90b95a6c;p=freeside.git diff --git a/httemplate/edit/process/credit-cust_bill_pkg.html b/httemplate/edit/process/credit-cust_bill_pkg.html index 1b6199772..8e66368d4 100644 --- a/httemplate/edit/process/credit-cust_bill_pkg.html +++ b/httemplate/edit/process/credit-cust_bill_pkg.html @@ -10,7 +10,7 @@ <%init> die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Post credit'); + unless $FS::CurrentUser::CurrentUser->access_right('Credit line items'); my @billpkgnum_setuprecurs = map { $_ =~ /^billpkgnum(\d+\-\w*)$/ or die 'gm#23'; $1; } @@ -32,6 +32,7 @@ my $error = FS::cust_credit->credit_lineitems( 'billpkgnums' => \@billpkgnums, 'setuprecurs' => \@setuprecurs, 'amounts' => \@amounts, + 'apply' => ( $cgi->param('apply') eq 'yes' ), #the credit 'newreasonnum' => scalar($cgi->param('newreasonnum')),