557 |
Trace($header) if T(3); |
Trace($header) if T(3); |
558 |
# Display the header line as a header. |
# Display the header line as a header. |
559 |
push @retVal, ShowTitle($cgi, $header); |
push @retVal, ShowTitle($cgi, $header); |
560 |
# Now display the list as table rows. |
# Now display the list as table rows. Note we convert underbars to spaces |
561 |
|
# in the name row to make the table easier to fit into narrow places. |
562 |
for my $entry (@{$list}) { |
for my $entry (@{$list}) { |
563 |
my ($name, $data) = @{$entry}; |
my ($name, $data) = @{$entry}; |
564 |
push @retVal, $cgi->Tr($cgi->td($name), $cgi->td({align => "right"}, $data)); |
push @retVal, $cgi->Tr($cgi->td($name), $cgi->td({align => "right"}, $data)); |