Patch for bug 271048: Remove confusion when sorting classifications by modifying GetSelectableClassifications in order to always return a sorted list; patch by Albert Ting <altlst@sonic.net>, r=justdave, a=justdave.

2 files changed, 2 insertions, 2 deletions

diff --git a/globals.pl b/globals.pl
index 829417e44..d1e751bb0 100644
--- a/globals.pl
+++ b/globals.pl
@@ -664,7 +664,7 @@ sub GetSelectableProductHash {
 sub GetSelectableClassifications {
     my @selectable_classes = ();
 
-    foreach my $c (keys %::classdesc) {
+    foreach my $c (sort keys %::classdesc) {
         if ( scalar(GetSelectableProducts(0,$c)) > 0) {
            push(@selectable_classes,$c);
         }
diff --git a/query.cgi b/query.cgi
index c22a11471..931913a9f 100755
--- a/query.cgi
+++ b/query.cgi
@@ -280,7 +280,7 @@ $vars->{'product'} = \@products;
 if (Param('useclassification')) {
     my @classifications = ();
 
-    foreach my $c (sort(GetSelectableClassifications())) {
+    foreach my $c (GetSelectableClassifications()) {
         # Create hash to hold attributes for each classification.
         my %classification = (
             'name'       => $c,