Display components in alphabetical order.

This commit is contained in:
terry%mozilla.org 1999-06-11 17:39:38 +00:00
Родитель a4dbada4ee
Коммит 916ad5b7ed
2 изменённых файлов: 2 добавлений и 2 удалений

Просмотреть файл

@ -74,7 +74,7 @@ my $colbut1 = $cols - 1;
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()) {
my @row = FetchSQLData();

Просмотреть файл

@ -222,7 +222,7 @@ sub GenerateVersionTable {
push @{$::versions{$p1}}, $v;
$varray{$v} = 1;
}
SendSQL("select value, program from components");
SendSQL("select value, program from components order by value");
while (@line = FetchSQLData()) {
my ($c,$p) = (@line);
if (!defined $::components{$p}) {