Changeset 20777 for gsdl/trunk

Timestamp:

2009-10-05T15:51:12+13:00 (15 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -675 +675 @@
 
     foreach my $file_rec (@$files) {
-    my $real_filename = $file_rec->[0];
-    my $full_file = $file_rec->[1];
-
+    my $real_filename = (ref $file_rec eq "ARRAY") ? $file_rec->[0] : $file_rec;
+    my $full_file = (ref $file_rec eq "ARRAY") ? $file_rec->[1] : $file_rec;
     # for some reasons the image associate file has / before the full path
     $real_filename =~ s/^\\(.*)/$1/i;
@@ -735 +734 @@
 
 
-    $self->archiveinf_files_to_field($doc_obj->get_assoc_files(),"assoc-file",
+    $self->archiveinf_files_to_field($doc_obj->get_source_assoc_files(),"assoc-file",
                      $collect_dir,$oid_files,$reverse_lookups);