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

Timestamp:

2009-06-12T23:43:51+12:00 (15 years ago)

Author:

davidb

Message:

doc.pm API extended to include call for finding out the original source filename (rather than the one where the rename_method has been applied). Useful for incremental building, and probably other things too

File:

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

gsdl/trunk/perllib/doc.pm

@@ -182 +182 @@
 
 # returns the source_filename as it was provided
+sub get_unmodified_source_filename {
+    my $self = shift (@_);
+
+    return $self->{'source_path'};
+}
+
+# returns the source_filename with whatever rename_method was given
 sub get_source_filename {
     my $self = shift (@_);
@@ -187 +194 @@
     return $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename");
 }
+
+
 
 # returns converted filename if available else returns source filename