Changeset 20775
- Timestamp:
- 2009-10-05T15:48:44+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/doc.pm
r20417 r20775 1003 1003 } 1004 1004 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 1009 sub associate_source_file { 1010 my $self = shift (@_); 1011 my ($full_filename) = @_; 1012 1013 push (@{$self->{'source_assoc_files'}}, $full_filename); 1014 1015 } 1016 1017 sub get_source_assoc_files { 1018 my $self = shift (@_); 1019 1020 return $self->{'source_assoc_files'}; 1021 1022 1023 } 1006 1024 sub metadata_file { 1007 1025 my $self = shift (@_); … … 1012 1030 } 1013 1031 1032 # used for writing out archiveinf-doc.gdb, to list all the metadata files 1014 1033 sub get_meta_files { 1015 1034 my $self = shift (@_);
Note:
See TracChangeset
for help on using the changeset viewer.