Ref |
Description |
<%= ( $unitprices
? 'Unit Price | '.
'Quantity | '
: ''
)
%>
Amount |
<%=
foreach my $line ( @detail_items ) {
$OUT .=
''.
''. $line->{'ref'}. ' | '.
''. $line->{'description'}. ' | '.
( $unitprices
? ''. $line->{'unit_amount'}. ' | '.
''. $line->{'quantity'}. ' | '
: ''
).
''. $line->{'amount'}. ' | '.
'
'
;
if ( @{$line->{'ext_description'} } ) {
$OUT .= ' | ' : '>';
$OUT .= '';
foreach my $ext_desc ( @{$line->{'ext_description'} } ) {
$OUT .=
''.
' '. $ext_desc. ' | '.
' '
}
$OUT .= ' | |
';
}
}
my $style = 'border-top: 3px solid #000000;';
my $linenum = 0;
foreach my $line ( @total_items ) {
$style .= 'border-bottom: 3px solid #000000;'
if ++$linenum == scalar(@total_items);
$OUT .=
''.
qq( | ).
qq(' : '>' ).
$line->{'total_item'}. ' | '.
qq().
$line->{'total_amount'}. ' | '.
'
'
;
$style='';
}
%>