File Coverage

blib/lib/WE_Frontend/Plugin/TextTable.pm

Criterion	Covered	Total	%
statement	12	92	13.0
branch	0	36	0.0
condition	0	13	0.0
subroutine	4	8	50.0
pod	2	4	50.0
total	18	153	11.7

# -*- perl -*-

#
# $Id: TextTable.pm,v 1.10 2004/02/06 16:51:08 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2003 Slaven Rezic.
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License, see the file COPYING.

#
# Mail: [e-mail]
# WWW:  http://we-framework.sourceforge.net
#

package WE_Frontend::Plugin::TextTable;
use base qw(Template::Plugin);

use HTML::Entities;

use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/);

sub fixeol ($);

=head1 NAME

WE_Frontend::Plugin::TextTable - format a textual table description to HTML

=head1 SYNOPSIS

    my $t = Template->new({PLUGIN_BASE => "WE_Frontend::Plugin"});

    [% USE TextTable %]
    [% TextTable.out(tabledef) %]

=head1 DESCRIPTION

Format a textual table description into HTML. See also the "table"
definitions in F in the web.editor
distribution.

=head2 METHODS

=over

=cut

sub new {
    my($class, $context) = @_;
    my $self = {Context => $context};
    bless $self, $class;
}

=item out($tabledef)

Format and output the given table definition.

=cut

sub out {
    my($self, $tabledef) = @_;
    my $type  = $tabledef->{type};
    if ($type ne "table") {
	warn "Element type is `$type', expected `table'";
    }
    my $title           = fixeol $tabledef->{title};
    my $css             = fixeol $tabledef->{css};
    my $sep             = quotemeta fixeol $tabledef->{sep};
    my $head            = fixeol $tabledef->{tablehead};
    my $head_align      = fixeol $tabledef->{tablehead_align};
    my $head_is_html    = $tabledef->{tablehead_ishtml};
    my $subhead         = fixeol $tabledef->{tablesubhead};
    my $subhead_align   = fixeol $tabledef->{tablesubhead_align};
    my $subhead_is_html = $tabledef->{tablesubhead_ishtml};
    my $text_align      = fixeol $tabledef->{tabletext_align};
    my $text            = fixeol $tabledef->{tabletext};
    my @rows = split /\n/, $text;
    my $out = "
    if (defined $css && $css ne "") {
	$out .= " class='$css'";
    }
    $out .= ">\n";
    if (defined $title && $title ne "") {
	$out .= "
    }
    for my $def ([$head,    $head_is_html,    $head_align],
		 [$subhead, $subhead_is_html, $subhead_align]
		) {
	my($h, $is_html, $align) = @$def;
	$align = "" if !defined $align;
	my @style = map {
	    my $style = parse_align($_);
	    if ($style ne "") {
		$style = " style='" . $style . "'";
	    }
	    $style;
	} split $sep, $align;

	if (defined $h && $h ne "") {
	    $out .= "
	    if ($is_html) {
		$out .= $h;
	    } else {
		my @cols = split $sep, $h;
		my $col_i = 0;
		$out .= join "", map { my $s = defined $_ ? $_ : "";
				       my $style = $style[$col_i++] || "";
				       "" . HTML::Entities::encode($s) . "" } @cols;
	    }
	    $out .= "
	}
    }

    $text_align = "" if !defined $text_align;
    my @td_style = map {
	my $style = parse_align($_);
	if ($style ne "") {
	    $style = " style='" . $style . "'";
	}
	$style;
    } split $sep, $text_align;

    for my $row (@rows) {
	$out .= "
	my @cols = split $sep, $row;
	my $col_i = 0;
	$out .= join "", map { my $s = defined $_ ? $_ : "";
			       my $style = $td_style[$col_i++] || "";
			       "" . HTML::Entities::encode($s) . "
	$out .= "
    }
    $out .= "