-<% header("Apply Credit", '') %>
+<% include('/elements/header-popup.html', 'Apply Credit') %>
-% if ( $cgi->param('error') ) {
- <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
- <BR><BR>
-% }
+<% include('/elements/error.html') %>
<FORM ACTION="<% $p1 %>process/cust_credit_bill.cgi" METHOD=POST>
</HTML>
<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Apply credit');
+
my($crednum, $amount, $invnum);
if ( $cgi->param('error') ) {
#$cust_credit_bill = new FS::cust_credit_bill ( {
}
grep { $_->owed != 0 }
qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );
-</%init>
+</%init>