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

Timestamp:

2022-12-23T10:19:59+13:00 (16 months ago)

Author:

davidb

Message:

Code extended to now generate Open Annotation (JSON format) of the OCR'd blocks of text; some refinement of the existing Google Vision perl code

File:

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

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

@@ -82 +82 @@
     my $utf8_filename_no_path = $self->filepath_to_utf8($filename_no_path);
     my $url_encoded_filename = &util::rename_file($utf8_filename_no_path, $self->{'file_rename_method'});
+
+    $self->{'gv-dococr-json-filename-recs'} = [];
+
+    # The following also builds up the openanotation_list 'resources' array    
+    $self->run_gv_convert($filename_full_path,$url_encoded_filename,$doc_obj);
+
+    $self->SUPER::process(@_);
+}
+
+sub post_process_doc_obj {
+    my $self = shift (@_);  
+    my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+
+    my $ret_val_ok = $self->SUPER::post_process_doc_obj(@_);
     
-    $self->run_gv_convert($filename_full_path,$url_encoded_filename,$doc_obj);
+    if ($ret_val_ok) {
+    $ret_val_ok = $self->opt_run_gen_openannotation($doc_obj);
+    }
     
-    $self->SUPER::process(@_);
+    return $ret_val_ok;
 }