Patch for bug 271048: Remove confusion when sorting classifications by modifying...

diff --git a/globals.pl b/globals.pl
index 829417e44000fe9af9a260407de1225d21da0e6a..d1e751bb0dac7be8a54e9182e0ed27a2439d3a4d 100644 (file)
--- 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 c22a11471fe06c59b62919ce5a890c5e10afc640..931913a9f0be37a3f7308a9347093875c2b90499 100755 (executable)
--- 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,