Changeset 20777


Ignore:
Timestamp:
2009-10-05T15:51:12+13:00 (13 years ago)
Author:
kjdon
Message:

save source assoc files as assoc-file in archiveinf instead of using resulting assocfiels

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r20763 r20777  
    675675
    676676    foreach my $file_rec (@$files) {
    677     my $real_filename = $file_rec->[0];
    678     my $full_file = $file_rec->[1];
    679 
     677    my $real_filename = (ref $file_rec eq "ARRAY") ? $file_rec->[0] : $file_rec;
     678    my $full_file = (ref $file_rec eq "ARRAY") ? $file_rec->[1] : $file_rec;
    680679    # for some reasons the image associate file has / before the full path
    681680    $real_filename =~ s/^\\(.*)/$1/i;
     
    735734
    736735
    737     $self->archiveinf_files_to_field($doc_obj->get_assoc_files(),"assoc-file",
     736    $self->archiveinf_files_to_field($doc_obj->get_source_assoc_files(),"assoc-file",
    738737                     $collect_dir,$oid_files,$reverse_lookups);
    739738
Note: See TracChangeset for help on using the changeset viewer.