Changeset 17880

Show
Ignore:
Timestamp:
17.11.2008 18:50:07 (11 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r17294 r17880  
    404404    ############################## 
    405405    $self->saveas($doc_obj,$doc_dir); 
    406 ##    $self->archiveinf_gdbm($doc_obj,$doc_dir);  
     406    $self->archiveinf_gdbm($doc_obj,$doc_dir);  
    407407 
    408408} 
     
    707707    chomp($doc_db_text); # remove trailing \n 
    708708 
     709    ## print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n"; 
    709710    &GDBMUtils::gdbmDatabaseSet($doc_db,$oid,$doc_db_text); 
    710711