rmdef could not remove all the entries in the tables with multiple keys, such as ppcdirect

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7669 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-09-27 13:50:49 +00:00
parent 152777a64e
commit 750a8bbf70

View File

@ -1552,6 +1552,18 @@ sub rmobjdefs
foreach my $key (keys %{$tablehash{$table}{$obj}{$attr}})
{
#multiple keys support
if (defined($keyhash{$key}) && ($keyhash{$key} ne $tablehash{$table}{$obj}{$attr}{$key}))
{
my %tmpkeyhash;
# copy hash
foreach my $hashkey (keys %keyhash)
{
$tmpkeyhash{$hashkey} = $keyhash{$hashkey};
}
push @all_keyhash, \%tmpkeyhash;
#$thistable->delEntries(\@all_keyhash);
}
# ex. $keyhash{node}=c68m3hvp01
$keyhash{$key} = $tablehash{$table}{$obj}{$attr}{$key};
}