# Copyright 1999-2003, Fred Steinberg, Brown Bear Software

package Name;
use strict;

sub new {
    my $class = shift;
    my ($prefs, $printObj) = @_;
    my $self = {};
    bless $self, $class;

    my $title       = $prefs->Title;
    my $titleBG     = $prefs->color ('TitleBG');
    my $titleFG     = $prefs->color ('TitleFG');
    my $titleAlign  = $prefs->TitleAlignment     || 'center';
    my $header      = $prefs->Header;
    my $headerAlign = $prefs->HeaderAlignment    || 'center';
    my $headerBG    = $prefs->color ('HeaderBG');
    my $headerFG    = $prefs->color ('HeaderFG');

    # replace newlines w/<br> unless it's got HTML in it
    foreach ($title, $header) {
        next unless $_;
        next if /<[^>]*>/;
        s/\n/<br>/g;
    }

    # If print view, maybe don't show some stuff
    undef $title  if ($printObj and !$printObj->title);
    undef $header if ($printObj and !$printObj->header);

    return $self unless ($title or $header);

    $self->{'html'} = '<table width="100%" border=0 cellspacing=0>';

    my $bg = $titleBG ? "bgcolor=\"$titleBG\"" : '';
    my $fg = $titleFG ? "color=\"$titleFG\""   : '';

    if ($title) {
        $self->{'html'} .= <<END_HTML;
        <tr>
          <td align=$titleAlign $bg>
            <font size=\"+3\" $fg>
              <b>$title</b>
            </font>
          </td>
        </tr>
END_HTML
    }

    # Now add any descriptive header strings there may be
    if ($header) {
        my $bg = $headerBG ? "bgcolor=\"$headerBG\"" : '';
        if ($headerFG) {
            $header = "<font color=\"$headerFG\">$header</font>";
        }
        $self->{'html'} .= "<tr><td align=$headerAlign $bg>$header</td></tr>";
    }

    $self->{'html'} .= "</table>\n";
    $self;
}

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

1;