$ diff ~/src/hns-2.10-pl0/public_html/diary/lib/HNS/Hnf/Command.pm ~/public_html/diary/lib/HNS/Hnf/ > Command.pm.diff
38c38,39
< $Entities{'List'} = ['UL', 'OL', 'DL'];
---
> #  $Entities{'List'} = ['UL', 'OL', 'DL'];
> $Entities{'List'} = ['UL', 'OL', 'DL' , 'TABLE'];
40a42
> 
47d48
< 
357a359
> $CountName = 'p';
360a363,364
> 
> 
892a897,969
> 
> 
> 
> 
> ###################################################
> # Table Commands
> # TABLE
> package HNS::Hnf::Command::TABLE;
> use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
>             $IsBeginSection $CountName $OmittableEnd);
> 
> @ISA = qw(HNS::Hnf::Command::List);
> #  $Template = "<table ><caption>%content</caption>\n";
> #  $Template =  qq(<table %align width="%2"><caption>%content</caption>\n);
> $Template =  qq(<table %align width="%2" border="1"><caption>%content</caption>\n);
> 
> $EndTemplate = "</table>\n";
> $AllowCommands = ['TR', 'TD', 'TH'];
> $NumAttr = 2;
> 
> sub AsHTML ($$$)
> {
> 	my ($self, $start, $params) = @_;
> 	my %loc = (r=>'align="right"', c=>'align="center"', l=>'align="left"' , n=>'' );
> 	my $align = $loc{$self->{attr}->[1]};
> 
> 	$params->{align} = $align;
> 	return $self->SUPER::AsHTML($start, $params);
> }
> 
> 
> 
> # TR
> package HNS::Hnf::Command::TR;
> use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
> 	     $IsBeginSection $CountName $OmittableEnd);
> 
> @ISA = qw(HNS::Hnf::Command::List);
> $Template = q(<tr %content>);
> $EndTemplate = "</tr>\n";
> $OmittableEnd = 1;
> #  $AllowCommands = [$HNS::Hnf::Command::Entities{'Inline'}];
> $AllowCommands = [$HNS::Hnf::Command::Entities{'Flow'}];
> $AllowCommands = ['TD','TH'];
> 
> 
> # TD
> package HNS::Hnf::Command::TD;
> use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
> 	     $IsBeginSection $CountName $OmittableEnd);
> 
> @ISA = qw(HNS::Hnf::Command::Block);
> $Template = q(<td>%content);
> $EndTemplate = "</td>";
> $OmittableEnd = 1;
> $AllowCommands = [$HNS::Hnf::Command::Entities{'Flow'}];
> 
> # TH
> package HNS::Hnf::Command::TH;
> use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
> 	     $IsBeginSection $CountName $OmittableEnd);
> 
> @ISA = qw(HNS::Hnf::Command::Block);
> $Template = q(<th>%content);
> $EndTemplate = "</th>";
> $OmittableEnd = 1;
> $AllowCommands = [$HNS::Hnf::Command::Entities{'Flow'}];
> 
> 
> 
> 
> 
>