#BLOCK("WITH_FORM_ERROR",#FormError)
{EMailsToUser} {EMailsToAdmin}
#IF(#FormError)
#IF(#FormErrors.Reason.MISSING_TO_ADDRESS )

{InputError}

{CanNotActivate_MissingToAddress} #ELSE

{InputError}

{PleaseCorrectErrors} #ENDIF
#ELSE #IF(NOT #MailFrom)

{InsertSenderAddressFirst}

{GotoEmailSettings}
#ENDIF #ENDIF
#GUI("accordion") #LOCAL("ActivePosition", 0) #IF(#INPUT.AccordionActivePosition) #SET("ActivePosition", #INPUT.AccordionActivePosition) #ENDIF #LOOP(#System.Child.MailTypeTemplateGroups.ChildObjects) #IF(NOT #ActivePosition) #SET("ActivePosition", #Position) #ENDIF #LOCAL("AccordionContent", {( #LOOP(#MAILTYPETEMPLATES(#Object)) #IF(NOT #MailFrom) #NameOrAlias #IF(#MailTypeTemplate.Description) #MailTypeTemplate.Description #ENDIF #Subject #ELSE #LOCAL("DisplayFeature", #FeaturedActionAvailable(#Shop.Object, #Object)) #IF(#DisplayFeature NE "NotVisible") #LOCAL("_Error", #GET("FormErrorAlias.".#Alias)) #IF(#DisplayFeature EQ "NotAllowed") #NameOrAlias #Subject #ELSE #IF(#FUNCTION("EXISTSCHILD", #Shop.Child.MailTypes.Object, #Alias)) #WITH(#FUNCTION("CHILD", #Shop.Child.MailTypes.Object, #Alias)) #MailTypeTemplate.NameOrAlias #IF(#MailTypeTemplate.Description) #MailTypeTemplate.Description #ENDIF #Subject #ENDWITH #ELSE #NameOrAlias #IF(#Description) #Description #ENDIF #Subject #ENDIF #ENDIF #SET("Alternate", 1-#Alternate) #ENDLOCAL #ENDIF #ENDLOCAL #ENDIF #ENDLOOP )}) #IF(NOT #IsEmpty(#AccordionContent)) #GUI.item( "pos" = {(#Position)}, "open" = {(#IF(#ActivePosition == #Position)1#ELSE0#ENDIF)}, "title" = {(#NameOrAlias )}, "content" = {( #AccordionContent[0]
{Event} {Subject} {active}
)} ) #ENDIF #ENDLOCAL #ENDLOOP #ENDLOCAL #ENDGUI
#LOOP(#MAILTYPETEMPLATESADMIN(#Shop)) #LOCAL("DisplayFeature", #FeaturedActionAvailable(#Shop.Object, #Object)) #IF(#DisplayFeature NE "NotVisible") #LOCAL("_Error", #GET("FormErrorAlias.".#Alias)) #IF(#DisplayFeature EQ "NotAllowed") #ELSE #IF(#FUNCTION("EXISTSCHILD", #Shop.Child.MailTypes.Object, #Alias)) #WITH(#FUNCTION("CHILD", #Shop.Child.MailTypes.Object, #Alias)) #ENDWITH #ELSE #ENDIF #ENDIF #SET("Alternate", 1-#Alternate) #ENDLOCAL #ENDIF #ENDLOCAL #ENDLOOP
{Event} {Subject} {active}
#NameOrAlias #Subject #MailTypeTemplate.NameOrAlias #IF(#MailTypeTemplate.Description) #MailTypeTemplate.Description #ENDIF #Subject #NameOrAlias #IF(#Description) #Description #ENDIF #Subject
#REM#ENDREM #ENDBLOCK