% $link %><% $invoice %><% $link ? '' : '' %><% "$void$delete$under" %>
<%init>
my( $cust_bill, %opt ) = @_;
my $conf = new FS::Conf;
my $curuser = $FS::CurrentUser::CurrentUser;
my $invoice = emt("Invoice #[_1] (Balance [_2])",$cust_bill->display_invnum,$cust_bill->owed);
my $under = '';
if ( $cust_bill->owed > 0 ) {
$invoice = '' .
emt("Open Invoice #[_1] (Balance [_2])",$cust_bill->display_invnum,$cust_bill->owed) .
'';
if ( $cust_bill->promised_date ) {
$under .= '
'. emt('Payment promised on [_1]',
time2str($opt{'date_format'}, $cust_bill->promised_date));
}
} #if $cust_bill->owed
my $invnum = $cust_bill->invnum;
my $link = $curuser->access_right('View invoices')
? qq!!
: '';
my $void = '';
if ( $cust_bill->closed !~ /^Y/i && $curuser->access_right('Void invoices') ) {
$void =
' ('. include('/elements/popup_link.html',
'label' => emt('void'),
'action' => "${p}misc/void-cust_bill.html?;invnum=".
$cust_bill->invnum,
'actionlabel' => emt('Void Invoice'),
).
')';
}
my $delete = '';
$delete = areyousure_link("${p}misc/delete-cust_bill.html?$invnum",
emt('Are you sure you want to delete this invoice?'),
emt('Delete this invoice from the database completely'),
emt('delete')
)
if ( $opt{'deleteinvoices'} && $curuser->access_right('Delete invoices') );
my $events = '';
#1.9
if ( $cust_bill->num_cust_event
&& ( $curuser->access_right('Billing event reports')
|| $curuser->access_right('View customer billing events')
)
) {
$under .=
qq!
( !.
emt('View invoice events').' )';
}
$under = ''.$under.'' if length($under);
%init>