From 69b4010cd48881b6f01400cb5f94639c33c92ed0 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 7 Dec 2011 10:30:49 +0000
Subject: [PATCH] Fix the mistake that lsslp can't write hmc's mtms

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11162 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCdb.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCdb.pm b/perl-xCAT/xCAT/PPCdb.pm
index c1c3ff4de..636f99e90 100644
--- a/perl-xCAT/xCAT/PPCdb.pm
+++ b/perl-xCAT/xCAT/PPCdb.pm
@@ -602,10 +602,10 @@ sub add_ppchcp {
 
     my $hwtype = shift;
     my $values = shift;
-    my @tabs   = qw(ppchcp nodehm nodelist nodetype mac ppc);
+    my @tabs   = qw(ppchcp nodehm nodelist nodetype mac ppc vpd);
     my %db     = ();
 
-    my ($name, $mac) = split ',', $values;
+    my ($name, $mac, $mtm, $sn, $ip) = split ',', $values;
 
     ###################################
     # Open database needed
@@ -641,6 +641,11 @@ sub add_ppchcp {
     # Update mac table
     ###################################
      $db{mac}->setNodeAttribs( $name, {mac=>$mac});
+    ###################################
+    # Update vpd table
+    ###################################
+     $db{vpd}->setNodeAttribs( $name, {mtm=>$mtm});
+     $db{vpd}->setNodeAttribs( $name, {serial=>$sn});
 
     ###################################
     # Update nodelist table