Changeset 19494 for gsdl/trunk/perllib/doc.pm

Timestamp:

2009-05-18T10:58:18+12:00 (15 years ago)

Author:

davidb

Message:

Supporting routines that exploit the new 'metafiles' structures, introduction to track which metadata.xml file a piece of metadata came from

File:

• gsdl/trunk/perllib/doc.pm (modified) (1 diff)

gsdl/trunk/perllib/doc.pm

@@ -999 +999 @@
 }
 
+
+sub metadata_file {
+    my $self = shift (@_);
+    my ($real_filename, $filename) = @_;
+    
+    push (@{$self->{'metadata_files'}}, 
+      [$real_filename, $filename]);
+}
+
+sub get_meta_files {
+    my $self = shift (@_);
+
+    return $self->{'metadata_files'};
+}
+
 sub delete_section_assoc_files {
     my $self = shift (@_);