%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
%# <jesse@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%#
%# You should have received a copy of the GNU General Public License
%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/copyleft/gpl.html.
+%# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%#
%#
%# CONTRIBUTION SUBMISSION POLICY:
$Page => undef
$maxitems => undef
</%ARGS>
-<tr class="collection-as-table">
+<TR class="collection-as-table">
<%perl>
my %generic_query_args = ( Query => $Query, Rows => $Rows, Page => $Page, Format => $FormatString );
my $item = 0;
foreach my $col (@Format) {
$item++;
- if ( $col->{title} && ($col->{title} eq 'NEWLINE') ) {
+ if ( $col->{title} eq 'NEWLINE' ) {
while ( $item < $maxitems ) {
$m->out(qq{<th class="collection-as-table"> </th>\n});
$item++;
}
$item = 0;
- $m->out(qq{</tr>\n<tr class="collection-as-table">});
+ $m->out(qq{</TR>\n<TR class="collection-as-table">});
}
else {
- $m->out('<th class="collection-as-table">');
- my $title = $col->{title} || '';
+ $m->out('<TH class="collection-as-table">');
+ my $title = $col->{title};
$title =~ s/^__(.*)__$/$1/o;
$title = (
$m->comp(
else {
$m->out( loc($title) );
}
- $m->out('</th>');
+ $m->out('</TH>');
}
}
</%perl>
-</tr>
+</TR>