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

Timestamp:

2006-09-25T14:17:10+12:00 (18 years ago)

Author:

mdewsnip

Message:

Incremental building and dynamic GDBM updating code, many thanks to John Rowe and John Thompson at DL Consulting Ltd.

File:

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

trunk/gsdl/perllib/classify.pm

@@ -43 +43 @@
 
 $next_classify_num = 1;
+$oid_to_clids = {};
+
 sub load_classifier_for_info {
     my ($classifier) = shift @_;
@@ -302 +304 @@
     $tempinfo->{'classifyOID'} = "CL$next_classify_num" unless defined($tempinfo->{'classifyOID'});
     $next_classify_num++;
+
+        print STDERR "*** outputting information for classifier: $tempinfo->{'classifyOID'}\n";
+
     push (@{$classifyinfo->{'contains'}}, $tempinfo);
     }
@@ -357 +362 @@
         $contains_text .= $tempinfo->{'classifyOID'};
         }
+
+            # Extra code for incremental building.
+            # We need to store a listing of the classifiers each DOI is in
+            my $clids = [];
+            #rint STDERR "==1. Recording reverse lookup for " . $tempinfo->{'classifyOID'} . "==\n";
+            if(defined($oid_to_clids->{$tempinfo->{'classifyOID'}})) {
+              #rint STDERR "Found existing array!\n";
+              $clids = $oid_to_clids->{$tempinfo->{'classifyOID'}};
+            }
+            #rint STDERR "Appended $OID to \"" . join(";", @{$clids}) . "\"\n";
+            push(@{$clids}, $OID);
+            $oid_to_clids->{$tempinfo->{'classifyOID'}} = $clids;
+            #rint STDERR "Result: \"" . join(";", @{$clids}) . "\"\n";
+            
         &print_classify_info ($handle, $tempinfo, $tempinfo->{'classifyOID'},
                   $remove_empty_classifications);
     } elsif (defined ($tempinfo->{'OID'})) {
         $contains_text .= $tempinfo->{'OID'};
-        $mdoffset_text .= $tempinfo->{'offset'}
-        if (defined ($tempinfo->{'offset'}))
-        # note: we don't want to print the contents of the books
+        $mdoffset_text .= $tempinfo->{'offset'} if (defined ($tempinfo->{'offset'}));
+
+            
+              # note: we don't want to print the contents of the books
+              # Extra code for incremental building.
+              # We need to store a listing of the classifiers each DOI is in
+              my $clids = [];
+              #rint STDERR "==2. Recording reverse lookup for " . $tempinfo->{'OID'} . "==\n";
+              if(defined($oid_to_clids->{$tempinfo->{'OID'}})) {
+                #rint STDERR "Found existing array!\n";
+                $clids = $oid_to_clids->{$tempinfo->{'OID'}};
+              }
+              #rint STDERR "Appended $OID to \"" . join(";", @{$clids}) . "\"\n";
+              push(@{$clids}, $OID);
+              $oid_to_clids->{$tempinfo->{'OID'}} = $clids;
+              #rint STDERR "Result: \"" . join(";", @{$clids}) . "\"\n";
+
+
         } else {
         
@@ -373 +407 @@
             $contains_text .= "\".$next_subOID"; 
         }
+
+                # Extra code for incremental building.
+                # We need to store a listing of the classifiers each DOI is in
+                my $clids = [];
+                #rint STDERR "==3. Recording reverse lookup for $OID.$next_subOID==\n";
+                if(defined($oid_to_clids->{$OID . "." . $next_subOID})) {
+                  #rint STDERR "Found existing array!\n";
+                  $clids = $oid_to_clids->{$OID . "." . $next_subOID};
+                }
+                #rint STDERR "Appended $OID to \"" . join(";", @{$clids}) . "\"\n";
+                push(@{$clids}, $OID);
+                $oid_to_clids->{$OID . "." . $next_subOID} = $clids;
+                #rint STDERR "Result: \"" . join(";", @{$clids}) . "\"\n";
         
         &print_classify_info ($handle, $tempinfo, "$OID.$next_subOID",