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$/ ) {
             ########################################