Display components in alphabetical order.

diff --git a/describecomponents.cgi b/describecomponents.cgi
index bce7577d24ab76940f84aa54fdfcda33f7eab3c2..ad3467d62480b84ae6f6690c2d02b504e8001f80 100755 (executable)
--- a/describecomponents.cgi
+++ b/describecomponents.cgi
@@ -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();

diff --git a/globals.pl b/globals.pl
index e1e4067026537d1550fae6071cda12f41f084bfd..94a4f740269732aa56eb5690d5aa72ae60f590dc 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -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}) {