# sbJson 1.0 writer tags

# History:
#  Stan Smith 2017-11-29 handle keywords over 80 characters
#  Stan Smith 2017-10-12 remove repository name from harvest set tag
#  Stan Smith 2017-05-31 original script

require 'jbuilder'
require_relative 'sbJson_codelists'

module ADIWG
   module Mdtranslator
      module Writers
         module SbJson

            module Tag

               def self.tag_from_keyword(theme, keyword, namespace)
                  hTag = {}
                  hTag[:type] = theme unless theme.nil?
                  hTag[:name] = keyword
                  hTag[:scheme] = namespace unless namespace.nil?
                  if theme == 'isoTopicCategory'
                     hTag[:type] = hTag[:scheme] = 'ISO 19115 Topic Categories'
                  end
                  return hTag
               end

               def self.build(intObj)

                  hResource = intObj[:metadata][:resourceInfo]
                  aTags = []

                  # tags from resource type
                  hResource[:resourceTypes].each do |hType|
                     hTag = {}
                     type = hType[:type]
                     sbType = Codelists.codelist_adiwg2sb('scope_adiwg2sb', type)
                     sbType = sbType.nil? ? type : sbType
                     hTag[:type] = 'Resource Type'
                     hTag[:name] = sbType
                     aTags << hTag
                  end

                  # tags from keywords
                  hResource[:keywords].each do |hThemeSet|
                     theme = hThemeSet[:keywordType]
                     scheme = nil
                     hThesaurus = hThemeSet[:thesaurus]
                     unless hThesaurus.empty?
                        unless hThesaurus[:onlineResources].empty?
                           scheme = hThesaurus[:onlineResources][0][:olResURI]
                        end
                     end
                     hThemeSet[:keywords].each do |hKeywordObj|
                        keyword = hKeywordObj[:keyword]
                        if keyword.length > 80
                           if keyword.include?('>')
                              aKeyList = keyword.split('>')
                              aKeyList.each do |part|
                                 hTag = tag_from_keyword(theme, part, scheme)
                                 aTags << hTag
                              end
                           else
                              hTag = tag_from_keyword(theme, keyword[0,76]+'...', scheme)
                              aTags << hTag
                           end
                        else
                           hTag = tag_from_keyword(theme, keyword, scheme)
                           aTags << hTag
                        end
                     end
                  end

                  # tags from status
                  hResource[:status].each do |status|
                     hTag = {}
                     hTag[:type] = 'Status'
                     hTag[:name] = status
                     aTags << hTag
                  end

                  # tags from repositories
                  intObj[:metadataRepositories].each do |hRepo|
                     unless hRepo[:citation].empty?
                        tagName = nil
                        tagName = hRepo[:citation][:title] unless hRepo[:citation][:title].nil?
                        unless tagName.nil?
                           hTag = {}
                           hTag[:type] = 'Harvest Set'
                           hTag[:name] = tagName
                           aTags << hTag
                        end
                     end
                  end

                  if aTags.empty?
                     return nil
                  end

                  aTags

               end

            end

         end
      end
   end
end