Changeset 8221 for trunk/gsdl/perllib/classify/List.pm

Timestamp:

2004-10-06T05:38:35+13:00 (20 years ago)

Author:

cs025

Message:

Added AllList to provide a universal list of all documents, which
supports OAI in particular at this early date. Also, changes to
Hierarchy and List to support 'memberof' function, and BasClas
ditto.

File:

• trunk/gsdl/perllib/classify/List.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -208 +208 @@
     $self->{'list'}->{$doc_OID} = $metavalue;
     }
+    my $id = $self->get_number();
+    $doc_obj->add_metadata($doc_obj->get_top_section(), "memberof", "CL$id");
 }
 
@@ -215 +217 @@
     my ($no_thistype) = @_;
     $no_thistype = 0 unless defined $no_thistype;
+    my $memberof = &supports_memberof();
 
     my @list = ();
@@ -231 +234 @@
             'contains'=>[]);
     $classifyinfo{'thistype'} = 'Invisible' unless $no_thistype;
+    # always supports memberof
+    $classifyinfo{'supportsmemberof'} = $memberof;
 
     foreach $OID (@list) {
@@ -246 +251 @@
 }
 
+sub supports_memberof {
+    my $self = shift(@_);
+
+    return "true";
+}
 
 1;