Changeset 1047 for trunk/cstr/perllib/plugins/PrePlug.pm

Timestamp:

2000-03-31T14:32:13+12:00 (23 years ago)

Author:

nzdl

Message:

add multiple facsimiles as separate metadata elements rather than
comma separated list

File:

• trunk/cstr/perllib/plugins/PrePlug.pm (modified) (2 diffs)

trunk/cstr/perllib/plugins/PrePlug.pm

@@ -214 +214 @@
         $value =~ s/\s+$//;
         my @facsimiles = split /\s+/, $value;
-        $value = join ",", @facsimiles;
         foreach $facsimile (@facsimiles) {
             # assume images are in the same directory
@@ -221 +220 @@
             my ($imagetype) = $facsimile =~ /\.([^\.]*)$/;
             $doc_obj->associate_file($imagefile, $facsimile, "image/" . $imagetype);
+            # add metadata for each facsimile
+            $doc_obj->add_metadata ($doc_obj->get_top_section(), $key, $facsimile);
             } else {
             print STDERR "PrePlug: Warning - facsimile file $imagefile doesn't exist\n";
-            next;
             }
         }
+        # we've already added facsimile metadata
+        next;
+
         } elsif ($key =~ /^figures$/i) {
         $value =~ s/^\s+//;