Changeset 37159 for gs3-extensions

Timestamp:

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

Author:

davidb

Message:

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

Location:

gs3-extensions/structured-image/trunk/perllib/plugins

Files:

• GoogleVisionImagePlugin.pm (modified) (2 diffs)
• GoogleVisionPagedImagePlugin.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;

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

@@ -31 +31 @@
 package GoogleVisionPagedImagePlugin;
 
-#use Encode;
-#use ReadXMLFile;
-#use ReadTextFile;
+use strict;
+no  strict 'refs'; # allow filehandles to be variables and viceversa
+
+use Digest::MD5 qw( md5_hex );
+
 use GoogleVisionAPIConverter;
 use PagedImagePlugin;
 
-use strict;
-no  strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
@@ -121 +121 @@
     #$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;
 }