Changeset 316 for trunk/gsdl/perllib/classify/AZList.pm

Timestamp:

1999-06-30T15:35:39+12:00 (25 years ago)

Author:

sjboddie

Message:

• changed the way classifiers work

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (5 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -11 +11 @@
 
     return bless {
-    'OID'=>"NULL",
     'list'=>{},
     'metaname' => $options[0]
@@ -23 +22 @@
 }
 
-sub set_OID {
-    my $self = shift (@_);
-    my ($OID) = @_;
-
-    $self->{'OID'} = $OID;
-}
-
-sub get_OID {
-    my $self = shift (@_);
-    return $self->{'OID'};
-}
-
 sub classify {
     my $self = shift (@_);
@@ -45 +32 @@
     # if this document doesn't contain the metadata element we're
     # sorting by we won't include it in this classification
-
     if (defined $metavalue) {
     if ($self->{'metaname'} eq 'Creator') {
@@ -59 +45 @@
 }
 
-sub output_classify_info {
-    my $self = shift (@_);
-    my ($handle) = @_;
+sub get_classify_info {
+    my $self = shift (@_);
 
     my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
     my $subclasses = $self->splitlist (\@classlist);
 
+    my ($classifyinfo);
+
     if (scalar @$subclasses) {
-    
-    my @contents = ();
-    map { push (@contents, "\".$_->[1]"); } @$subclasses;
-    # write out top level entry
-    $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'}, \@contents, "AZList");
-
-    # write out the entries for each sub-classification
-    map {$self->output_entry ($handle, "$self->{'OID'}.$_->[1]", $_->[0], $_->[2]);} @$subclasses;
+    $classifyinfo = $self->get_entry ($self->{'metaname'}, "AZList");
+    foreach $subclass (@$subclasses) {
+        my $tempclassify = $self->get_entry($subclass->[0], "AZList");
+        foreach $subsubOID (@{$subclass->[2]}) {
+        push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID});
+        }
+        push (@{$classifyinfo->{'contains'}}, $tempclassify);
+    }
  
     } else {
-
-    # write out top level entry
-    $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'}, \@classlist, "AZList");
-    }
+    $classifyinfo = $self->get_entry($self->{'metaname'}, "AZList");
+    foreach $subOID (@classlist) {
+        push (@{$classifyinfo->{'contains'}}, {'OID'=>$subOID});
+    }
+    }
+
+    return $classifyinfo;
+}
+
+sub get_entry {
+    my $self = shift (@_);
+    my ($title, $classifytype) = @_;
+    
+    # organise into classification structure
+    my %classifyinfo = ('classifytype'=>$classifytype,
+            'Title'=>$title,
+            'contains'=>[]);
+
+    return \%classifyinfo;
 }
 
@@ -199 +201 @@
 }
 
-sub output_entry {
-    my $self = shift (@_);
-    my ($handle, $OID, $title, $contentsref, $classifytype) = @_;
-    
-    print $handle "[$OID]\n";
-    print $handle "<doctype>classify\n";
-    print $handle "<hastxt>0\n";
-    print $handle "<Title>$title\n";
-    print $handle "<classifytype>$classifytype\n" if defined $classifytype;
-    if (scalar @$contentsref) {
-    print $handle "<contains>", join (";", @$contentsref), "\n";
-    }
-    print $handle '-' x 70, "\n";
-}
-
 # format an english name for sorting
 # i.e. convert to lowercase, put surname before