From e6c57804ccb56d3fa073d9b392c166b939611db3 Mon Sep 17 00:00:00 2001 From: wanghuaz Date: Tue, 23 Mar 2010 07:29:09 +0000 Subject: [PATCH] Remove -A in hostnames of BPA git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5556 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/PPCdb.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/perl-xCAT/xCAT/PPCdb.pm b/perl-xCAT/xCAT/PPCdb.pm index 23153832d..ac89642fa 100644 --- a/perl-xCAT/xCAT/PPCdb.pm +++ b/perl-xCAT/xCAT/PPCdb.pm @@ -247,6 +247,7 @@ sub update_ppc { if ( $vpdent->{mtm} eq $model && $vpdent->{serial} eq $serial && $vpdent->{side} eq $side ) { $predefined_node = $vpdent->{node}; +print "TEST:prefdefined_node=$predefined_node\n"; if ( $predefined_node =~ /-B$/ ) { $name = $name . "-B"; } @@ -288,9 +289,7 @@ sub update_ppc { if ( $vpdent->{mtm} eq $model && $vpdent->{serial} eq $serial && $vpdent->{side} eq $side ) { $predefined_node = $vpdent->{node}; - if ( $predefined_node =~ /-A$/ ) { - $name = $name . "-A"; - } elsif ( $predefined_node =~ /-B$/ ) { + if ( $predefined_node =~ /-B$/ ) { $name = $name . "-B"; } if (update_node_attribs($hwtype, $type, $name, $id, $model, $serial, $side,