projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
append a random number to the iframe name on-the-fly to keep safari from caching...
[freeside.git]
/
httemplate
/
edit
/
cust_credit_bill.cgi
diff --git
a/httemplate/edit/cust_credit_bill.cgi
b/httemplate/edit/cust_credit_bill.cgi
index
249ba31
..
59a74b2
100755
(executable)
--- a/
httemplate/edit/cust_credit_bill.cgi
+++ b/
httemplate/edit/cust_credit_bill.cgi
@@
-1,9
+1,6
@@
-<%
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>
<FORM ACTION="<% $p1 %>process/cust_credit_bill.cgi" METHOD=POST>
@@
-56,6
+53,10
@@
function changed(what) {
</HTML>
<%init>
</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 ( {
my($crednum, $amount, $invnum);
if ( $cgi->param('error') ) {
#$cust_credit_bill = new FS::cust_credit_bill ( {
@@
-88,5
+89,5
@@
my @cust_bill = sort { $a->_date <=> $b->_date
}
grep { $_->owed != 0 }
qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );
}
grep { $_->owed != 0 }
qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );
-</%init>
+</%init>