Changeset 316 for trunk/gsdl/perllib/classify/List.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/List.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -20 +20 @@
 
     return bless {
-    'OID'=>"NULL",
     'list'=>$list,
     'metaname' => $options[0]
@@ -34 +33 @@
     $self->{'list'} = [];
     }
-}
-
-sub set_OID {
-    my $self = shift (@_);
-    my ($OID) = @_;
-
-    $self->{'OID'} = $OID;
-}
-
-sub get_OID {
-    my $self = shift (@_);
-    return $self->{'OID'};
 }
 
@@ -73 +60 @@
 }
 
-sub output_classify_info {
+sub get_classify_info {
     my $self = shift (@_);
-    my ($handle) = @_;
 
     my $classifytitle = "List";
     my $contains = "";
+    my @list = ();
     if (defined $self->{'metaname'}) {
     $classifytitle = $self->{'metaname'};
     if (keys %{$self->{'list'}}) {
-        $contains = join (";", sort {$self->{'list'}->{$a} 
-                     cmp $self->{'list'}->{$b};} keys %{$self->{'list'}}) . "\n";
+        @list = sort {$self->{'list'}->{$a} 
+              cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
     }
     } else {
-    if (scalar (@{$self->{'list'}}) > 0) {
-        $contains = join (";", @{$self->{'list'}}) . "\n";
-    }
+    @list = @{$self->{'list'}};
     }
 
-    print $handle "[$self->{'OID'}]\n";
-    print $handle "<doctype>classify\n";
-    print $handle "<hastxt>0\n";
-    print $handle "<classifytype>List\n";
-    print $handle "<Title>$classifytitle\n";
-    print $handle "<contains>$contains\n" if $contains =~ /\w/; 
-    print $handle '-' x 70, "\n";
+    # organise into classification structure
+    my %classifyinfo = ('classifytype'=>'List',
+            'Title'=>$classifytitle,
+            'contains'=>[]);
+    foreach $OID (@list) {
+    push (@{$classifyinfo{'contains'}}, {'OID'=>$OID});
+    }
+
+    return \%classifyinfo;
 }