Changeset 19742
- Timestamp:
- 2009-06-04T19:04:58+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/explode_metadata_database.pl
r19626 r19742 402 402 403 403 $value =~ s/\\\\/\\/g; 404 404 405 405 # Does this metadata element specify a document to obtain? 406 406 if ($field eq $document_field) { 407 my $document_file_full = $document_prefix . $value . $document_suffix; 407 # if the document prefix provided didn't have the requisite slash at the end, we make sure it does now 408 # by first of all stripping any trailing slash and then always ensuring one is used through filename_cat 409 $document_prefix =~ s/(\/|\\)$//; 410 my $document_file_full = &util::filename_cat($document_prefix, "$value$document_suffix"); 408 411 409 412 # this either downloads/copies the document, or creates a nul file for it.
Note:
See TracChangeset
for help on using the changeset viewer.