#IF(#Shop.FeatureMaxValue.Newsletter AND NOT #Shop.NewsletterHideSubscrInCheckout AND #COUNT(#Shop.VisibleNewsletterCampaigns)) #LOCAL("CanSelectNewsletter", 1) #LOCAL("SessionUser", #Session.User) #IF(#SessionUser AND NOT #SessionUser.IsAnonymous) #IF(NOT #SessionUser.NewsletterShopSelectionInCheckout) #SET("CanSelectNewsletter", 0) #ELSIF(#DEFINED(#SessionUser.BillingAddress) AND #SessionUser.BillingAddress.ID != #ID) #SET("CanSelectNewsletter", 0) #ELSIF(#INPUT.ViewAction NE "ViewEditAddress" AND #INPUT.ViewAction NE "ViewAddress" AND NOT #BasketOrderProcess.PreviousStep.ViewAction.Alias) #SET("CanSelectNewsletter", 0) #ENDIF #ENDIF #ENDLOCAL #IF(#CanSelectNewsletter)
#IF(NOT #Shop.NewsletterTextSubscrInCheckout)

{QuestSubcribeNL} {InfoUnsubcribeNL}

#ELSIF(#Shop.NewsletterTextSubscrInCheckout) #Shop.NewsletterTextSubscrInCheckout[0] #ENDIF #LOCAL("UserEMail", #Session.User.EMail) #IF(NOT #DEFINED(#UserEMail))#SET("UserEMail", #INPUT.EMail)#ENDIF #LOCAL("CountVisibleNewsletterCampaigns", #COUNT(#Shop.VisibleNewsletterCampaigns)) #LOOP(#Shop.VisibleNewsletterCampaigns)#LOCAL("HasSelected", 0) #LOCAL("LocalAddressees",#Child.Addressees) #IF(#UserEMail)#IF(#FUNCTION("EXISTSCHILD", #LocalAddressees.Object, #UserEMail))#WITH(#FUNCTION("CHILD", #LocalAddressees.Object, #UserEMail)) #IF(#Unsubscribed == 2)#SET("HasSelected", 1)#ENDIF #ENDWITH#ENDIF#ENDIF #ENDLOCAL #LOCAL("Checked", 0)#LOOP(#NewsletterCampaigns)#IF(#DEFINED(#Value) AND #Value == #ID)#SET("Checked", 1)#ENDIF#ENDLOOP #ENDLOCAL #ENDLOCAL#ENDLOOP #ENDLOCAL #ENDLOCAL
#NameOrAlias#IF(#Description)
#Description[0]#ENDIF
#ENDIF #ENDLOCAL #ENDIF