Changeset 19829

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

Location:

gsdl/trunk/perllib

Files:

• doc.pm (modified) (2 diffs)
• plugouts/BasePlugout.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

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -713 +713 @@
 
     my $oid = $doc_obj->get_OID();
-    my $source_filename = $doc_obj->get_source_filename();
+    my $source_filename = $doc_obj->get_unmodified_source_filename();
 
     my $working_info = $self->{'output_info'}; 
@@ -731 +731 @@
                      $collect_dir,$oid_files,$reverse_lookups);
 
+# ******* 
 #    foreach my $assoc_file_rec (@{$doc_obj->get_assoc_files()}) {
 #   my $real_filename = $assoc_file_rec->[0];