From 4bbc896185988b5c8c0e99f586a6360451b034ad Mon Sep 17 00:00:00 2001
From: zhanx <zhanx@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 27 Jul 2009 19:35:44 +0000
Subject: [PATCH] Additional code change for bug  2824599   lsslp should add
 more attribute in DB for FSP/HMC

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3883 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCdb.pm               | 3 +--
 xCAT-server/lib/xcat/plugins/lsslp.pm | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCdb.pm b/perl-xCAT/xCAT/PPCdb.pm
index 25ecdf1c1..08454d0ad 100644
--- a/perl-xCAT/xCAT/PPCdb.pm
+++ b/perl-xCAT/xCAT/PPCdb.pm
@@ -174,10 +174,9 @@ sub updategroups {
 sub add_ppchcp {
 
     my $hwtype = shift;
-    my $data   = shift;
+    my $name   = shift;
     my @tabs   = qw(ppchcp nodehm nodelist nodetype);
     my %db     = ();
-    my $name   = @$data[4];
 
     ###################################
     # Open database needed
diff --git a/xCAT-server/lib/xcat/plugins/lsslp.pm b/xCAT-server/lib/xcat/plugins/lsslp.pm
index e52360fee..1a8f593bb 100644
--- a/xCAT-server/lib/xcat/plugins/lsslp.pm
+++ b/xCAT-server/lib/xcat/plugins/lsslp.pm
@@ -1550,7 +1550,7 @@ sub xCATdB {
             xCAT::PPCdb::add_ppc( lc($type), [$values] );
         }
         elsif ( $type =~ /^(HMC|IVM)$/ ) {
-            xCAT::PPCdb::add_ppchcp( lc($type), $data );
+            xCAT::PPCdb::add_ppchcp( lc($type), $name );
         }
         elsif ( $type =~ /^FSP$/ ) {
             ########################################