mhulse

<script language="cache" method="dboStoryStatus" arguments="cmsStory:dt.cms.schema.CMSStory=-1" returntype="%Integer" procedureblock="1">
	
	/// About: Return 1 if the given story has a status of "ready", "output", "web" or "archive".
	/// Example call:
	/// ##class(csp.rg.assets.methods.story).dboStoryStatus()
	
	set return = 0
	
	/*
	** 

mhulse

<script language="cache" method="dboStoryStatus" arguments="cmsStory:dt.cms.schema.CMSStory=-1" returntype="%Integer" procedureblock="1">
	
	/// About: Return 1 if the given story has a status of "ready", "output", "web" or "archive".
	/// Example call:
	/// ##class(csp.rg.assets.methods.story).dboStoryStatus()
	
	set return = 0
	
	/*
	** 

mhulse

<script language="cache" method="uri" arguments="section:dt.cms.schema.Section=-1, story:dt.cms.schema.CMSStory=-1, layout:dt.cms.schema.LayoutFull=-1" returntype="%String" procedureblock="1">
	
	/// Returns a story link; InCopy field "WebLink" trumps story link.
	/// All parameters required.
	/// Example call: ##class(csp.rg.assets.methods.story).uri(gSection, gStory, gFullLayout)
	
	set return = ""
	
	set:( ' $isobject(story)) story = ##class(dt.cms.schema.CMSStory).%OpenId(story)
	

mhulse

<script language="cache" method="runDate" arguments='cmsStory:dt.cms.schema.CMSStory=-1' returntype="%String" procedureblock="1">
	
	set return = ""
	try {
		set cmsStoryId = cmsStory.%Id()
		&sql(
			SELECT runDate INTO :return
			FROM dbo.adDbPageInfo api, dbo.storyPageElements spe, dbo.story sty, dt_cms_schema.CMSStory cms
			WHERE api.logicalPageId = spe.logicalPagesId
			AND sty.storyId = spe.storyId

mhulse

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="22">
<Class name="dbo.FileHeader">
<IncludeCode>Audience</IncludeCode>
<ProcedureBlock>0</ProcedureBlock>
<SqlRowIdPrivate>1</SqlRowIdPrivate>
<SqlTableName>FileHeader</SqlTableName>
<Super>%Persistent</Super>
<TimeCreated>61081,2615.061796</TimeCreated>

mhulse

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

Story: http://registerguard.com/rg/news/local/32232112-75/its-getting-close-to-wire-for-eweb-master-development-contenders.html.csp
<csp:object name="gStory" classname="dt.cms.schema.CMSStory" objid="32232112">

Dump the CMSStory object:

mhulse

<script language="cache" runat="server">
	
	//--------------------------------------------------------------------------
	//
	// Debug:
	//
	//--------------------------------------------------------------------------
	
	write !, "<pre>"
	try {

mhulse

<csp:if condition='$data(%request.Data("meta", 1))'>
	
	<hr>
	
	<div class="wiffle">
		
		<section>
			
			<h1 class="head">Meta!</h1>
			

mhulse

#[ new id set id = $get(%request.Data("id", 1)) ]#

<csp:if condition='$number((id \ 1), 0)'>
	
	<script language="cache" runat="server">
		
		new publication, section, story, layout
		
		set publication = ##class(dt.cms.schema.Publication).%OpenId(##class(dt.cms.support.Utilities).getPublicationID("rg")) // Publication name is "rg".
		

mhulse

// Create the plugin:
window.jQuery.fn.autosize = function() {
    return autosize(this);
};

// Use the plugin:
jQuery(function($){
    $('textarea').autosize();
});