Changeset 9694

Timestamp:

2005-04-15T14:00:29+12:00 (19 years ago)

Author:

kjdon

Message:

when an element had no qualifier it was still getting the ^{symbol added to the element name. added a check for empty qualifier}

File:

• trunk/gsdl/perllib/plugins/DSpacePlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/DSpacePlug.pm

@@ -373 +373 @@
     my $qualifier = $_{'qualifier'};
     if ($metaname ne "description") {
-        $metaname .= "^$qualifier" if ($qualifier ne "none");
+        $metaname .= "^$qualifier" if ($qualifier ne "none" && $qualifier ne "");
         $self->{'metaname'} = "dc.\u$metaname";
     }