Untitled

<script language="cache" method="OnPreHTTP" arguments="" returntype="%Boolean">

       

        ; Initialize:

        set return = 1

       

        //set return = ##super() // Invoke the overridden superclass method - ONLY IF A DIFFERENT SUPER CLASS THAN %CSP.Page is specified.

        set check("cmsStoryObj") = ##class(dt.cms.schema.CMSStory).%OpenId($get(%request.Data("cid", 1)))

        set check("redirect") = "http://special.registerguard.com" _ ..EscapeURL($get(%request.Data("uri", 1)))

        set check("status") = "301 Moved Permanently"

       

        ; Is the CMSStory an object?

        if ($isobject(check("cmsStoryObj")) <= 0) {

               

                ; No object found, so redirect to archive:

                set %response.Redirect = check("redirect")

                set %response.Status = check("status")

               

        } else {

               

                ; Is the CMSStory's DBO story an object?

                if (($isobject(check("cmsStoryObj").getStory()) <= 0)||(check("cmsStoryObj").getStory().storyId = 3268)) {

                       

                        ; No object found, so redirect to archive:

                        set %response.Redirect = check("redirect")

                        set %response.Status = check("status")

                       

                }

               

        }

       

        quit return // Exit.

       

</script>