Display "node" in format_xml() - Line #537

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@717 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-03-06 20:25:22 +00:00
parent 3c9018d16f
commit 170edacf2a

View File

@ -21,7 +21,7 @@ my @header = (
["serial-number", "%-15s" ],
["address", "%s\n" ]);
my @attribs = qw(nodetype name id model serial hcp profile parent groups mgt);
my @attribs = qw(nodetype node id model serial hcp profile parent groups mgt);
my %nodetype = (
fsp => $::NODETYPE_FSP,
bpa => $::NODETYPE_BPA,
@ -477,7 +477,7 @@ sub format_stanza {
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^name$/ ) {
if ( /^node$/ ) {
next;
} elsif ( /^nodetype$/ ) {
$d = $nodetype{$d};
@ -537,9 +537,7 @@ sub format_xml {
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^name$/ ) {
next;
} elsif ( /^nodetype$/ ) {
if ( /^nodetype$/ ) {
$d = $nodetype{$d};
} elsif ( /^groups$/ ) {
$d = "$type,all";
@ -600,3 +598,4 @@ sub rscan {