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.

This commit is contained in:
jocuri%softhome.net 2004-12-05 14:18:59 +00:00
Родитель e5bfc66796
Коммит e7cfde48e7
2 изменённых файлов: 2 добавлений и 2 удалений

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

@ -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);
}

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

@ -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,