only print values that we have data for.

This commit is contained in:
kestes%tradinglinx.com 2001-02-16 20:07:30 +00:00
parent 84ee8faa3f
commit 8179b96c5f

View File

@ -69,7 +69,7 @@ use TreeData;
use VCDisplay;
$VERSION = ( qw $Revision: 1.4 $ )[1];
$VERSION = ( qw $Revision: 1.5 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -251,7 +251,6 @@ sub status_table_row {
# display all the interesting fields
$table .= "Ticket updated at: ".localtime($time)."<br>\n";
foreach $field (@BTData::DISPLAY_FIELDS) {
# we display all fields even the empty ones, so that users
@ -259,6 +258,9 @@ sub status_table_row {
my ($value) = $rec->{$field};
($value) ||
next;
# $max_length = main::max($max_length , length($value));
$num_rows++;
$table .= (
@ -268,7 +270,17 @@ sub status_table_row {
$value.
"<br>\n".
"");
}
} # foreach $field
($table) ||
next;
$table = (
"Ticket updated at: ".
localtime($time).
"<br>\n".
$table.
"");
# fix the size so that long summaries do not cause our window
# to get too large.