Changeset 24219 for main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm

Timestamp:

2011-07-01T21:05:19+12:00 (13 years ago)

Author:

ak19

Message:

Thanks to Sam, Veronica and Dr Bainbridge, can finally commit the changes necessary for ticket 449.

File:

• main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm

@@ -323 +323 @@
 
     my @gsdlassocfile_tobe 
-        = map { &util::filename_cat($dir,$_->{'file'}).":".$_->{'mimetype'}.":" } @$assoc_file_mimes;
+        = map { &util::filename_cat($dir,$_->{'file'}) .":".$_->{'mimetype'}.":" } @$assoc_file_mimes if @$assoc_file_mimes;
     $self->{'saved_metadata'}->{'gsdlassocfile_tobe'} = \@gsdlassocfile_tobe;