Changeset 20801
- Timestamp:
- 2009-10-12T13:06:40+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r20777 r20801 688 688 # $real_filename =~ s/^$collect_dir_re_safe//; 689 689 # } 690 691 692 690 if (defined $reverse_lookups) { 691 $reverse_lookups->{$real_filename} = 1; 692 } 693 693 push(@{$oid_files->{$field}},$full_file); 694 694 } … … 739 739 740 740 $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file", 741 $collect_dir,$oid_files ,$reverse_lookups);741 $collect_dir,$oid_files); 742 742 743 743 … … 771 771 ## &GDBMUtils::gdbmDatabaseAppend($src_db,$rl,"<oid>$oid\n"); 772 772 $working_info->add_reverseinfo($rl,$oid); 773 } 773 } 774 775 # meta files not set in reverese entry, but need to set the metadata flag 776 foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) { 777 my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec; 778 $working_info->set_meta_file_flag($full_file); 779 } 774 780 } 775 781
Note:
See TracChangeset
for help on using the changeset viewer.