Changeset 8221

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.

Location:

trunk/gsdl/perllib/classify

Files:

• AllList.pm (added)
• BasClas.pm (modified) (3 diffs)
• Hierarchy.pm (modified) (3 diffs)
• List.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -220 +220 @@
 
     $self->{'outhandle'} = STDERR;
+    $self->{'idnum'} = -1;
     
     $self->{'option_list'} = [ $options ];
@@ -248 +249 @@
 sub init {
     my $self = shift (@_);
+
+    $self->{'supportsmemberof'} = &supports_memberof();
+}
+
+sub set_number {
+    my $self = shift (@_);
+    my ($id)   = @_;
+    $self->{'idnum'} = $id;
+}
+
+sub get_number {
+    my $self = shift (@_);
+    return $self->{'idnum'};
 }
 
@@ -263 +277 @@
     my $outhandle = $self->{'outhandle'};
     &gsprintf($outhandle, "BasClass::get_classify_info {common.must_be_implemented}\n");
+}
+
+sub supports_memberof {
+    my $self = shift(@_);
+
+    return "false";
 }
 

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -201 +201 @@
         push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, 
           [$doc_OID, $sortmeta]);
+        my $localid = $self->{'descriptorlist'}->{$metaelement};
+        my $classid = $self->get_number();
+
+        $doc_obj->add_metadata($doc_obj->get_top_section(), "memberof", "CL$classid.$localid");
     }
     }
@@ -234 +238 @@
 }
 
+sub supports_memberof {
+    my $self = shift(@_);
+
+    return "true";
+}
+
 sub get_OID_entry {
     my $self = shift (@_);
@@ -266 +276 @@
     my $self = shift (@_);
     my ($title, $childtype, $thistype) = @_;
-
+    my $memberof = &supports_memberof();
+    
     # organise into classification structure
     my %classifyinfo = ('childtype'=>$childtype,
             'Title'=>$title,
+            'supportsmemberof'=>$memberof,
             'contains'=>[]);
     $classifyinfo{'thistype'} = $thistype 

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;