# unpack taxonomy
# Reader - ADIwg JSON V1 to internal data structure

# History:
# 	Stan Smith 2013-11-20 original script
#   Stan Smith 2014-05-02 fixed assignment problem with taxon general scope
#   Stan Smith 2014-05-02 fixed assignment problem with taxonomic procedures
#   Stan Smith 2014-07-07 resolve require statements using Mdtranslator.reader_module
#   Stan Smith 2014-12-15 refactored to handle namespacing readers and writers
#   Stan Smith 2015-06-22 replace global ($response) with passed in object (responseObj)
#   Stan Smith 2015-07-14 refactored to remove global namespace constants

require ADIWG::Mdtranslator::Readers::MdJson.readerModule('module_citation')
require ADIWG::Mdtranslator::Readers::MdJson.readerModule('module_responsibleParty')
require ADIWG::Mdtranslator::Readers::MdJson.readerModule('module_voucher')
require ADIWG::Mdtranslator::Readers::MdJson.readerModule('module_taxonClass')

module ADIWG
    module Mdtranslator
        module Readers
            module MdJson

                module Taxonomy

                    def self.unpack(hTaxonomy, responseObj)

                        # instance classes needed in script
                        intMetadataClass = InternalMetadata.new
                        intTaxSys = intMetadataClass.newTaxonSystem

                        # taxonomy - taxonomy class system - citation
                        if hTaxonomy.has_key?('classificationSystem')
                            aClassSys = hTaxonomy['classificationSystem']
                            unless aClassSys.empty?
                                aClassSys.each do |hCitation|
                                    intTaxSys[:taxClassSys] << Citation.unpack(hCitation, responseObj)
                                end
                            end
                        end

                        # taxonomy - general scope
                        if hTaxonomy.has_key?('taxonGeneralScope')
                            s = hTaxonomy['taxonGeneralScope']
                            if s != ''
                                intTaxSys[:taxGeneralScope] = s
                            end
                        end

                        # taxonomy - ID reference system
                        # not supported in JSON schema (defaulted to 'unknown')

                        # taxonomy - observers - responsible party
                        if hTaxonomy.has_key?('observer')
                            aObservers = hTaxonomy['observer']
                            unless aObservers.empty?
                                aObservers.each do |observer|
                                    intTaxSys[:taxObservers] << ResponsibleParty.unpack(observer, responseObj)
                                end
                            end
                        end

                        # taxonomy - taxonomic procedures
                        if hTaxonomy.has_key?('taxonomicProcedure')
                            s = hTaxonomy['taxonomicProcedure']
                            if s != ''
                                intTaxSys[:taxIdProcedures] = s
                            end
                        end

                        # taxonomy - voucher
                        if hTaxonomy.has_key?('voucher')
                            hVoucher = hTaxonomy['voucher']
                            unless hVoucher.empty?
                                intTaxSys[:taxVoucher] = Voucher.unpack(hVoucher, responseObj)
                            end
                        end

                        # taxonomy - classification (recursive)
                        if hTaxonomy.has_key?('taxonClass')
                            aTaxClass = hTaxonomy['taxonClass']
                            unless aTaxClass.empty?
                                aTaxClass.each do |hTaxClass|
                                    intTaxSys[:taxClasses] << TaxonCl.unpack(hTaxClass, responseObj)
                                end
                            end
                        end

                        return intTaxSys
                    end

                end

            end
        end
    end
end