Sorting platforms in report, update scenarios ids for glue.

diff --git a/matrixgen.pl b/matrixgen.pl
index 2504ca0..f19e609 100755 (executable)
--- 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`;
 }