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

Fix bug 3219114:If delete CEC/Frmae, FSP/BPA should also be deleted from tab

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9140 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-03-24 10:41:58 +00:00
parent 6d306b25a8
commit 412decbd9e
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
View File

@ -3028,6 +3028,8 @@ sub defrm
my $error = 0;
my %rmhash;
my %myhash;
my %childrenhash;
my %typehash;
# process the command line
my $rc = &processArgs;
@ -3256,7 +3258,20 @@ sub defrm
}
}
}
# find the children of the node.
for my $tob (keys %objhash) {
if ( $objhash{$tob} eq 'node' ) {
my $ntype = xCAT::DBobjUtils->getnodetype($tob);
if ( $ntype =~ /^(cec|frame)$/ ) {
my $cnodep = xCAT::DBobjUtils->getchildren($tob);
if ($cnodep) {
my $cnode = join ',', @$cnodep;
$childrenhash{$tob} = $cnode;
$typehash{$tob} = $ntype;
}
}
}
}
# remove the objects
if (xCAT::DBobjUtils->rmobjdefs(\%objhash) != 0)
{
@ -3297,6 +3312,15 @@ sub defrm
$rsp->{data}->[0] = "Object definitions have been removed.";
xCAT::MsgUtils->message("I", $rsp, $::callback);
}
# Give a warning message to the user to remove the children of the node.
for my $tn (keys %objhash) {
if ( $childrenhash{$tn} ) {
my $rsp;
$rsp->{data}->[0] =
"You have removed a $typehash{$tn} node, please remove these nodes belongs to it manually: $childrenhash{$tn} .";
xCAT::MsgUtils->message("W", $rsp, $::callback);
}
}
}
else
{