Changeset 19829

Show
Ignore:
Timestamp:
12.06.2009 23:43:51 (10 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:
2 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/doc.pm

    r19617 r19829  
    182182 
    183183# returns the source_filename as it was provided 
     184sub get_unmodified_source_filename { 
     185    my $self = shift (@_); 
     186 
     187    return $self->{'source_path'}; 
     188} 
     189 
     190# returns the source_filename with whatever rename_method was given 
    184191sub get_source_filename { 
    185192    my $self = shift (@_); 
     
    187194    return $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename"); 
    188195} 
     196 
     197 
    189198 
    190199# returns converted filename if available else returns source filename 
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r19775 r19829  
    713713 
    714714    my $oid = $doc_obj->get_OID(); 
    715     my $source_filename = $doc_obj->get_source_filename(); 
     715    my $source_filename = $doc_obj->get_unmodified_source_filename(); 
    716716 
    717717    my $working_info = $self->{'output_info'};  
     
    731731                     $collect_dir,$oid_files,$reverse_lookups); 
    732732 
     733# *******  
    733734#    foreach my $assoc_file_rec (@{$doc_obj->get_assoc_files()}) { 
    734735#   my $real_filename = $assoc_file_rec->[0];