# unpack data dictionary information section
# Reader - ADIwg JSON V1 to internal data structure

# History:
# 	Stan Smith 2013-12-01 original script
#   Stan Smith 2014-12-15 refactored to handle namespacing readers and writers

require $ReaderNS.readerModule('module_citation')

module ADIWG
    module Mdtranslator
        module Readers
            module MdJson

                module DictionaryInfo

                    def self.unpack(hDictInfo)

                        # instance classes needed in script
                        intMetadataClass = InternalMetadata.new
                        intDictInfo = intMetadataClass.newDictionaryInfo

                        # dictionary info - citation
                        if hDictInfo.has_key?('citation')
                            hCitation = hDictInfo['citation']
                            unless hCitation.empty?
                                intDictInfo[:dictCitation] = $ReaderNS::Citation.unpack(hCitation)
                            end
                        end

                        # dictionary info - description
                        if hDictInfo.has_key?('description')
                            s = hDictInfo['description']
                            if s != ''
                                intDictInfo[:dictDescription] = s
                            end
                        end

                        # dictionary info - resource type
                        if hDictInfo.has_key?('resourceType')
                            s = hDictInfo['resourceType']
                            if s != ''
                                intDictInfo[:dictResourceType] = s
                            end
                        end

                        # dictionary info - language
                        if hDictInfo.has_key?('language')
                            s = hDictInfo['language']
                            if s != ''
                                intDictInfo[:dictLanguage] = s
                            end
                        end

                        return intDictInfo
                    end

                end

            end
        end
    end
end