Changeset 652

Timestamp:

1999-10-10T21:22:43+13:00 (25 years ago)

Author:

sjboddie

Message:

redesigned browsing support

Location:

trunk/gsdl/perllib

Files:

• classify.pm (modified) (1 diff)
• classify/AZSectionList.pm (modified) (6 diffs)

trunk/gsdl/perllib/classify.pm

@@ -118 +118 @@
     $outputtext .= "<doctype>classify\n";
     $outputtext .= "<hastxt>0\n";
-    $outputtext .= "<classifytype>$classifyinfo->{'classifytype'}\n" if defined $classifyinfo->{'classifytype'};
-    $outputtext .= "<Title>$classifyinfo->{'Title'}\n" if defined $classifyinfo->{'Title'};
-    $outputtext .= "<numleafdocs>$classifyinfo->{'numleafdocs'}\n" if defined $classifyinfo->{'numleafdocs'};
-    print "numleafdocs = $classifyinfo->{'numleafdocs'}\n" if defined $classifyinfo->{'numleafdocs'};
+    $outputtext .= "<childtype>$classifyinfo->{'childtype'}\n" 
+        if defined $classifyinfo->{'childtype'};
+    $outputtext .= "<Title>$classifyinfo->{'Title'}\n" 
+        if defined $classifyinfo->{'Title'};
+    $outputtext .= "<numleafdocs>$classifyinfo->{'numleafdocs'}\n" 
+        if defined $classifyinfo->{'numleafdocs'};
+    $outputtext .= "<thistype>$classifyinfo->{'thistype'}\n" 
+        if defined $classifyinfo->{'thistype'};
+
     
     $outputtext .= "<contains>";

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -96 +96 @@
     }
     if (defined $self->{'list'}->{"$doc_OID.$section"}) {
-        print STDERR "WARNING: AZSectionList::classify called multiple times for $doc_OID.$section\n";
+        print STDERR "WARNING: AZSectionList::classify called multiple times " .
+        "for $doc_OID.$section\n";
     } 
     $self->{'list'}->{"$doc_OID.$section"} = $metavalue;
@@ -105 +106 @@
     my $self = shift (@_);
 
-    my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
+    my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};}
+    keys %{$self->{'list'}};
 
     return $self->splitlist (\@classlist);
@@ -112 +114 @@
 sub get_entry {
     my $self = shift (@_);
-    my ($title, $classifytype) = @_;
+    my ($title, $childtype, $thistype) = @_;
     
     # organise into classification structure
-    my %classifyinfo = ('classifytype'=>$classifytype,
+    my %classifyinfo = ('childtype'=>$childtype,
             'Title'=>$title,
             'contains'=>[]);
+    $classifyinfo{'thistype'} = $thistype 
+    if defined $thistype && $thistype =~ /\w/;
 
     return \%classifyinfo;
@@ -130 +134 @@
 
     # top level
-    my $classifyinfo = $self->get_entry ($self->{'metaname'}, "AZList");
+    my $childtype = "HList";
+    if (scalar (@$classlistref) <= 20) {$childtype = "VList";}
+    my $classifyinfo = $self->get_entry ($self->{'metaname'}, $childtype, "Invisible");
 
     # don't need to do any splitting if there are less than 20 classifications
@@ -147 +153 @@
     if ($title =~ /^[0-9]$/) {$title = '0-9';}
     elsif ($title !~ /^[A-Z]$/) {
-        print STDERR "AZSectionList: WARNING $classification has badly formatted title ($title)\n";
+        print STDERR "AZSectionList: WARNING $classification has badly " .
+        "formatted title ($title)\n";
     }
     $classhash->{$title} = [] unless defined $classhash->{$title};
@@ -167 +174 @@
 
     foreach $subclass (@tmparr) {
-    my $tempclassify = $self->get_entry($subclass, "AZList");
+    my $tempclassify = $self->get_entry($subclass, "VList");
     foreach $subsubOID (@{$classhash->{$subclass}}) {
         push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID});