From 9e8f0dd5fb043a2f14402a1820f6fc3a8a7bcb83 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 14 Feb 2008 19:55:23 +0000
Subject: [PATCH] Use GlobalDef $::NODETYPE_XXX - Line #419

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@485 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCscan.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/perl-xCAT-2.0/xCAT/PPCscan.pm b/perl-xCAT-2.0/xCAT/PPCscan.pm
index c88702a7f..b6eb3ade3 100644
--- a/perl-xCAT-2.0/xCAT/PPCscan.pm
+++ b/perl-xCAT-2.0/xCAT/PPCscan.pm
@@ -7,6 +7,7 @@ use Socket;
 use XML::Simple;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::PPCdb;
+use xCAT::GlobalDef;
 
 
 ##############################################
@@ -416,9 +417,9 @@ sub format_stanza {
     my $result;
     my @attribs = qw(nodetype name id model serial hcp profile parent groups mgt);
     my %nodetype = (
-        fsp  => "fsp",
-        bpa  => "bpa",
-        lpar => "lpar,osi"
+        fsp  => $::NODETYPE_FSP,
+        bpa  => $::NODETYPE_BPA,
+        lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI"
     );
 
     #####################################
@@ -545,3 +546,4 @@ sub rscan {
 1;
 
 
+