fix for defect 3546058

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13671 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-08-30 17:10:24 +00:00
parent 70c5242f77
commit 29e60c243e

View File

@ -249,13 +249,15 @@ sub gettab
{
my $tab = xCAT::Table->new($tabn);
(my $ent) = $tab->getAttribs(\%keyhash, keys %{$tabhash{$tabn}});
foreach my $coln (keys %{$tabhash{$tabn}})
{
if ($ent) {
foreach my $coln (keys %{$tabhash{$tabn}})
{
if ($terse > 0) {
$callback->({data => ["" . $ent->{$coln}]});
} else {
$callback->({data => ["$tabn.$coln: " . $ent->{$coln}]});
}
}
}
$tab->close;
}