analytics/templates/ps/portal/save_as_run_option.xts

<?xml version="1.0" encoding="UTF-8"?>
<!--
    Licensed Materials - Property of IBM

    IBM Cognos Products: ps

    (C) Copyright IBM Corp. 2005, 2015

    US Government Users Restricted Rights - Use, duplication or disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
-->

<!--
   Copyright (C) 2008 Cognos ULC, an IBM Company. All rights reserved.
   Cognos (R) is a trademark of Cognos ULC, (formerly Cognos Incorporated).
-->
<!-- Used for the saveAs runOption -->
<xts:morphlet xmlns:xts="http://developer.cognos.com/schemas/xts/" messageBase="messages/portalRL.xml, messages/portal.xml">
	<!-- formlogic_init ===============================================================================================	-->	
	<xts:block id="formlogic_init" type="exec" mode="interpret" processor="XSLT" path="/logicsheets/formlogic_init.xslt" nodelist="env,credential,system,http"/>
	
	<!-- If the CM roots (personal/public) have not been determined (i.e. exist in the session) then get them.  ======================= -->
	<xts:block id="getRootNames" path="portal/cmroots.xml" condition=".[not(/root/session/param[@name = 'e_proot'])]" processor="XSLT" type="exec" mandatory="false">
		<xts:logicsheet path="logicsheets/buslogic.xslt"/>
	</xts:block>
	
	<!--
	===============================================================================================
	getContent - get our data from Content Manager
	===============================================================================================
	-->
	<xts:block id="getContent" processor="XSLT" type="exec" dependency="formlogic_init getRootNames">
		<xts:logicsheet path="logicsheets/buslogic.xslt"/>
		<xsl:stylesheet 
			xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" 
			xmlns:send="http://developer.cognos.com/schemas/xts/logic-sheet/xslt/brl/1/" 
			xmlns:cm="http://developer.cognos.com/schemas/xts-cm/1/">
			<xsl:output method="xml" version="1.0" encoding="UTF-8" indent="no"/>

			<xsl:key name="env-param" match="/root/env/param" use="@name"/>
			
			<xsl:variable name="containerPath">
				<xsl:choose>
					<xsl:when test="string(/root/env/param[@name='so.searchPath'])!=''"><xsl:value-of select="/root/env/param[@name='so.searchPath']"/></xsl:when>
					<xsl:when test="string(/root/env/param[@name = 'm_ro_saveAsPath'])!=''"><xsl:value-of select="/root/env/param[@name = 'm_ro_saveAsPath']"/></xsl:when>
					<xsl:when test="string(/root/env/param[@name='m_path'])!=''"><xsl:value-of select="/root/env/param[@name='m_path']"/></xsl:when>
				</xsl:choose>
			</xsl:variable> 
									
			<xsl:template match="/">
				<xts:sequence>
					<!-- If a new path has been chosen (or handed to us on the request) then get its ancestors.-->
					<xsl:if test=" $containerPath != '' ">
           	<xts:append>
							<containerPath>							
								<xts:transform src="transforms/CM/post-process.xslt" processor="XSLT">
									<send:request provider="cm">
										<xts:transform src="transforms/CM/pre-process.xslt" processor="XSLT">
											<cm:query xmlns:cm="http://developer.cognos.com/schemas/xts-cm/1/">
												<cm:search>
													<xsl:value-of select="$containerPath"/>
												</cm:search>
												<cm:properties>
													<cm:property name="defaultName"/>
													<cm:property name="searchPath"/>
													<cm:property name="permissions"/>
													<cm:property name="storeID"/>
													<cm:property name="ancestors"/>
												</cm:properties>
											</cm:query>
										</xts:transform>
									</send:request>
								</xts:transform>
							</containerPath>					  
						</xts:append>
					</xsl:if>
					
					<xts:append>
						<myfolder>							
							<xts:transform src="transforms/CM/post-process.xslt" processor="XSLT">
									<send:request provider="cm">
									   <xts:transform src="transforms/CM/pre-process.xslt" processor="XSLT">
										<cm:query xmlns:cm="http://developer.cognos.com/schemas/xts-cm/1/">
											<cm:search>~/folder</cm:search>
											<cm:properties>
												<cm:property name="defaultName"/>
												<cm:property name="permissions"/>
												<cm:property name="storeID"/>
												<cm:property name="parent"/>
											</cm:properties>
										</cm:query>
									   </xts:transform>
								</send:request>
							</xts:transform>
						</myfolder>					  
					</xts:append>
				</xts:sequence>
				<!-- need to update and keep the default location -->
				<xts:sequence>
					<xsl:choose>
						<xsl:when test="/root/env/param[@name = 'so.defaultLocation']">
							<xts:replace select="/root/env/param[@name='so.defaultLocation']">
								<param name="so.defaultLocation"><xsl:value-of select="$containerPath"/></param>
							</xts:replace>
						</xsl:when>
						<xsl:otherwise>
							<xts:append select="/root/env">
								<param name="so.defaultLocation"><xsl:value-of select="$containerPath"/></param>
							</xts:append>
						</xsl:otherwise>
					</xsl:choose>
				</xts:sequence>
			</xsl:template>
		</xsl:stylesheet>
	</xts:block>
	
	<xts:block id="validatePath" processor="XSLT" type="exec" dependency="formlogic_init getContent" mandatory="false">
		<xts:logicsheet path="logicsheets/buslogic.xslt"/>
		<xsl:stylesheet 
			xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" 
			xmlns:send="http://developer.cognos.com/schemas/xts/logic-sheet/xslt/brl/1/" 
			xmlns:xtsext="xalan://com.cognos.xts.ext.XTSExt"
			xmlns:cm="http://developer.cognos.com/schemas/xts-cm/1/">
			<xsl:output method="xml" version="1.0" encoding="UTF-8" indent="no"/>
			<!-- Validate the path and update m_ro_saveAsPath-->
			
			<!-- Determine if we can write to the selected folder. -->
			<xsl:variable name="canSave" select="contains(/root/containerPath/cm:queryResponse/*/cm:permissions, 'write') and contains(/root/containerPath/cm:queryResponse/*/cm:permissions, 'traverse')"/>
			
			<xsl:variable name="path" select="/root/containerPath/cm:queryResponse/*/cm:searchPath"/>
			
			<!-- Assume calling for saving as reportView so can't be  saved in root -->
			<xsl:variable name="validPath">
				<xsl:choose>
					<xsl:when test="$path = '' or $path = '/content' or not($canSave)"/>
					<xsl:otherwise><xsl:value-of select="$path"/></xsl:otherwise>
				</xsl:choose>
			</xsl:variable>

			<xsl:template match="/">
				<xts:sequence>
					<xsl:choose>
						<xsl:when test="/root/env/param[@name = 'm_ro_saveAsPath']">
							<xts:replace select="/root/env/param[@name='m_ro_saveAsPath']">
								<param name="m_ro_saveAsPath"><xsl:value-of select="$validPath"/></param>
							</xts:replace>
						</xsl:when>
						<xsl:otherwise>
							<xts:append select="/root/env">
								<param name="m_ro_saveAsPath"><xsl:value-of select="$validPath"/></param>
							</xts:append>
						</xsl:otherwise>
					</xsl:choose>
				</xts:sequence>
			</xsl:template>
		</xsl:stylesheet> 
	</xts:block>
	
	<!-- Load default root map for CM objects  ====================================	-->
	<xts:block id="getRootMap" type="exec" mode="input"  processor="XML" path="/portal/uiExtensions.xml" mandatory="false">
		<xts:logicsheet path="/logicsheets/uiobjects/uiobjects_roots.xslt"/>
	</xts:block>
		
	<!--
	===============================================================================================
	renderPage - render the HTML page
	===============================================================================================
	-->
	<xts:block id="renderPage" mode="output" processor="XSLT" type="exec" mimeType="text/html" dependency="formlogic_init getRootNames getContent validatePath getRootMap">
		<xts:logicsheet path="logicsheets/portal.xsl"/>
		<xts:logicsheet path="logicsheets/presentation/dialog/framework.xsl"/>
		<xts:logicsheet path="logicsheets/presentation/layout.xsl"/>
		<xts:logicsheet path="logicsheets/presentation/dialog/presentation.xsl"/>
		<xts:logicsheet path="logicsheets/presentation/controls/framework.xsl"/>
		<xts:logicsheet path="logicsheets/presentation/controls/presentation.xsl"/>
		<xts:logicsheet path="logicsheets/formlogic.xslt"/>
		<xts:logicsheet path="logicsheets/validation.xslt"/>		
		<xts:logicsheet path="logicsheets/presentation/touch_up.xslt"/>

		<xsl:stylesheet version="1.0" 
			xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
			xmlns:cm="http://developer.cognos.com/schemas/xts-cm/1/" 
			xmlns:pf="http://developer.cognos.com/schemas/xts/pf"				
			xmlns:lyt="http://developer.cognos.com/schemas/xts/logicsheets/xslt/presentation/layout/" 
			xmlns:dp="http://developer.cognos.com/schemas/xts/logicsheets/xslt/presentation/dialog/presentation/" 
			xmlns:df="http://developer.cognos.com/schemas/xts/logicsheets/xslt/presentation/dialog/framework/" 
			xmlns:cf="http://developer.cognos.com/schemas/xts/logicsheets/xslt/presentation/controls/framework/" 
			xmlns:cp="http://developer.cognos.com/schemas/xts/logicsheets/xslt/presentation/controls/presentation/"
			xmlns:utml="http://developer.cognos.com/schemas/xts/logicsheet/xslt/formlogic/"
			xmlns:xtsext="xalan://com.cognos.xts.ext.XTSExt"
			exclude-result-prefixes="xsl xts cm pf df lyt dp cf cp utml xtsext">

			<xsl:output method="html" version="1.0" encoding="UTF-8" indent="no"  omit-xml-declaration="yes"/>
			<pf:variables/>
			<!-- start the output -->
			<xsl:template match="/root">
			
				<xsl:variable name="mname" select="'save_as_run_option.xts'"/>
				<xsl:variable name="path" select="string(key('env-param','m_ro_saveAsPath'))"/>
				
				<!-- check if MyFldr exists and user can write to it -->
				<xsl:variable name="validMyFldr" select="/root/myfolder/cm:queryResponse/*/cm:defaultName and contains(string(/root/myfolder/cm:queryResponse/*/cm:permissions),'write')"/>
				
				<xsl:variable name="new-class">
					<xsl:if test="string(key('env-param','m_class')) != ''">
						<xsl:value-of select="key('env-param','m_class')"/>
					</xsl:if>
				</xsl:variable>						
				
				<xsl:variable name="myFoldersPath" select="concat('storeID(&quot;' , /root/myfolder/*/*/cm:storeID   ,  '&quot;)')"/>
				<xsl:variable name="myFoldersID" select="/root/myfolder/*/*/cm:storeID"/>

				<xsl:variable name="accountPath" select="/root/myfolder/*/*/cm:parent/*/cm:searchPath"/>
				
				<!-- Determine if path coming in is My Folders -->
				<xsl:variable name="myFldrId" select="string(/root/myfolder/*/*/cm:storeID)"/>
				<xsl:variable name="pathId" select="string(containerPath/cm:queryResponse/*/cm:storeID)"/>
				<!-- Determine if the current path points to the personal folder space  -->
				<xsl:variable name="isPersonalPath" select="$myFldrId = $pathId"/>
				<!-- determine if current path is under personal folder -->
				<xsl:variable name="underMyFldr" select="boolean(containerPath/cm:queryResponse/*/cm:ancestors/*/cm:storeID[ . =$myFldrId])"/>
				<!-- If the current path leads to the personal folder space OR the object we are creating does not belong in the main portal content space then do not show the option to place the new entry in "My Folders" -->
				<xsl:variable name="showMyFoldersChoice" select="not($isPersonalPath) and /root/CMRootMap/class[@name=$new-class]/@root = '/content'"/>

				
				<xsl:variable name="browserTitle"><xts:string id="IDS_SAVE_AS_CUSTOMVIEW_TITLE"/></xsl:variable>
        <xsl:text disable-output-escaping='yes'>&lt;!DOCTYPE html></xsl:text><dp:page longTitle="$browserTitle">
					<dp:meta>
						<pf:meta/>	<!-- Standard meta tags -->
					</dp:meta>
					<!-- get passed in parameters -->
					<dp:script>
						<pf:help context="HID_DISTRIB_SAVE"/>		 <!-- Help system -->
						<script language="javascript">
							
							var MY_FOLDER_PATH = "<xsl:value-of select="xtsext:javascriptencode(string($myFoldersPath))"/>";
							var MY_FOLDERS_ID = "<xsl:value-of select="xtsext:javascriptencode(string($myFoldersID))"/>";
							
							function init()
							{
								if (document.pform.m_ro_saveAsName) {
									document.pform.m_ro_saveAsName.focus();
								}
								// Update the display path of MF
								if (<xsl:value-of select="$isPersonalPath"/>) {
									displayMF();
								}
							}	
							
							function validate()
							{
								<!-- validate the name -->
								if (document.pform.m_ro_saveAsName)
								{		
									if ( trim( document.pform.m_ro_saveAsName.value ) == "" )
									{
										alert( "<xts:string id="IDS_NEW_ERR_NO_NAME" encode="javascript"/>" );
										document.pform.m_ro_saveAsName.focus();
										return false;
									}
								}
															
								<!-- validate the destination -->
								if (document.pform.m_ro_saveAsPath.value == "")
								{		
									alert( "<xts:string id="IDS_SAVE_AS_NO_DESTINATION" encode="javascript"/>" );
									return false;
								}

								return true;								
							}			
							
							function displayMF()
							{
								var pathdiv = document.getElementById('path');
								var mfdiv = document.getElementById('myfolder');
								var sfm = document.getElementById('showMyFldr');
								mfdiv.style.display = "inline";
								pathdiv.style.display = "none";	
						        sfm.style.display = "none";
							}
							
							function setMyFoldersPath()
							{
							    
								// Set the destination path
								document.pform.m_ro_saveAsPath.value = MY_FOLDER_PATH;
								
								// Update state params for the alternate location page so it knows that we switched the target.
								if (document.pform.elements["so.searchPath"]) {
									document.pform.elements["so.searchPath"].value = MY_FOLDER_PATH;
								}
								if (document.pform.elements["so.defaultLocation"]) {
									document.pform.elements["so.defaultLocation"].value = MY_FOLDER_PATH;		
								}
								if (document.pform.elements["so.id"]) {
									document.pform.elements["so.id"].value = MY_FOLDERS_ID;		
								}
								if (document.pform.elements["so.storeID"]) {
									document.pform.elements["so.storeID"].value = MY_FOLDER_PATH;		
								}
							}							
						</script>
						
						<script language="javascript" src="{$webcontent}/{$app}/js/utilities.js"></script>
					</dp:script>
					<utml:form name="pform" method="post" action="{$gateway}">
						<utml:exclusion-list><xsl:value-of select="' pageitem selected_path '"/></utml:exclusion-list>
						
						<utml:input type="hidden" name="visited_save_as" value="true" utml:update="false"/>
									
						<!-- Header -->
						<!-- =============================================================================== -->
						<dp:header>
  								<dp:title><xsl:value-of select="$browserTitle"/></dp:title>
							<dp:description><xts:string id="IDS_NEW_INTRO_SAVE_RUN_OPTIONS"/></dp:description>
						</dp:header>
												
						<!-- Name / Description -->
						<!-- =============================================================================== -->
						<lyt:layout style="1">
							<lyt:section>
								<dp:input>
									<dp:section1><label for="m_ro_saveAsName"><xts:string id="IDS_NEW_NAME"/></label></dp:section1>
									<dp:section2>
										<utml:input type="text" name="m_ro_saveAsName" id="m_ro_saveAsName" size="53" maxlength="256">
											<utml:value>
												<xsl:choose>
													<xsl:when test="string-length(key('env-param','m_ro_saveAsName')) &gt; 256">
														<xsl:value-of select="substring(key('env-param','m_ro_saveAsName'),0,257)"/>
													</xsl:when>
													<xsl:otherwise>
														<xsl:value-of select="key('env-param','m_ro_saveAsName')"/>
													</xsl:otherwise>
												</xsl:choose>
											</utml:value>
										</utml:input>			
									</dp:section2>
								</dp:input>
							</lyt:section>
						</lyt:layout>
						
						<!-- Path / Destination folder -->
						<!-- =============================================================================== -->
						<lyt:layout style="1" joinSection="yes">
							<lyt:section>								
								<dp:list>
									<dp:section><dp:label><xts:string id="IDS_NEW_DESTINATION"/></dp:label></dp:section>
									<dp:section wrap="wrap">									              
										<div id="path" style="display:inline; ">
											<xsl:choose>
												<xsl:when test="$path =''">
													<dp:inactiveText><xts:string id="IDS_NONE"/>&#160;&#160;</dp:inactiveText>
												</xsl:when>
												<xsl:otherwise> 
													<dp:text valign="top" wrap="wrap">
													<xsl:variable name="rootPath">
														<xsl:choose>
															<xsl:when test="$isPersonalPath or $underMyFldr">
																<xsl:value-of select="concat($accountPath, '/folder')"/>
															</xsl:when>		
															<xsl:when test="starts-with($path, '/content')">
																<xsl:value-of select="$defaultContentRoot"/>
															</xsl:when>
														</xsl:choose>
													</xsl:variable>
													<cf:do-the-path-link>
														<cf:param name="familytree">containerPath/cm:queryResponse/*/cm:ancestors</cf:param>
														<cf:param name="familymember">containerPath/cm:queryResponse/*/cm:defaultName</cf:param>
														<cf:param name="home"><xsl:value-of select="$rootPath"/></cf:param>
													</cf:do-the-path-link>
													</dp:text> 				
												</xsl:otherwise>
											</xsl:choose>
										</div>
									</dp:section>
									<dp:section wrap="wrap">
										<div id="myfolder" style="padding:0px; display:none;">
											<xsl:if test="$validMyFldr">
												<dp:text><xsl:value-of select="/root/myfolder/cm:queryResponse/*/cm:defaultName"/></dp:text>
											</xsl:if>
										</div>
									</dp:section>
									<dp:section>
									    <div>
										<dp:group>
											<dp:groupItem valign="top">
													<utml:a utml:op="maintain">
														<utml:target>
															<xsl:value-of select="$app"/>/select/select.xts<xsl:text/>
														</utml:target>														
														<xsl:text/><xts:string id="IDS_SELECT_ANOTHER_FOLDER"/><xsl:text/>
													</utml:a>
													<img height="1" width="5" border="0" alt="">
														<xsl:attribute name="src"><xsl:value-of select="$webcontent"/>/images/space.gif</xsl:attribute>
													</img>
											</dp:groupItem>
											<dp:groupItem valign="top">
												<div id="showMyFldr" style="padding:0px; ">
													<xsl:if test="$validMyFldr">
														<a href="#">
															<xsl:attribute name="onclick">setMyFoldersPath();displayMF()</xsl:attribute>
															<xsl:text/><xts:string id="IDS_SELECT_MY_FLDR_CM_NAME"><xts:param name="myfldr"><xsl:value-of select="string(/root/myfolder/cm:queryResponse/*/cm:defaultName)"/></xts:param></xts:string><xsl:text/>
														</a>
													</xsl:if>
												</div>
											</dp:groupItem>
										</dp:group>
										</div>
									</dp:section>
								</dp:list>

								<!-- hidden variables required for select.xts morphlet -->		
								<utml:input type="hidden" name="so.select" value="reportView.container" utml:update="false"/>						
								<utml:input type="hidden" name="so.return.m"  utml:update="false">
									<utml:value><xsl:value-of select="concat($app,'/',$mname)"/></utml:value>
								</utml:input>
							</lyt:section>	
						</lyt:layout>												
					
						<!-- Footer -->
						<!-- =============================================================================== -->
						<dp:footer>
							<df:button df:id="IDS_OK" utml:validate="true" df:style="stack-down-save"/>
							<df:button df:id="IDS_CANCEL" df:style="stack-down"/>
						</dp:footer>		
						
					</utml:form>
				</dp:page>
			</xsl:template>
		</xsl:stylesheet>
	</xts:block>
	
	
	<!--
	===============================================================================================
	debug
	===============================================================================================
	-->
	<xts:block id="debug" dependency="renderPage"  condition=".[ /root/session/param[@name='debug'] = '1' ]"  type="exec" mode="output" processor="XSLT" mandatory="false" mimeType="text/html">
		<xts:logicsheet path="logicsheets/debuglogic.xslt"/>
		<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:dbg="http://developer.cognos.com/schemas/xts/logicsheets/xslt/debug/" exclude-result-prefixes="dbg">
			<xsl:output method="html" version="1.0" encoding="UTF-8" indent="no" omit-xml-declaration="yes"/>
			<xsl:template match="/">
				<dbg:dumpxml select="/root"/>
			</xsl:template>
		</xsl:stylesheet>
	</xts:block>
</xts:morphlet>