Changeset 13157

Timestamp:

2006-10-20T15:52:38+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now only adds ^{* metadata values if the field is specified to have subfields in the FDT file.}

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -230 +230 @@
             }
 
-            # If this is the first subfield then the value is used for the CDS/ISIS ^* field
-            if ($metadata_value eq "") {
+            # If this tag has subfields and this is the first, use the value for the CDS/ISIS ^* field
+            if ($fdt_mapping->{$tag}{'subfields'} ne "" && $metadata_value eq "") {
             $doc_obj->add_utf8_metadata($section, $metadata_name . "^*", $sub_metadata_value); 
             }
@@ -292 +292 @@
         }
 
-        # If this is the first subfield then the value is used for the CDS/ISIS ^* field
-        if ($metadata_value eq "") {
+        # If this tag has subfields and this is the first, use the value for the CDS/ISIS ^* field
+        if ($fdt_mapping->{$tag}{'subfields'} ne "" && $metadata_value eq "") {
             $doc_obj->add_utf8_metadata($section, $metadata_name . "^*", $sub_metadata_value); 
         }