Changeset 38292 for gs3-extensions


Ignore:
Timestamp:
2023-10-05T22:49:59+13:00 (8 months ago)
Author:
davidb
Message:

Setting additional metadata to help SAS orthogonol indexer

File:
1 edited

Legend:

Unmodified
Added
Removed

  • gs3-extensions/structured-image/trunk/perllib/plugins/GoogleVisionAPIConverter.pm

    r38287 r38292  
    682682        my $top_section = $doc_obj->get_top_section();
    683683        $doc_obj->associate_file($cached_openannotation_json_ofilename,$assoc_openannotation_json_ofile,"application/json",$top_section);
     684        $doc_obj->add_utf8_metadata($section, "HasOpenAnnotationJSON", 1);
     685        $doc_obj->add_utf8_metadata($section, "OpenAnnotationJSONFilename",$assoc_openannotation_json_ofile);
     686
     687        # Also record this at the top-level of the doc
     688        $doc_obj->set_utf8_metadata_element($top_section, "ContainsOpenAnnotationJSON", 1);
     689
    684690    }
    685691    else {
Note: See TracChangeset for help on using the changeset viewer.