Changeset 19829


Ignore:
Timestamp:
2009-06-12T23:43:51+12:00 (12 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 edited

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];
Note: See TracChangeset for help on using the changeset viewer.