Changeset 11545

Timestamp:

2006-03-30T15:12:04+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added support for repeatable fields using .

File:

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

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -153 +153 @@
     $self->{'fdt_mapping'} = \%fdt_mapping;
 
-    # Remove the line at the start so it is split and processed properly
+    # Remove the line at the start, and any blank lines, so the data is split and processed properly
     $$textref =~ s/^----------\n//;
+    $$textref =~ s/\n\n/\n/g;
 }
 
@@ -255 +256 @@
 
         # Deal with the case when multiple values are specified using <...>
-        if ($sub_metadata_value =~ /\<(.*)\>$/) {
+        if ($sub_metadata_value =~ /\<(.+)\>/) {
             my $sub_sub_metadata_name = $sub_metadata_name . "^sub";
             my $tmp_sub_metadata_value = $sub_metadata_value;
-            while ($tmp_sub_metadata_value =~ s/\<(.*?)\>//) {
+            while ($tmp_sub_metadata_value =~ s/\<(.+?)\>//) {
+            my $sub_sub_metadata_value = $1;
+            $doc_obj->add_utf8_metadata($section, $sub_sub_metadata_name, $sub_sub_metadata_value); 
+            }
+        }
+        elsif ($sub_metadata_value =~ /\/(.+)\//) {
+            my $sub_sub_metadata_name = $sub_metadata_name . "^sub";
+            my $tmp_sub_metadata_value = $sub_metadata_value;
+            while ($tmp_sub_metadata_value =~ s/\/(.+?)\///) {
             my $sub_sub_metadata_value = $1;
             $doc_obj->add_utf8_metadata($section, $sub_sub_metadata_name, $sub_sub_metadata_value);