#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") #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#ENDIF
#ENDIF #ENDLOCAL #ENDIF