Changeset 3529 for trunk/gsdl/perllib

Timestamp:

2002-11-14T16:36:21+13:00 (22 years ago)

Author:

jrm21

Message:

fixed oversight where alpha_numeric_cmp was no longer being called when
sorting the metadata ;)

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (5 diffs)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -492 +492 @@
     my $title_b = $self->{'reclassifylist'}->{$b};
 
-#    print STDERR "*** title a = $title_a\n";
-#    print STDERR "*** title b = $title_b\n";
-
     my $a_freq = 1;
     my $b_freq = 1;
@@ -512 +509 @@
     }
 
-##    print STDERR "*** comparing $a_freq <-> $b_freq\n";
-
     return $b_freq <=> $a_freq;
 }
@@ -529 +524 @@
     if ($self->{'freqsort'})
     {
-##  print STDERR "***** Away to start freq sort\n";
-
     @reclassified_classlist 
         = sort { $self->frequency_cmp($a,$b) } keys %{$self->{'reclassifylist'}};
     # supress sub-grouping by alphabet
     map { $self->{'reclassifylist'}->{$_} = "A".$self->{'reclassifylist'}; } keys %{$self->{'reclassifylist'}};
-
     }
     else
@@ -542 +534 @@
 #       = sort {$self->{'reclassifylist'}->{$a} cmp $self->{'reclassifylist'}->{$b};} keys %{$self->{'reclassifylist'}};
 
-    # alpha_numeric_cmp is slower but handles numbers better ...
+    # alpha_numeric_cmp is slower than "cmp" but handles numbers better ...
 
     @reclassified_classlist
-        = sort { $self->frequency_cmp($a,$b) } keys %{$self->{'reclassifylist'}};
+        = sort { $self->alpha_numeric_cmp($a,$b) } keys %{$self->{'reclassifylist'}};
 
     }
@@ -605 +597 @@
         && defined $self->{'classifiers'}->{$1}) 
         {
-###     print STDERR "*** subOID = $subOID\n";
-
                 push (@{$classifyinfo->{'contains'}}, 
               $self->{'classifiers'}->{$1}->{'classifyinfo'});