Data::Tabular::Output::HTML - Data::Tabular::Output::HTML documentation

Data-Tabular documentation Contained in the Data-Tabular distribution.

Index

Code Index:

NAME

Top

Data::Tabular::Output::HTML

SYNOPSIS

Top

This object is used by Data::Tabular to render an HTML table.

DESCRIPTION

Top

This object takes a Table and an output object and return an HTML table.

 my $table = Data::Tabular::Output::HTML->new(table => $t, output => $o);
 print $table;

Note that if the object is used as a string the table is rendered.

CONSTRUCTOR

Top

new

Normally this object is constructed by the Data::Tabular::html method.

It requires two arguments: a table and and an output object.

METHODS

Top

html

This method returns a string that is an HTML table.

AUTHOR

Top

"G. Allen Morris III" <gam3@gam3.net>

Data-Tabular documentation Contained in the Data-Tabular distribution. 
# Copyright (C) 2003-2007, G. Allen Morris III, all rights reserved

use strict;

package Data::Tabular::Output::HTML;

use base 'Data::Tabular::Output';

use Carp qw (croak);

use overload '""' => \&_render;

sub new
{
    my $class = shift;
    my $args = { @_ };

    my $self = bless {}, $class;

    die 'No table' unless $args->{table};
    $self->{table} = $args->{table};
    die 'No output config' unless $args->{output};
    die 'No output config' unless ref $args->{output};
    die 'No output config' unless $args->{output}->isa('Data::Tabular::Config::Output');
    $self->{output} = $args->{output};

    $self;
}

sub _render
{
    my $self = shift;
    $self->html;
}

{
    package Data::Tabular::_Type::Text;

    sub new
    {
        my $class = shift;

	bless {
	    @_
	}, $class;
    }

    sub html_text
    {
	my $self = shift;

	sprintf($self->{format}, $self->{data});
    }
}

sub html
{
    my $self = shift;

    my $output = $self->output;

    my $attributes = $output->html_attribute_string;

    $attributes .= '';
    my $ret = "<table$attributes>\n";

    $ret .= " <colgroup>\n";
    for my $col ($self->columns()) {
        my $attribute = $col->align();

        $ret .= "  <col$attribute/>\n";
    }
    $ret .= " </colgroup>\n";
    my @table;

    for my $row ($self->rows()) {
	my $attribute = $row->html_attribute_string();
        push(@table, " <tr$attribute>\n");

	for my $cell ($row->cells()) {
	    my $data = $cell->data;
	    my $type = $self->output->type($cell->column_name);
            unless (ref $data) {
warn "ASDF";
		$data = Data::Tabular::Type::Text->new(
		    data => '[' . $data . ']',
		    format => $self->output->get_column_format($cell->column_name),
		);
	    }

	    my $attributes = '';
	    if (my $cs = $cell->colspan) {
	        if ($cs > 1) {
		    $attributes.= sprintf(' colspan="%s"', $cs);
		}
	    }

	    if ($type eq 'dollar' or $type eq 'number') {
	        $attributes.= ' align="right"';
	    }

	    my $hdr = $cell->hdr;
$hdr = 0;
	    if ($hdr) {
		push(@table, "  <th$attributes>");
	    } else {
		push(@table, "  <td$attributes>");
	    }
            my $cell_data = $data->html_text;

	    if (length($cell_data) == 0) {
		$cell_data = '<br>';
	    }
            push(@table, $cell_data);
	    if ($hdr) {
		push(@table, "</th>\n");
	    } else {
		push(@table, "</td>\n");
	    }
	}
	push(@table, " </tr>\n");
    }
    $ret .= join('', @table);
    $ret .= "</table>\n";
    $ret;
}

1;
__END__