Changeset 22328
- Timestamp:
- 2010-06-30T12:57:29+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r22232 r22328 693 693 # $real_filename =~ s/^$collect_dir_re_safe//; 694 694 # } 695 695 696 if (defined $reverse_lookups) { 696 697 $reverse_lookups->{$real_filename} = 1; … … 723 724 my $oid = $doc_obj->get_OID(); 724 725 my $source_filename = $doc_obj->get_unmodified_source_filename(); 725 726 726 my $working_info = $self->{'output_info'}; 727 727 my $doc_info = $working_info->get_info($oid); 728 728 729 729 my ($doc_file,$index_status,$sortmeta) = @$doc_info; 730 730 # doc_file is the path to the archive doc.xml. Make sure it has unix 731 # slashes, then if the collection is copied to linux, it can be built without reimport 732 $doc_file =~ s/\\/\//g; 731 733 my $oid_files = { 'doc-file' => $doc_file, 732 734 'index-status' => $index_status,
Note:
See TracChangeset
for help on using the changeset viewer.