Purple_Envelop_Order_Site/app/models/OrderDetailsAnswersMapper.asp

<%
'=======================================================================================================================
' Maps a parsed-JSON answers Dictionary (from the SurveyJS order-details form) onto a
' POBO_OrderDetails instance, and validates it first - the client-side SurveyJS
' required/enum rules in continue.asp are a UX convenience, not something the server can trust.
'=======================================================================================================================

' Returns "" if valid, or a "; "-joined list of validation error messages.
Function ValidateOrderDetailsAnswers(answers)
    Dim errors() : ReDim errors(-1)

    RequireNonEmptyString errors, answers, "ContactName", "Contact name is required."
    RequireNonEmptyString errors, answers, "Municipality", "Municipality is required."
    RequireNonEmptyString errors, answers, "Phone", "Phone number is required."

    RequireEnum errors, answers, "PurpleEnvelopeStock", Array("KCIStock", "OwnStock")
    RequireEnum errors, answers, "PurplePrintOption", Array("AddressesAndPermit", "PermitOnly")
    RequireEnum errors, answers, "PurpleBlueProvider", Array("ElectionSource", "PSI", "Spectrum", "Other")
    RequireEnum errors, answers, "PurplePrintStyle", Array("ColorCoding", "BlackOnly")
    RequireEnum errors, answers, "PurpleColorCodingBy", Array("Precinct", "Election")
    RequireEnum errors, answers, "BluePermitOwnership", Array("KCIPermit", "OwnPermit")
    RequireEnum errors, answers, "MailingPostageOption", Array("FirstClass", "NonprofitRate", "PresortStandard", "No")
    RequireEnum errors, answers, "MailingHasNonprofitStatus", Array("Yes", "No", "NotSure")

    RequireBoolean errors, answers, "PurpleWantsQuote"
    RequireBoolean errors, answers, "PurpleWantsBlueEnvelopes"
    RequireBoolean errors, answers, "PurpleTrackMIBallot"
    RequireBoolean errors, answers, "BlueWantsQuote"
    RequireBoolean errors, answers, "BluePrintPermit"
    RequireBoolean errors, answers, "BlueHasNonprofitStatus"
    RequireBoolean errors, answers, "MailingWantsService"

    RequireNonNegativeInteger errors, answers, "PurplePrecinctCount"
    RequireNonNegativeInteger errors, answers, "PurpleExtraEnvelopeQty"
    RequireNonNegativeInteger errors, answers, "MailingEstimatedQuantity"
    RequireNonNegativeInteger errors, answers, "SecrecySleevesQty"
    RequireNonNegativeInteger errors, answers, "IVotedStickerRolls"
    RequireNonNegativeInteger errors, answers, "FutureVoterStickerRolls"

    RequireValidDate errors, answers, "MailingPickupDate"

    If UBound(errors) >= 0 Then
        ValidateOrderDetailsAnswers = Join(errors, "; ")
    Else
        ValidateOrderDetailsAnswers = ""
    End If
End Function

Sub MapOrderDetailsAnswers(ByRef model, answers)
    ' Contact
    model.ContactName   = DictValue(answers, "ContactName")
    model.Municipality  = DictValue(answers, "Municipality")
    model.Phone         = DictValue(answers, "Phone")

    ' Purple envelope
    model.PurpleWantsQuote          = DictValue(answers, "PurpleWantsQuote")
    model.PurpleEnvelopeStock       = DictValue(answers, "PurpleEnvelopeStock")
    model.PurplePrintOption         = DictValue(answers, "PurplePrintOption")
    model.PurpleWantsBlueEnvelopes  = DictValue(answers, "PurpleWantsBlueEnvelopes")
    model.PurpleBlueProvider        = DictValue(answers, "PurpleBlueProvider")
    model.PurpleBlueProviderOther   = DictValue(answers, "PurpleBlueProviderOther")
    model.PurplePrintStyle          = DictValue(answers, "PurplePrintStyle")
    model.PurpleColorCodingBy       = DictValue(answers, "PurpleColorCodingBy")
    model.PurplePrecinctCount       = DictValue(answers, "PurplePrecinctCount")
    model.PurpleColorNames          = DictValue(answers, "PurpleColorNames")
    model.PurpleTrackMIBallot       = DictValue(answers, "PurpleTrackMIBallot")
    model.PurpleExtraEnvelopeQty    = DictValue(answers, "PurpleExtraEnvelopeQty")

    ' Blue envelope
    model.BlueWantsQuote          = DictValue(answers, "BlueWantsQuote")
    model.BluePrintPermit         = DictValue(answers, "BluePrintPermit")
    model.BluePermitOwnership     = DictValue(answers, "BluePermitOwnership")
    model.BlueHasNonprofitStatus  = DictValue(answers, "BlueHasNonprofitStatus")
    model.BlueNonprofitAuthCode   = DictValue(answers, "BlueNonprofitAuthCode")
    model.BluePermitCity          = DictValue(answers, "BluePermitCity")
    model.BluePermitNumber        = DictValue(answers, "BluePermitNumber")

    ' Mailing service
    model.MailingWantsService        = DictValue(answers, "MailingWantsService")
    model.MailingPostageOption       = DictValue(answers, "MailingPostageOption")
    model.MailingHasNonprofitStatus  = DictValue(answers, "MailingHasNonprofitStatus")
    model.MailingEstimatedQuantity   = DictValue(answers, "MailingEstimatedQuantity")
    model.MailingPickupDate          = DictValue(answers, "MailingPickupDate")

    ' Additional items
    model.SecrecySleevesQty       = DictValue(answers, "SecrecySleevesQty")
    model.IVotedStickerRolls      = DictValue(answers, "IVotedStickerRolls")
    model.FutureVoterStickerRolls = DictValue(answers, "FutureVoterStickerRolls")
    model.SpecialRequests         = DictValue(answers, "SpecialRequests")
End Sub
%>