Changeset 19829 for gsdl/trunk/perllib/plugouts/BasePlugout.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/plugouts/BasePlugout.pm (modified) (2 diffs)

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];