1 <% $link %><% $pre %>Statement #<% $statementnum %>
2 %# (Balance $ <% $cust_statement->owed %>)
3 <% $post %><% $link ? '</A>' : '' %><% $events %>
6 my( $cust_statement, %opt ) = @_;
8 my $curuser = $FS::CurrentUser::CurrentUser;
10 my($pre, $post) = ('', '');
11 #if ( $cust_statement->owed > 0 ) {
12 # $pre = '<B><FONT SIZE="+1" COLOR="#FF0000">Open ';
13 # $post = '</FONT></B>';
16 my $statementnum = $cust_statement->statementnum;
18 my $link = $curuser->access_right('View invoices')
19 ? qq!<A HREF="${p}view/cust_statement.html?$statementnum">!
24 #if ( $cust_statement->num_cust_event
25 # && ( $curuser->access_right('Billing event reports')
26 # || $curuser->access_right('View customer billing events')
30 # qq!<BR><FONT SIZE="-1"><A HREF="${p}search/cust_event.html?statementnum=!.
31 # $cust_statement->statementnum. '">( View statement events )</A></FONT>';