Commit d23872a0 authored by terry%mozilla.org's avatar terry%mozilla.org

Display components in alphabetical order.

parent 61972658
...@@ -74,7 +74,7 @@ my $colbut1 = $cols - 1; ...@@ -74,7 +74,7 @@ my $colbut1 = $cols - 1;
print "</tr>"; print "</tr>";
SendSQL("select value, initialowner, initialqacontact, description from components where program = " . SqlQuote($product)); SendSQL("select value, initialowner, initialqacontact, description from components where program = " . SqlQuote($product) . " order by value");
while (MoreSQLData()) { while (MoreSQLData()) {
my @row = FetchSQLData(); my @row = FetchSQLData();
......
...@@ -222,7 +222,7 @@ sub GenerateVersionTable { ...@@ -222,7 +222,7 @@ sub GenerateVersionTable {
push @{$::versions{$p1}}, $v; push @{$::versions{$p1}}, $v;
$varray{$v} = 1; $varray{$v} = 1;
} }
SendSQL("select value, program from components"); SendSQL("select value, program from components order by value");
while (@line = FetchSQLData()) { while (@line = FetchSQLData()) {
my ($c,$p) = (@line); my ($c,$p) = (@line);
if (!defined $::components{$p}) { if (!defined $::components{$p}) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment