arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improved XML

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12261 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-04-18 15:52:53 +00:00
parent 4e6128de01
commit 61b78221c6
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
xCAT-server/lib/xcat/plugins/DButils.pm
View File

@ -104,16 +104,16 @@ sub getAllEntries
return;
}
}
# if there are records in the table
my $i=1;
my $row;
foreach my $rec (@$recs){ # for each record from the table
while ((my $attrname,my $value) = each(%$rec)) { # for each hash element
$row="row".$i;
@{$rsp{$row}{$attrname}}= $value;
my %noderecs;
foreach my $rec (@$recs) {
my %datseg=();
foreach my $key (keys %$rec) {
#$datseg{$key} = [$rec->{$key}];
$datseg{$key} = $rec->{$key};
}
push @{$noderecs{"row"}}, \%datseg;
}
$i++;
}
push @{$rsp{"row"}}, @{$noderecs{"row"}};
# for checkin XML created
#my $xmlrec=XMLout(\%rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
$cb->(\%rsp);
@ -151,7 +151,6 @@ sub getNodesAttribs
my %noderecs;
my $rechash = $tab->getNodesAttribs(\@nodes,\@attrs);
foreach my $node (@nodes){
my @cols;
my %datseg=();
$datseg{name} = [$node];
my $recs = $rechash->{$node};