mhulse

<csp:comment>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</csp:comment>

<script language="cache" method="storyText" arguments='cmsStory:dt.cms.schema.CMSStory=-1, extractFlag:%String = "none", wordLimit:%String="", charLimit:%String="", sentenceLimit:%String="", paragraphLimit:%String="", ellipsis:%String="TRUE", update:%String=""' returntype="%String" procedureblock="1">
	
	set return = ""
	
	if ($isobject(cmsStory)) {
		
		// Get the text:
		

mhulse

<csp:object name="gStory" classname="dt.cms.schema.CMSStory" objid="28222340">

<csp:if condition=($isobject(gStory))>
	
	#[ new text set text = ##class(dt.cms.support.Rules).extractStoryElement("Text", gStory, 0) ]#
	
	<csp:if condition=($length(text))>
		
		<h1>With ad:</h1>
		

mhulse

<!-- ... content before ... -->

<section>
	
	<hgroup>
		<h1>Heading</h1>
		<h2>Subheading</h2>
	</hgroup>
	
	<figure itemscope itemtype="http://schema.org/Person">

mhulse

<!-- ... content before ... -->

<section>
	
	<!-- Section: "Today's stories" -->
	
	<h1>Today's stories</h1>
	
	<section>
		

mhulse

<script language="cache" method="OnPreHTTP" arguments="" returntype="%Boolean">
	
	do %response.SetHeader("Content-Type", "text/plain")
	
	quit 1 // Exit.
	
</script>

<csp:object name="gStory" classname="dt.cms.schema.CMSStory" objid="28188418">

mhulse

<csp:comment>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</csp:comment>

<script language="cache" method="imageUri" arguments='field:%String="", cmsStory:dt.cms.schema.CMSStory=-1' returntype="%String" procedureblock="1">
	
	set return = ""
	
	if ($length(field) && $isobject(cmsStory)) {
		
		set cmsPictureId = ##class(dt.cms.support.Rules).extractPicture(field, cmsStory, 0)
		

mhulse

<csp:comment>
	/// Sort ListObjects based on one or more properties.<br>
	/// obj: A list object.<br>
	/// dir: Direction, 1 ascending, -1 descending.<br>
	/// prp: A property name.<br>
	/// (c) 2008 J.Kavay<br>
	/// Ref: http://groups.google.com/group/intersystems-public-cache/browse_thread/thread/289bc2e02e4875ff
</csp:comment>

<script language="cache" method="multiSortListObj" arguments='obj:%ListOfObjects=-1, dir:%Integer=1, prp...' returntype="%ListOfObjects" procedureblock="1">

mhulse

<csp:comment>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</csp:comment>

<script language="cache" method="cmsPubTracking" arguments='cmsStory:dt.cms.schema.CMSStory=-1, latest:%Integer=0' returntype="%TimeStamp" procedureblock="1">
	
	set return = ""
	
	; By default, get the oldest entry:
	set order = $case(latest, 1:"DESC", :"ASC")
	
	try {

mhulse

<!--|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||-->

<csp:comment>
	/// buildCommentsSection.csp
	/// Builds comments for a specific section
	/// 3/21/12
	/// Courtesy Trib Steve / Pittsburgh Tribune Review
</csp:comment>

#[ set myBlogDefaultMessage = "There are no recent comments" ]#