diff --git a/perl-xCAT-2.0/xCAT/PPCdb.pm b/perl-xCAT-2.0/xCAT/PPCdb.pm index acd18805f..306432734 100644 --- a/perl-xCAT-2.0/xCAT/PPCdb.pm +++ b/perl-xCAT-2.0/xCAT/PPCdb.pm @@ -4,6 +4,7 @@ package xCAT::PPCdb; use strict; use Getopt::Long; use xCAT::Table; +use xCAT::GlobalDef; ########################################################################## @@ -57,9 +58,9 @@ sub add_ppc { ########################### my ($k1,$u1); my %nodetype = ( - fsp => "fsp", - bpa => "bpa", - lpar => "lpar,osi" + fsp => $::NODETYPE_FSP, + bpa => $::NODETYPE_BPA, + lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI" ); $k1->{node} = $name; $u1->{groups} = lc($hwtype).",all"; @@ -275,3 +276,4 @@ sub credentials { +