Improve sort order of branches for new version 10
authorPeter Eisentraut <peter_e@gmx.net>
Tue, 15 Aug 2017 13:58:15 +0000 (09:58 -0400)
committerPeter Eisentraut <peter_e@gmx.net>
Tue, 15 Aug 2017 13:58:15 +0000 (09:58 -0400)
wwwtools/nls-status-page

index f3d4977b7352fa8c24a8465f3a86922d092438d1..3d9c6c1723d461cda3a2e0d6d44c0b7f03d8330a 100755 (executable)
@@ -87,7 +87,9 @@ my %branch_status = (
     '10-branch' => 'translate this now',
 );
 
-my @branches = map { m!table-([^/]+).html$! && $1 } reverse sort glob("$dir/table-*.html");
+my @branches = reverse sort {
+    $a eq 'master' ? 1 : ($b eq 'master' ? -1 : $a <=> $b)
+} map { m!table-([^/]+).html$! && $1 } glob("$dir/table-*.html");
 
 foreach my $b (@branches) {
     my $title;