Changeset 20775

Timestamp:

2009-10-05T15:48:44+13:00 (15 years ago)

Author:

kjdon

Message:

we need to store a list of original extra associated files, for incremental building. this is different from the resulting associated files for doc.xml. It will be the list of all files in import that comprised the document. added assocaite_source_file and get_source_assoc_files methods to set and get these files

File:

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

gsdl/trunk/perllib/doc.pm

@@ -1003 +1003 @@
 }
 
-
+# the following two methods used to keep track of original associated files
+# for incremental building. eg a txt file used by an item file does not end
+# up as an assoc file for the doc.xml, but it needs to be recorded as a source
+# file for incremental build
+sub associate_source_file {
+    my $self = shift (@_);
+    my ($full_filename) = @_;
+
+    push (@{$self->{'source_assoc_files'}}, $full_filename);
+
+}
+
+sub get_source_assoc_files {
+    my $self = shift (@_);
+
+    return $self->{'source_assoc_files'};
+ 
+
+}
 sub metadata_file {
     my $self = shift (@_);
@@ -1012 +1030 @@
 }
 
+# used for writing out archiveinf-doc.gdb, to list all the metadata files
 sub get_meta_files {
     my $self = shift (@_);