Changeset 8220 for trunk/gsdl/perllib/classify.pm

Timestamp:

2004-10-06T05:36:52+13:00 (20 years ago)

Author:

cs025

Message:

Extensions to underpin OAI - e.g. creation of the OAI classifier, adding
modified file dates and ensuring that documents know the parent classifiers
to which they belong.

File:

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

trunk/gsdl/perllib/classify.pm

@@ -29 +29 @@
 
 require util;
+require AllList;
 use gsprintf;
 
@@ -67 +68 @@
     my ($classify_list, $build_dir, $outhandle) = @_;
     my @classify_objects = ();
+    my $classify_number  = 1;
     
     foreach $classifyoption (@$classify_list) {
@@ -113 +115 @@
     die "$@" if $@;
 
+    $classobj->set_number($classify_number);
+    $classify_number ++;
+
         # add this object to the list
     push (@classify_objects, $classobj);
     }
+
+    my ($classobj);
+    eval ("\$classobj = new AllList()");
+    die "$@" if $@;
+    push (@classify_objects, $classobj);
 
     return \@classify_objects;
@@ -135 +145 @@
     
     foreach $classobj (@$classifiers) {
+    my $title = $classobj->{'title'};
     $classobj->classify($doc_obj);
     }
@@ -152 +163 @@
 
     # get each of the classifications
-    foreach $classobj (@$classifiers) {
+    CLASSIFIER: foreach $classobj (@$classifiers) {
     my $tempinfo = $classobj->get_classify_info($gli);
-    $tempinfo->{'classifyOID'} = "CL$next_classify_num";
+    my $classID = $tempinfo->{'classifyOID'};
+
+    if ((defined $classID) && ($classID eq "oai")) {
+        next CLASSIFIER;
+    }
+    $tempinfo->{'classifyOID'} = "CL$next_classify_num" unless defined($tempinfo->{'classifyOID'});
     $next_classify_num++;
     push (@{$classifyinfo->{'contains'}}, $tempinfo);
@@ -188 +204 @@
     $outputtext .= "<parameters>$classifyinfo->{'parameters'}\n" 
         if defined $classifyinfo->{'parameters'};
+    $outputtext .= "<supportsmemberof>$classifyinfo->{'supportsmemberof'}\n"
+        if defined $classifyinfo->{'supportsmemberof'};
     
     my $contains_text = "<contains>";