Changeset 28211 for main/trunk/greenstone2/perllib/arcinfo.pm

Timestamp:

2013-09-04T21:46:07+12:00 (11 years ago)

Author:

ak19

Message:

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

File:

• main/trunk/greenstone2/perllib/arcinfo.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/arcinfo.pm

@@ -143 +143 @@
 
     foreach my $file ( keys %$infodb_map ) {
+    # turn placeholders in the file keys of archiveinf-src file back to absolute paths
+    $file = &util::placeholders_to_abspath($file);
     $self->{'prev_import_filelist'}->{$file} = 1;
     }
@@ -176 +178 @@
 
     foreach my $srcfile ( keys %$rev_infodb_map ) {
+
     my $vals = $rev_infodb_map->{$srcfile};
+
+    $srcfile = &util::abspath_to_placeholders($srcfile);
 
     foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
@@ -251 +256 @@
     foreach my $key ( keys %$rev_infodb_map ) {
     my $val_hash = $rev_infodb_map->{$key};
+
+    $key = &util::abspath_to_placeholders($key);    
+
     &dbutil::write_infodb_entry($self->{'infodbtype'}, $rev_infodb_handle, $key, $val_hash);
     }