From 768b72850d3f3292506b1ddd1bc7ced794b32883 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Sun, 5 Dec 2004 22:18:59 +0000
Subject: 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.

---
 globals.pl | 2 +-
 query.cgi  | 2 +-
 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,
-- 
cgit v1.2.3-24-g4f1b