Changeset 19742 for gsdl/trunk/bin/script/explode_metadata_database.pl

Timestamp:

2009-06-04T19:04:58+12:00 (15 years ago)

Author:

ak19

Message:

Dr Bainbridge fixed a little problem about how the document_prefix option for exploding an ISIS database got resolved: it now makes sure there's a proper fileseparator at the end of the doc_prefix even if the user had not provided one.

File:

• gsdl/trunk/bin/script/explode_metadata_database.pl (modified) (1 diff)

gsdl/trunk/bin/script/explode_metadata_database.pl

@@ -402 +402 @@
 
         $value =~ s/\\\\/\\/g;
-        
+
         # Does this metadata element specify a document to obtain?
         if ($field eq $document_field) {
-        my $document_file_full = $document_prefix . $value . $document_suffix;
+        # if the document prefix provided didn't have the requisite slash at the end, we make sure it does now
+        # by first of all stripping any trailing slash and then always ensuring one is used through filename_cat
+        $document_prefix =~ s/(\/|\\)$//;
+        my $document_file_full = &util::filename_cat($document_prefix, "$value$document_suffix");
 
         # this either downloads/copies the document, or creates a nul file for it.