Changeset 12703

Timestamp:

2006-09-07T13:20:33+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added new "^{*" values for each field, which contain the first subfield value. This is the syntax CDS/ISIS uses.}

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -225 +225 @@
             }
 
+            # If this is the first subfield then the value is used for the CDS/ISIS ^* field
+            if ($metadata_value eq "") {
+            $doc_obj->add_utf8_metadata($section, $metadata_name . "^*", $sub_metadata_value); 
+            }
+
             $metadata_value .= $subfield_separator unless ($metadata_value eq "");
             $metadata_value .= $sub_metadata_value;
@@ -283 +288 @@
         }
 
+        # If this is the first subfield then the value is used for the CDS/ISIS ^* field
+        if ($metadata_value eq "") {
+            $doc_obj->add_utf8_metadata($section, $metadata_name . "^*", $sub_metadata_value); 
+        }
+
         $metadata_value .= $subfield_separator unless ($metadata_value eq "");
         $metadata_value .= $sub_metadata_value;