From: František Dvořák <valtri@civ.zcu.cz>
Date: Sun, 21 Apr 2013 01:01:57 +0000 (+0200)
Subject: Sorting platforms in report, update scenarios ids for glue.
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=6504f642318f18cb06f8b0753fb7b341782965e8;p=meta-dashboard.git

Sorting platforms in report, update scenarios ids for glue.
---

diff --git a/matrixgen.pl b/matrixgen.pl
index 2504ca0..f19e609 100755
--- a/matrixgen.pl
+++ b/matrixgen.pl
@@ -177,7 +177,7 @@ foreach my $c (sort keys %components) {
 
 	for my $s ('install', 'minor-upgrade', 'major-upgrade', 'double-upgrade') {
 		if (exists $list{$s}) {
-			for my $p (keys %{$list{$s}{$c}}) {
+			for my $p (sort keys %{$list{$s}{$c}}) {
 				$item = $list{$s}{$c}{$p};
 				if (exists $item->{result} and $item->{result} eq "0") {
 					$cmd = "cat $item->{dir}/report.twiki >> /tmp/report-$c-$s.twiki.part";
@@ -186,7 +186,7 @@ foreach my $c (sort keys %components) {
 			}
 		}
 	}
-	`cat /tmp/report-$c-install.twiki.part /tmp/report-$c-upgrade.twiki.part /tmp/report-$c-minor-upgrade.twiki.part > /tmp/report-$c.twiki 2>/dev/null`;
+	`cat /tmp/report-$c-install.twiki.part /tmp/report-$c-minor-upgrade.twiki.part /tmp/report-$c-major-upgrade.twiki.part /tmp/report-$c-double-upgrade.twiki.part > /tmp/report-$c.twiki 2>/dev/null`;
 	`rm -f /tmp/report-$c-*.twiki.part`;
 }