Ignore:
Timestamp:
2013-09-04T21:46:07+12:00 (8 years ago)
Author:
ak19
Message:

No more absolute paths in archiveinf-doc.gdb and archiveinf-src.gdb

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/arcinfo.pm

    r27697 r28211  
    143143
    144144    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);
    145147    $self->{'prev_import_filelist'}->{$file} = 1;
    146148    }
     
    176178
    177179    foreach my $srcfile ( keys %$rev_infodb_map ) {
     180
    178181    my $vals = $rev_infodb_map->{$srcfile};
     182
     183    $srcfile = &util::abspath_to_placeholders($srcfile);
    179184
    180185    foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
     
    251256    foreach my $key ( keys %$rev_infodb_map ) {
    252257    my $val_hash = $rev_infodb_map->{$key};
     258
     259    $key = &util::abspath_to_placeholders($key);   
     260
    253261    &dbutil::write_infodb_entry($self->{'infodbtype'}, $rev_infodb_handle, $key, $val_hash);
    254262    }
Note: See TracChangeset for help on using the changeset viewer.