Bug 1165741: query.cgi's Component list should be sorted case-independent

globau · globau · commit 4b3724caaa98 · 2015-05-18T09:38:28.000+08:00
diff --git a/query.cgi b/query.cgi
@@ -154,7 +154,7 @@ foreach my $product (@selectable_products) {
     $milestones{$_->name} = 1 foreach (@{$product->milestones});
 }
 
-my @components = sort(keys %components);
+my @components = sort { lc($a) cmp lc($b) } keys %components;
 my @versions = sort { vers_cmp (lc($a), lc($b)) } keys %versions;
 my @milestones = sort(keys %milestones);
 

Original file line number	Diff line number	Diff line change
`@@ -154,7 +154,7 @@ foreach my $product (@selectable_products) {`
`154`	`154`	`$milestones{$_->name} = 1 foreach (@{$product->milestones});`
`155`	`155`	`}`
`156`	`156`
`157`		`-my @components = sort(keys %components);`
	`157`	`+my @components = sort { lc($a) cmp lc($b) } keys %components;`
`158`	`158`	`my @versions = sort { vers_cmp (lc($a), lc($b)) } keys %versions;`
`159`	`159`	`my @milestones = sort(keys %milestones);`
`160`	`160`