Changeset 18441 for gsdl/trunk/perllib/plugouts

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (3 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); 
 
 }
@@ -660 +660 @@
     my $source_filename = $doc_obj->get_source_filename();
 
-    my $oid_files = { 'src-file' => $source_filename,
+    my $working_info = $self->{'output_info'}; 
+    my $doc_info = $working_info->get_info($oid);
+    my ($doc_file,$index_status) = @$doc_info;
+
+    my $oid_files = { 'doc-file' => $doc_file,
+              'index-status' => $index_status,
+              'src-file' => $source_filename,
               'assoc-files' => [] };
     
@@ -701 +707 @@
 
     my $doc_db_text = "";
+    $doc_db_text .= "<doc-file>$oid_files->{'doc-file'}\n";
+    $doc_db_text .= "<index-status>$oid_files->{'index-status'}\n";
     $doc_db_text .= "<src-file>$oid_files->{'src-file'}\n";
     foreach my $af (@{$oid_files->{'assoc-files'}}) {