%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
}
my $class = $column->{class} ? $m->interp->apply_escapes($column->{class}, 'h') : 'collection-as-table';
- $m->out(qq{<td class="$class" });
my %attrs;
foreach my $attr (qw(style align)) {
);
}
+ $m->callback(
+ CallbackName => 'EachField',
+ Record => $record,
+ Format => \@Format,
+ Column => $column,
+ Classes => \$class,
+ Align => \$attrs{align},
+ Style => \$attrs{style},
+ Colspan => \$attrs{colspan},
+ Out => \@out,
+ );
+
+ $m->out(qq{<td class="$class" });
+
$m->out( $_ .'="'. $m->interp->apply_escapes( $attrs{$_} => 'h' ) .'"' )
foreach grep $attrs{$_}, qw(align style colspan);