From dd1eaab04c640a5593f891dae10cd8c6909b81ee Mon Sep 17 00:00:00 2001
From: zhaoertao <ertaozh@cn.ibm.com>
Date: Mon, 10 Mar 2014 19:04:31 -0700
Subject: [PATCH] fix bug 4014: updatenodegroups routine always add all group
 to the node

---
 perl-xCAT/xCAT/TableUtils.pm          | 2 +-
 xCAT-server/lib/xcat/plugins/blade.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/TableUtils.pm b/perl-xCAT/xCAT/TableUtils.pm
index 519f63a98..0a2d9adab 100644
--- a/perl-xCAT/xCAT/TableUtils.pm
+++ b/perl-xCAT/xCAT/TableUtils.pm
@@ -1999,7 +1999,7 @@ sub updatenodegroups {
         }
     }
     my ($ent) = $tabhd->getNodeAttribs($node, ['groups']);
-    my @list = qw(all);
+    my @list = ();
     if (defined($ent) and $ent->{groups}) {
         push @list, split(/,/,$ent->{groups});
     }   
diff --git a/xCAT-server/lib/xcat/plugins/blade.pm b/xCAT-server/lib/xcat/plugins/blade.pm
index 0a6e91568..a9fcc666a 100644
--- a/xCAT-server/lib/xcat/plugins/blade.pm
+++ b/xCAT-server/lib/xcat/plugins/blade.pm
@@ -4423,7 +4423,7 @@ sub process_request {
     if ($request->{mtm} and $request->{mtm} =~ /^(\w{4})/) {
         my $group = xCAT::data::ibmhwtypes::parse_group($request->{mtm});
         if (defined($group)) {
-            xCAT::TableUtils->updatenodegroups($node, $group); 
+            xCAT::TableUtils->updatenodegroups($node, $group.",all"); 
         }
     }
     if ($mac) {