Changeset 3529
- Timestamp:
- 2002-11-14T16:36:21+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r3413 r3529 492 492 my $title_b = $self->{'reclassifylist'}->{$b}; 493 493 494 # print STDERR "*** title a = $title_a\n";495 # print STDERR "*** title b = $title_b\n";496 497 494 my $a_freq = 1; 498 495 my $b_freq = 1; … … 512 509 } 513 510 514 ## print STDERR "*** comparing $a_freq <-> $b_freq\n";515 516 511 return $b_freq <=> $a_freq; 517 512 } … … 529 524 if ($self->{'freqsort'}) 530 525 { 531 ## print STDERR "***** Away to start freq sort\n";532 533 526 @reclassified_classlist 534 527 = sort { $self->frequency_cmp($a,$b) } keys %{$self->{'reclassifylist'}}; 535 528 # supress sub-grouping by alphabet 536 529 map { $self->{'reclassifylist'}->{$_} = "A".$self->{'reclassifylist'}; } keys %{$self->{'reclassifylist'}}; 537 538 530 } 539 531 else … … 542 534 # = sort {$self->{'reclassifylist'}->{$a} cmp $self->{'reclassifylist'}->{$b};} keys %{$self->{'reclassifylist'}}; 543 535 544 # alpha_numeric_cmp is slower but handles numbers better ...536 # alpha_numeric_cmp is slower than "cmp" but handles numbers better ... 545 537 546 538 @reclassified_classlist 547 = sort { $self-> frequency_cmp($a,$b) } keys %{$self->{'reclassifylist'}};539 = sort { $self->alpha_numeric_cmp($a,$b) } keys %{$self->{'reclassifylist'}}; 548 540 549 541 } … … 605 597 && defined $self->{'classifiers'}->{$1}) 606 598 { 607 ### print STDERR "*** subOID = $subOID\n";608 609 599 push (@{$classifyinfo->{'contains'}}, 610 600 $self->{'classifiers'}->{$1}->{'classifyinfo'});
Note:
See TracChangeset
for help on using the changeset viewer.