Changeset 20775


Ignore:
Timestamp:
10/05/09 15:48:44 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/doc.pm

    r20417 r20775  
    10031003}
    10041004
    1005 
     1005# the following two methods used to keep track of original associated files
     1006# for incremental building. eg a txt file used by an item file does not end
     1007# up as an assoc file for the doc.xml, but it needs to be recorded as a source
     1008# file for incremental build
     1009sub associate_source_file {
     1010    my $self = shift (@_);
     1011    my ($full_filename) = @_;
     1012
     1013    push (@{$self->{'source_assoc_files'}}, $full_filename);
     1014
     1015}
     1016
     1017sub get_source_assoc_files {
     1018    my $self = shift (@_);
     1019
     1020    return $self->{'source_assoc_files'};
     1021 
     1022
     1023}
    10061024sub metadata_file {
    10071025    my $self = shift (@_);
     
    10121030}
    10131031
     1032# used for writing out archiveinf-doc.gdb, to list all the metadata files
    10141033sub get_meta_files {
    10151034    my $self = shift (@_);
Note: See TracChangeset for help on using the changeset viewer.