'count_query' => $count_query,
'count_addl' => [ '$%.2f total paid', ],
'header' =>
- [ qw(Payment Amount Date), 'Contact name', 'Company', ],
+ [ qw(Payment Amount Date), 'Cust #', 'Contact name',
+ 'Company', ],
'fields' => [
sub {
my $cust_pay = shift;
},
sub { sprintf('$%.2f', shift->paid ) },
sub { time2str('%b %d %Y', shift->_date ) },
+ 'custnum',
sub { my $cust_main = shift->cust_main;
$cust_main->get('last'). ', '. $cust_main->first;
},
$cust_main->company;
},
],
+ 'align' => 'lrrrll',
'links' => [
'',
'',
'',
$link,
$link,
+ $link,
],
)
%>
my(%opt) = @_;
+ my %align = (
+ 'l' => 'left',
+ 'r' => 'right',
+ 'c' => 'center',
+ ' ' => '',
+ '.' => '',
+ );
+ $opt{align} = [ map $align{$_}, split(//, $opt{align}) ],
+ unless !$opt{align} || ref($opt{align});
+
if ( ref($opt{'query'}) ) {
}
</TR>
<% foreach my $row ( @$rows ) { %>
<TR>
- <% if ( $opt{'fields'} ) { %>
- <% my $links = $opt{'links'} ? [ @{$opt{'links'}} ] : ''; %>
- <% foreach my $field ( @{$opt{'fields'}} ) { %>
- <% my $a = ''; %>
- <% if ( $links ) {
+ <% if ( $opt{'fields'} ) {
+ my $links = $opt{'links'} ? [ @{$opt{'links'}} ] : '';
+ my $aligns = $opt{'align'} ? [ @{$opt{'align'}} ] : '';
+ foreach my $field ( @{$opt{'fields'}} ) {
+ my $align = $aligns ? shift @$aligns : '';
+ $align = " ALIGN=$align" if $align;
+ my $a = '';
+ if ( $links ) {
my $link = shift @$links;
$link = &{$link}($row) if ref($link) eq 'CODE';
if ( $link ) {
}
%>
<% if ( ref($field) eq 'CODE' ) { %>
- <TD><%= $a %><%= &{$field}($row) %><%= $a ? '</A>' : '' %></TD>
+ <TD<%= $align %>><%= $a %><%= &{$field}($row) %><%= $a ? '</A>' : '' %></TD>
<% } else { %>
- <TD><%= $a %><%= $row->$field() %><%= $a ? '</A>' : '' %></TD>
+ <TD<%= $align %>><%= $a %><%= $row->$field() %><%= $a ? '</A>' : '' %></TD>
<% } %>
<% } %>
<% } else { %>