Changeset 37259

Timestamp:

2023-02-03T16:03:05+13:00 (15 months ago)

Author:

davidb

Message:

Updated to reflect new function names introduced by some coding work Kathy did

File:

• gs3-installations/eurovision-lod/trunk/sites/eurovision/collect/eurovision/perllib/plugins/MetadataJSONPlugin.pm (modified) (1 diff)

gs3-installations/eurovision-lod/trunk/sites/eurovision/collect/eurovision/perllib/plugins/MetadataJSONPlugin.pm

@@ -395 +395 @@
         my $file = $self->{'metadata-file'};
         my $filename = $self->{'metadata-filename'};
-
-        if (!defined &extrametautil::getmetafile($self->{'metafileref'}, $target)) {
-            &extrametautil::setmetafile($self->{'metafileref'}, $target, {});
-        }
-
-        &extrametautil::setmetafile_for_named_file($self->{'metafileref'}, $target, $file, $filename);
+        
+#       if (!defined &extrametautil::getmetafile($self->{'metafileref'}, $target)) {
+#           &extrametautil::setmetafile($self->{'metafileref'}, $target, {});
+#       }
+#
+#       &extrametautil::setmetafile_for_named_file($self->{'metafileref'}, $target, $file, $filename);
+
+        &extrametautil::addmetafile($self->{'metafileref'}, $target, $file, $filename);     
     }