Changeset 19672 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

Timestamp:

2009-05-29T14:01:58+12:00 (15 years ago)

Author:

kjdon

Message:

if we are doing a mapping from a field with no subfield spacified, then we concatenate the values of all the subfields, separated by space. Have made it only add space between entries, not at the end of each entry (and therefore always a space at the end)

File:

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

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -347 +347 @@
     my $doc_obj = $self->{'doc_obj'};
 
-##  print STDERR "**** Marc Record\n";
-##      map { print STDERR $_."=>".$marc_mapping->{$_}."\n"; } keys %$marc_mapping;
-##  print STDERR "**** Metadata Mapping\n";
-##      map { print STDERR $_."=>".$metadata_mapping->{$_}."\n"; } keys %$metadata_mapping;
+    ##print STDERR "**** Marc Record\n";
+      ##map { print STDERR $_."=>".$marc_mapping->{$_}."\n"; } keys %$marc_mapping;
+    ##print STDERR "**** Metadata Mapping\n";
+      ##map { print STDERR $_."=>".$metadata_mapping->{$_}."\n"; } keys %$metadata_mapping;
 
 
@@ -383 +383 @@
             
             # no subfield => get all the values
+            my $first = 1;
             foreach my $value (sort keys %{$matched_field}) {
-            $meta_value .= $matched_field->{$value} ." ";
+            if ($first) {
+                $meta_value = $matched_field->{$value};
+                $first = 0;
+            } else {
+                $meta_value .= " " . $matched_field->{$value};
+            }
             }