only print values that we have data for.

This commit is contained in:
kestes%tradinglinx.com 2001-02-16 20:07:30 +00:00
Родитель 80d3c29040
Коммит 4dc08cda9c
1 изменённых файлов: 15 добавлений и 3 удалений

Просмотреть файл

@ -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.