Changeset 20775

Show
Ignore:
Timestamp:
05.10.2009 15:48:44 (10 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

Files:
1 modified

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 (@_);