\n);
push @$tbl,qq();
push @$tbl,qq();
push @$tbl,qq(| );
push @$tbl,qq();
push @$tbl,qq($link);
push @$tbl,qq($subject);
push @$tbl,qq();
push @$tbl,qq();
push @$tbl,qq( | );
push @$tbl,qq();
push @$tbl,qq();
push @$tbl,qq($dispdate);
push @$tbl,qq();
push @$tbl,qq( | );
push @$tbl,qq( \n);
push @table,qq( |
\n);
} # end sub showListing
sub buildDetails
{
my $ptr = shift;
my $tbl = shift;
my $subject = $ptr->{news_title};
my $date = $ptr->{date_created};
my $dispdate = substr($date,5,2)."-".substr($date,8,2)."-".substr($date,0,4)." ".substr($date,11,8);
my $body = $ptr->{news_content_formatted};
push @$tbl,qq();
push @$tbl,qq(\n);
push @$tbl,qq();
push @$tbl,qq();
push @$tbl,qq(| );
push @$tbl,qq(\n);
push @$tbl,qq($body\n);
push @$tbl,qq(\n);
push @$tbl,qq( | );
push @$tbl,qq( \n);
push @table,qq( |
\n);
} # end sub showDetails