Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/classify/SectionList.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/classify/SectionList.pm (modified) (2 diffs)

branches/New_Config_Format-branch/gsdl/perllib/classify/SectionList.pm

@@ -27 +27 @@
 # (excluding top level) rather than just top level document 
 # itself
-# options are:
-# metadata=Metaname -- (optional) all documents with Metaname metadata
-#                      will be included in list. if not included all documents
-#                      will be included in list.
-# sort=Meta         -- (optional) sort documents in list alphabetically by
-#                      Meta. by default it will sort by Metaname, if neither
-#                      are set documents will be in build (random) order.
-#                      Meta may be Filename to sort by original filename or
-#                      nosort to force not to sort
-# title=Title       -- (optional) the title field for this classification.
-#                      if not included title field will be Metaname. 
-#                      if metadata is also not included title will be 'List'
 
 package SectionList;
 
+use List;
 use sorttools;
 
-sub new {
-    my ($class, @options) = @_;
-
-    my $list = [];
-    my ($metaname, $title, $sortname);
-
-    foreach $option (@options) {
-    if ($option =~ /^metadata=(.*)$/i) {
-        $metaname = $1;
-        $list = {};
-    } elsif ($option =~ /^title=(.*)$/i) {
-        $title = $1;
-    } elsif ($option =~ /^sort=(.*)$/i) {
-        $sortname = $1;
-    }
-    }
-
-    if (!defined $title) {
-    if (defined $metaname) {
-        $title = $metaname;
-    } else {
-        $title = 'List';
-    }
-    }
-
-    if (defined $sortname && $sortname =~ /^nosort$/i) {
-    $sortname = undef;
-    } elsif (!defined $sortname && defined $metaname) {
-    $sortname = $metaname;
-    }
-
-    return bless {
-    'list'=>$list,
-    'metaname' => $metaname,
-    'title' => $title,
-    'sortname' => $sortname
-    }, $class;
-}
-
-sub init {
-    my $self = shift (@_);
-
-    if (defined $self->{'sortname'}) {
-    $self->{'list'} = {};
-    } else {
-    $self->{'list'} = [];
-    }
+sub BEGIN {
+    @ISA = ('List');
 }
 
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj,@options) = @_;
+    my ($doc_obj, @options) = @_;
     
     my $thissection = undef;
@@ -175 +119 @@
 }
 
-sub get_classify_info {
-    my $self = shift (@_);
-
-    my @list = ();
-    if (defined $self->{'sortname'}) {
-    if (keys %{$self->{'list'}}) {
-        @list = sort {$self->{'list'}->{$a} 
-              cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
-    }
-    } else {
-    @list = @{$self->{'list'}};
-    }
-
-    # organise into classification structure
-    my %classifyinfo = ('thistype'=>'Invisible',
-            'childtype'=>'VList',
-            'Title'=>$self->{'title'},
-            'contains'=>[]);
-    foreach $OID (@list) {
-    push (@{$classifyinfo{'contains'}}, {'OID'=>$OID});
-    }
-
-    return \%classifyinfo;
-}
-
-
 1;