Changeset 18528 for gsdl/trunk/perllib/plugouts/BasePlugout.pm

Timestamp:

2009-02-17T15:36:44+13:00 (15 years ago)

Author:

davidb

Message:

OIDmetadata wasn't supported in collect.cfg, but OIDtype was. Now rectified. Also introduced OIDcount as a file saved in the archives folder to help doc.pm use the correct value when working incrementally

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -669 +669 @@
               'assoc-files' => [] };
     
-    my @reverse_lookups = ($source_filename);
+    my %reverse_lookups = ( $source_filename => "1" );
 
     foreach my $assoc_file_rec (@{$doc_obj->get_assoc_files()}) {
@@ -687 +687 @@
         }
 
-        push(@reverse_lookups,$real_filename);
+        $reverse_lookups{$real_filename} = 1;
 
         push(@{$oid_files->{'assoc-files'}},$full_afile);
@@ -715 +715 @@
     chomp($doc_db_text); # remove trailing \n
 
-    ## print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";
+    ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";
     &GDBMUtils::gdbmDatabaseSet($doc_db,$oid,$doc_db_text);
 
-    foreach my $rl (@reverse_lookups) {
+    foreach my $rl (keys %reverse_lookups) {
     &GDBMUtils::gdbmDatabaseAppend($src_db,$rl,"<oid>$oid\n");
     }