Changeset 28211 for main/trunk/greenstone2/perllib/arcinfo.pm
- Timestamp:
- 2013-09-04T21:46:07+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/arcinfo.pm
r27697 r28211 143 143 144 144 foreach my $file ( keys %$infodb_map ) { 145 # turn placeholders in the file keys of archiveinf-src file back to absolute paths 146 $file = &util::placeholders_to_abspath($file); 145 147 $self->{'prev_import_filelist'}->{$file} = 1; 146 148 } … … 176 178 177 179 foreach my $srcfile ( keys %$rev_infodb_map ) { 180 178 181 my $vals = $rev_infodb_map->{$srcfile}; 182 183 $srcfile = &util::abspath_to_placeholders($srcfile); 179 184 180 185 foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) { … … 251 256 foreach my $key ( keys %$rev_infodb_map ) { 252 257 my $val_hash = $rev_infodb_map->{$key}; 258 259 $key = &util::abspath_to_placeholders($key); 260 253 261 &dbutil::write_infodb_entry($self->{'infodbtype'}, $rev_infodb_handle, $key, $val_hash); 254 262 }
Note:
See TracChangeset
for help on using the changeset viewer.