Caché DTI ContentPublisher v7.7.3: Handling a "WebEmbed" field from InCopy...

story.csp

<dti:file:include base="assets" file="/includes/webembed.csp" />

webembed.csp

<dti:story:element:exist field="WebEmbed">
	
	<script language="cache" runat="server">
		
		; Declare:
		new webembed
		
		; Initialize:
		set webembed = ##class(%CSP.Page).UnescapeHTML(##class(dt.cms.support.Rules).extractStoryElement("WebEmbed", gStory, 0, "textonly"))
		
		; Scrub:
		set webembed = $replace(webembed, $c(38), "&#38;")     ; Ampersand.
		set webembed = $replace(webembed, $c(8220), """")      ; Left double quotation mark.
		set webembed = $replace(webembed, $c(8221), """")      ; Right double quotation mark.
		set webembed = $replace(webembed, $c(8216), "&#8216;") ; Left single quotation mark.
		set webembed = $replace(webembed, $c(8217), "&#8217;") ; Right single quotation mark.
		
		; Resolve expressions:
		set webembed = $$resolvePP^%cspQuote(webembed) // Expand any ##()## in the stream.
		
	</script>
	
	#(webembed)#
	
	#[ kill webembed ]#
	
</dti:story:element:exist>