Changeset 17880 for gsdl/trunk/perllib

Timestamp:

2008-11-17T18:50:07+13:00 (15 years ago)

Author:

ak19

Message:

The line of code that calls archiveinf_gdbm (which generates the two database files archiveinf-doc and archiveinf-src) is no longer commented out now since it now works on Windows too.

File:

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

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -404 +404 @@
     ##############################
     $self->saveas($doc_obj,$doc_dir);
-##    $self->archiveinf_gdbm($doc_obj,$doc_dir); 
+    $self->archiveinf_gdbm($doc_obj,$doc_dir); 
 
 }
@@ -707 +707 @@
     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";
     &GDBMUtils::gdbmDatabaseSet($doc_db,$oid,$doc_db_text);