Changeset 3303 for trunk/gsdl/perllib/classify/AZCompactList.pm

Timestamp:

2002-07-31T04:10:41+12:00 (22 years ago)

Author:

davidb

Message:

Classifier extented to support frequency sort option through -freqsort

Instead of sorting bookshelf nodes alph-numerically, this option
uses the number of books contained at the node for ordering.

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -58 +58 @@
    -removeprefix regex    pattern to remove from metadata before sorting
    -doclevel top|section  (Defaults to top)
+   -freqsort              Sort by node frequency rather than alpha-numeric
    -mingroup N            Minimum num of documents required to form a new group
    -minnesting N          Minimum list size to become a nested list
@@ -78 +79 @@
     my $doclevel = "top";
     my $onlyfirst = 0;
+    my $freqsort = 0;
     my $recopt   = undef;
 
@@ -90 +92 @@
              q^doclevel/.*/top^, \$doclevel,
              q^onlyfirst/.*/0^, \$onlyfirst,
+             q^freqsort/.*/0^, \$freqsort,
              q^recopt/.*/-1^, \$recopt,
 
@@ -127 +130 @@
     $self->{'onlyfirst'} = $onlyfirst;
   
+    if ($freqsort != 0) {
+    $freqsort = 1;
+    }
+    $self->{'freqsort'} = $freqsort;
+
     if ($recopt == -1) {
     $recopt = undef; 
@@ -475 +483 @@
 }
 
+sub frequency_cmp
+{
+    my ($self,$a,$b) = @_;
+
+
+    my $title_a = $self->{'reclassifylist'}->{$a};
+    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;
+
+    if ($a =~ m/^CLASSIFY\.(.*)$/)
+    {
+    my $a_node = $1;
+    my $a_nodeinfo = $self->{'classifiers'}->{$a_node}->{'classifyinfo'};
+    $a_freq = scalar(@{$a_nodeinfo->{'contains'}});
+    }
+    
+    if ($b =~ m/^CLASSIFY\.(.*)$/)
+    {
+    my $b_node = $1;
+    my $b_nodeinfo = $self->{'classifiers'}->{$b_node}->{'classifyinfo'};
+    $b_freq = scalar(@{$b_nodeinfo->{'contains'}});
+    }
+
+##    print STDERR "*** comparing $a_freq <-> $b_freq\n";
+
+    return $b_freq <=> $a_freq;
+}
+
 sub get_classify_info {
     my $self = shift (@_);
@@ -484 +525 @@
     $self->get_reclassify_info();
 
-
-#    my @reclassified_classlist 
-#   = sort {$self->{'reclassifylist'}->{$a} cmp $self->{'reclassifylist'}->{$b};} keys %{$self->{'reclassifylist'}};
-
-    # alpha_numeric_cmp is slower but handles numbers better ...
-    my @reclassified_classlist 
-    = sort { $self->alpha_numeric_cmp($a,$b) } keys %{$self->{'reclassifylist'}};
-
+    my @reclassified_classlist;
+    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
+    {
+#   @reclassified_classlist 
+#       = sort {$self->{'reclassifylist'}->{$a} cmp $self->{'reclassifylist'}->{$b};} keys %{$self->{'reclassifylist'}};
+
+    # alpha_numeric_cmp is slower but handles numbers better ...
+
+    @reclassified_classlist
+        = sort { $self->frequency_cmp($a,$b) } keys %{$self->{'reclassifylist'}};
+
+    }
 
     return $self->splitlist (\@reclassified_classlist);