Changeset 20536
- Timestamp:
- 2009-09-07T11:36:50+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/DSpacePlugout.pm
r18463 r20536 81 81 my $outhandler = $self->get_output_handler($doc_handle_file); 82 82 83 my ($handle) = ($doc_dir =~ m/^(.*) \.dir$/);83 my ($handle) = ($doc_dir =~ m/^(.*)(:?\.dir)?$/); 84 84 85 85 print $outhandler "$handle_prefix/$handle\n";
Note:
See TracChangeset
for help on using the changeset viewer.