Changeset 20536

Timestamp:

2009-09-07T11:36:50+12:00 (15 years ago)

Author:

davidb

Message:

Minor tweak to DSpace exporting so file handle correctly determined

File:

• gsdl/trunk/perllib/plugouts/DSpacePlugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugouts/DSpacePlugout.pm

@@ -81 +81 @@
     my $outhandler =  $self->get_output_handler($doc_handle_file);
 
-    my ($handle) = ($doc_dir =~ m/^(.*)\.dir$/);
+    my ($handle) = ($doc_dir =~ m/^(.*)(:?\.dir)?$/);
 
     print $outhandler "$handle_prefix/$handle\n";