Changeset 37159 for gs3-extensions/structured-image/trunk/perllib/plugins/GoogleVisionImagePlugin.pm

Timestamp:

2023-01-18T23:51:57+13:00 (16 months ago)

Author:

davidb

Message:

Additional metadata set (SASShortID) to help with creating IIIF Manifest files in the XSLT to support within-doc searching

File:

• gs3-extensions/structured-image/trunk/perllib/plugins/GoogleVisionImagePlugin.pm (modified) (2 diffs)

gs3-extensions/structured-image/trunk/perllib/plugins/GoogleVisionImagePlugin.pm

@@ -35 +35 @@
 use utf8;
 use JSON qw( from_json );
-
-#use Data::Dumper;
+use Digest::MD5 qw( md5_hex );
 
 use gsprintf;
@@ -100 +99 @@
     #$ret_val_ok = $self->opt_run_gen_webannotation($doc_obj);
     }
+
+    # Compute SimpleAnnotationServer short_id (md5_hex hash on OID)
+    # and store as metadata for later use
+    my $OID= $doc_obj->get_OID();
+
+    my $sas_manifest_url = "http-greenstone://intermuse/programmes-and-performers/$OID/manifest";
+    my $sas_short_id = md5_hex($sas_manifest_url);
+
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(),"SASShortID",$sas_short_id);
     
     return $ret_val_ok;