arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

modification of getHCPsOfNodes()

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6983 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jjhua
2010-08-05 00:38:21 +00:00
parent 7f2f801412
commit e0159f96d7
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
xCAT-server/lib/perl/xCAT/PPC.pm
View File

@@ -1966,16 +1966,16 @@ sub getHCPsOfNodes
my $hcp_hash = $ppctab->getNodeAttribs( $node,[qw(hcp)]);
my $hcp = $hcp_hash->{hcp};
if ( !$hcp) {
#xCAT::MsgUtils->message('E', "Not found the hcp of $node");
$callback->({data=>["Not found the hcp of $node"]});
return undef;
}
}
#print "hcp:\n";
#print Dumper($hcp);
my @h = split(",", $hcp);
$hcps{$node}{hcp} = \@h;
$hcps{$node}{num} = @h;
#xCAT::MsgUtils->message('E', "Not found the hcp of $node");
$callback->({data=>["Not found the hcp of $node"]});
return undef;
}
#print "hcp:\n";
#print Dumper($hcp);
my @h = split(",", $hcp);
$hcps{$node}{hcp} = \@h;
$hcps{$node}{num} = @h;
}
}
#print "in getHCPsOfNodes\n";
#print Dumper(\%hcps);