blob: c0d32df4d93ff306a8313ebf847fa705a6de5c68 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
<% $link %><% $pre %>Invoice #<% $cust_bill->display_invnum %>
(Balance $ <% $cust_bill->owed %>)<% $post %><% $link ? '</A>' : '' %><% $delete %><% $events %>
<%init>
my( $cust_bill, %opt ) = @_;
my $conf = new FS::Conf;
my $curuser = $FS::CurrentUser::CurrentUser;
my($pre, $post) = ('', '');
if ( $cust_bill->owed > 0 ) {
$pre = '<B><FONT SIZE="+1" COLOR="#FF0000">Open ';
$post = '</FONT></B>';
}
my $invnum = $cust_bill->invnum;
my $link = $curuser->access_right('View invoices')
? qq!<A HREF="${p}view/cust_bill.cgi?$invnum">!
: '';
my $delete = '';
if ( $opt{'deleteinvoices'} && $curuser->access_right('Delete invoices') ) {
$delete = qq! (<A HREF="javascript:areyousure('!.
qq!${p}misc/delete-cust_bill.html?$invnum',!.
qq!'Are you sure you want to delete this invoice?')"!.
qq! TITLE="Delete this invoice from the database completely"!.
qq!>delete</A>)!;
}
my $events = '';
#1.9
if ( $cust_bill->num_cust_event
&& ( $curuser->access_right('Billing event reports')
|| $curuser->access_right('View customer billing events')
)
) {
$events =
qq!<BR><FONT SIZE="-1"><A HREF="${p}search/cust_event.html?invnum=$invnum!.
'">( View invoice events )</A></FONT>';
}
#
</%init>
|