Integration of all the good features from the SRU branch, plus much beneficial refactoring.
This commit is contained in:
sb
parent
41f45eb3cd
commit
cde22a9e96
|
|
@ -9,8 +9,8 @@
|
|||
Transform ADL into (partial) controller classes
|
||||
|
||||
$Author: sb $
|
||||
$Revision: 1.28 $
|
||||
$Date: 2008-05-16 15:26:20 $
|
||||
$Revision: 1.29 $
|
||||
$Date: 2008-05-19 14:49:18 $
|
||||
-->
|
||||
|
||||
<!-- WARNING WARNING WARNING: Do NOT reformat this file!
|
||||
|
|
@ -71,7 +71,7 @@
|
|||
//
|
||||
// Controller for auto-generated forms for editing <xsl:value-of select="@name"/>s
|
||||
// Automatically generated from application description using
|
||||
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.28 $', 10)"/>
|
||||
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.29 $', 10)"/>
|
||||
//
|
||||
// This file is automatically generated; DO NOT EDIT IT.
|
||||
//
|
||||
|
|
@ -128,7 +128,7 @@ namespace <xsl:value-of select="$controllerns"/> {
|
|||
//
|
||||
// Controller for auto-generated forms for editing <xsl:value-of select="@name"/>s
|
||||
// Automatically generated from application description using
|
||||
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.28 $', 10)"/>
|
||||
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.29 $', 10)"/>
|
||||
//
|
||||
// This file is automatically generated; DO NOT EDIT IT.
|
||||
//
|
||||
|
|
@ -531,10 +531,51 @@ namespace <xsl:value-of select="$controllerns"/> {
|
|||
ISession hibernator =
|
||||
NHibernateHelper.GetCurrentSession( <xsl:if test="$authentication-layer = 'Database'">Session[ NHibernateHelper.USERTOKEN],
|
||||
Session[NHibernateHelper.PASSTOKEN]</xsl:if>);
|
||||
IList<<xsl:value-of select="concat( $entityns, '.', @name)"/>> instances =
|
||||
hibernator.CreateCriteria(typeof(<xsl:value-of select="concat($entityns, '.', @name)"/>))<xsl:for-each select="adl:property[@distinct='user']">
|
||||
<xsl:value-of select="concat( '.AddOrder( new Order( "', @name, '", true))')"/>
|
||||
</xsl:for-each>.List<<xsl:value-of select="concat($entityns, '.', @name)"/>>();
|
||||
|
||||
ICriteria search =
|
||||
hibernator.CreateCriteria(typeof(<xsl:value-of select="concat( $entityns, '.', @name)"/>));
|
||||
|
||||
<xsl:for-each select="adl:property">
|
||||
<xsl:variable name="base-type">
|
||||
<xsl:call-template name="base-type">
|
||||
<xsl:with-param name="property" select="."/>
|
||||
</xsl:call-template>
|
||||
</xsl:variable>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@type='message'">
|
||||
<!-- search.Add( Expression.Like( "<xsl:value-of select="@name"/>.LocalText", "%"+Params["<xsl:value-of select="concat( 'search_', @name)"/>"]+"%")); -->
|
||||
</xsl:when>
|
||||
<xsl:when test="$base-type = 'integer'">
|
||||
if ( ! String.IsNullOrEmpty( Params[ "<xsl:value-of select="concat( 'search_', @name)"/>"])) {
|
||||
search.Add( Expression.Eq( "<xsl:value-of select="@name"/>", Int32.Parse( Params["<xsl:value-of select="concat( 'search_', @name)"/>"])));
|
||||
}
|
||||
</xsl:when>
|
||||
<xsl:when test="$base-type = 'real'">
|
||||
if ( ! String.IsNullOrEmpty( Params[ "<xsl:value-of select="concat( 'search_', @name)"/>"])) {
|
||||
search.Add( Expression.Eq( "<xsl:value-of select="@name"/>", Int32.Parse( Params["<xsl:value-of select="concat( 'search_', @name)"/>"])));
|
||||
}
|
||||
</xsl:when>
|
||||
<xsl:when test="$base-type = 'money'">
|
||||
if ( ! String.IsNullOrEmpty( Params[ "<xsl:value-of select="concat( 'search_', @name)"/>"])) {
|
||||
search.Add( Expression.Eq( "<xsl:value-of select="@name"/>", Int32.Parse( Params["<xsl:value-of select="concat( 'search_', @name)"/>"])));
|
||||
}
|
||||
</xsl:when>
|
||||
<!-- xsl:when test="$base-type = 'entity'">
|
||||
search.Add( Expression.Like( "<xsl:value-of select="@name"/>.UserIdentifier", "%"+Params["<xsl:value-of select="concat( 'search_', @name)"/>"]+"%"));
|
||||
</xsl:when doesn't work -->
|
||||
<xsl:otherwise>
|
||||
if ( ! String.IsNullOrEmpty( Params[ "<xsl:value-of select="concat( 'search_', @name)"/>"])) {
|
||||
search.Add( Expression.Like( "<xsl:value-of select="@name"/>", "%"+Params["<xsl:value-of select="concat( 'search_', @name)"/>"]+"%"));
|
||||
}
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
|
||||
</xsl:for-each>
|
||||
<xsl:for-each select="adl:property[@distinct='user' or @distinct='all']">
|
||||
search.AddOrder(<xsl:value-of select="concat( ' new Order( "', @name, '", true)')"/>);
|
||||
</xsl:for-each>
|
||||
|
||||
IList<<xsl:value-of select="concat( $entityns, '.', @name)"/>> instances = search.List<<xsl:value-of select="concat( $entityns, '.', @name)"/>>();
|
||||
|
||||
<xsl:if test="$authentication-layer = 'Database'">
|
||||
PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
|
||||
|
|
@ -1036,6 +1077,28 @@ namespace <xsl:value-of select="$controllerns"/> {
|
|||
</xsl:choose>
|
||||
</xsl:template>
|
||||
|
||||
<!-- argument: a property
|
||||
returns 'true' if that property is of a type which makes it searchable,
|
||||
else 'false'. See also how search fields are generated in adl2views.xsl -->
|
||||
<xsl:template name="is-searchable">
|
||||
<xsl:param name="property"/>
|
||||
<xsl:variable name="base-type">
|
||||
<xsl:call-template name="base-type">
|
||||
<xsl:with-param name="property" select="$property"/>
|
||||
</xsl:call-template>
|
||||
</xsl:variable>
|
||||
<xsl:choose>
|
||||
<xsl:when test="$base-type='string'">true</xsl:when>
|
||||
<xsl:when test="$base-type='integer'">true</xsl:when>
|
||||
<xsl:when test="$base-type='real'">true</xsl:when>
|
||||
<xsl:when test="$base-type='money'">true</xsl:when>
|
||||
<xsl:when test="$base-type='text'">true</xsl:when>
|
||||
<xsl:when test="$base-type='entity'">true</xsl:when>
|
||||
<xsl:otherwise>false</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template name="fetch-property-instance">
|
||||
<!-- the property for which the instance is sought; it is assumed that
|
||||
the property passed has type 'entity' -->
|
||||
|
|
|
|||
|
|
@ -2,7 +2,8 @@
|
|||
<xsl:stylesheet version="1.0"
|
||||
xmlns="http://cygnets.co.uk/schemas/adl-1.2"
|
||||
xmlns:adl="http://cygnets.co.uk/schemas/adl-1.2"
|
||||
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
|
||||
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
|
||||
xmlns:msxsl="urn:schemas-microsoft-com:xslt">
|
||||
<!--
|
||||
Application Description Language framework
|
||||
adl2views.xsl
|
||||
|
|
@ -12,8 +13,8 @@
|
|||
Transform ADL into velocity view templates
|
||||
|
||||
$Author: sb $
|
||||
$Revision: 1.18 $
|
||||
$Date: 2008-05-16 15:26:20 $
|
||||
$Revision: 1.19 $
|
||||
$Date: 2008-05-19 14:49:23 $
|
||||
-->
|
||||
<!-- WARNING WARNING WARNING: Do NOT reformat this file!
|
||||
Whitespace (or lack of it) is significant! -->
|
||||
|
|
@ -111,7 +112,7 @@
|
|||
Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>,
|
||||
generated from ADL.
|
||||
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.18 $', 10)"/>
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.19 $', 10)"/>
|
||||
</xsl:comment>
|
||||
<xsl:call-template name="maybe-delete">
|
||||
<xsl:with-param name="entity" select="."/>
|
||||
|
|
@ -146,7 +147,7 @@
|
|||
Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>,
|
||||
generated from ADL.
|
||||
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.18 $', 10)"/>
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.19 $', 10)"/>
|
||||
</xsl:comment>
|
||||
<xsl:call-template name="install-scripts"/>
|
||||
</head>
|
||||
|
|
@ -232,7 +233,7 @@
|
|||
Auto generated Velocity <xsl:value-of select="@name"/> form for <xsl:value-of select="ancestor::adl:entity/@name"/>,
|
||||
generated from ADL.
|
||||
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.18 $', 10)"/>
|
||||
Generated using adl2views.xslt <xsl:value-of select="substring( '$Revision: 1.19 $', 10)"/>
|
||||
</xsl:comment>
|
||||
#capturefor( title)
|
||||
#if ( $instance)
|
||||
|
|
@ -356,7 +357,7 @@
|
|||
Auto generated Velocity form for <xsl:value-of select="ancestor::adl:entity/@name"/>,
|
||||
generated from ADL.
|
||||
|
||||
Generated using adl2views.xsl <xsl:value-of select="substring( '$Revision: 1.18 $', 10)"/>
|
||||
Generated using adl2views.xsl <xsl:value-of select="substring( '$Revision: 1.19 $', 10)"/>
|
||||
</xsl:comment>
|
||||
<xsl:call-template name="install-scripts"/>
|
||||
<script type='text/javascript' language='JavaScript1.2'>
|
||||
|
|
@ -510,6 +511,8 @@
|
|||
<xsl:call-template name="showprompt">
|
||||
<xsl:with-param name="node" select="."/>
|
||||
<xsl:with-param name="fallback" select="@name"/>
|
||||
<xsl:with-param name="entity" select="$form/ancestor::adl:entity"/>
|
||||
<xsl:with-param name="locale" select="$locale"/>
|
||||
</xsl:call-template>
|
||||
</a>
|
||||
</span>
|
||||
|
|
@ -581,6 +584,8 @@
|
|||
<xsl:call-template name="showprompt">
|
||||
<xsl:with-param name="node" select="."/>
|
||||
<xsl:with-param name="fallback" select="@name"/>
|
||||
<xsl:with-param name="entity" select="ancestor::adl:entity"/>
|
||||
<xsl:with-param name="locale" select="$locale"/>
|
||||
</xsl:call-template>
|
||||
</h3>
|
||||
</a>
|
||||
|
|
@ -641,6 +646,38 @@
|
|||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
|
||||
<td>
|
||||
<xsl:attribute name="colspan">
|
||||
<xsl:value-of select="count( field)"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:choose>
|
||||
<xsl:when test="@properties='listed'">
|
||||
<xsl:call-template name="list2">
|
||||
<xsl:with-param name="entity" select="$farent"/>
|
||||
<xsl:with-param name="fields" select="adl:field"/>
|
||||
</xsl:call-template>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:variable name="fields">
|
||||
<xsl:for-each select="$farent//adl:property[(@distinct='user' or @distinct='all') and not( @type='link' or @type='list')]">
|
||||
<adl:field>
|
||||
<xsl:attribute name="property">
|
||||
<xsl:value-of select="@name"/>
|
||||
</xsl:attribute>
|
||||
</adl:field>
|
||||
</xsl:for-each>
|
||||
</xsl:variable>
|
||||
<xsl:call-template name="list2">
|
||||
<xsl:with-param name="entity" select="$farent"/>
|
||||
<xsl:with-param name="fields" select="msxsl:node-set( $fields)"/>
|
||||
</xsl:call-template>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</td>
|
||||
|
||||
|
||||
<xsl:choose>
|
||||
<xsl:when test="@properties='listed'">
|
||||
<tr>
|
||||
|
|
@ -1120,7 +1157,7 @@
|
|||
Auto generated Velocity list for <xsl:value-of select="ancestor::adl:entity/@name"/>,
|
||||
generated from ADL.
|
||||
|
||||
Generated using adl2listview.xsl <xsl:value-of select="substring( '$Revision: 1.18 $', 10)"/>
|
||||
Generated using adl2listview.xsl <xsl:value-of select="substring( '$Revision: 1.19 $', 10)"/>
|
||||
</xsl:comment>
|
||||
<xsl:call-template name="install-scripts"/>
|
||||
</head>
|
||||
|
|
@ -1139,9 +1176,6 @@
|
|||
<!-- an entity of type adl:list -->
|
||||
<xsl:param name="list"/>
|
||||
<div class="content">
|
||||
<!-- this is a hack. There shouldn't be anything magic about a list named 'list'.
|
||||
We need lists (and forms) to have some sort of pragma to guide the transformation
|
||||
process -->
|
||||
<div class="controls">
|
||||
<span class="pagination status">
|
||||
Showing $instances.FirstItem - $instances.LastItem of $instances.TotalItems
|
||||
|
|
@ -1172,34 +1206,106 @@
|
|||
</a>
|
||||
</span>
|
||||
</xsl:if>
|
||||
<!-- div class="search">
|
||||
<form method="get">
|
||||
<xsl:attribute name="action">
|
||||
<xsl:value-of select="@name"/>.rails
|
||||
</xsl:attribute>
|
||||
<label for="searchexpr">Search:</label>
|
||||
<input type="text" id="searchexpr" name="searchexpr" size="12"/>
|
||||
</form>
|
||||
</div -->
|
||||
</div>
|
||||
<table>
|
||||
<form>
|
||||
<xsl:attribute name="action">
|
||||
<xsl:value-of select="concat( $list/@name, '.rails')"/>
|
||||
</xsl:attribute>
|
||||
<xsl:choose>
|
||||
<xsl:when test="$list/@properties='listed'">
|
||||
<xsl:call-template name="list2">
|
||||
<xsl:with-param name="entity" select="$list/ancestor::adl:entity"/>
|
||||
<xsl:with-param name="fields" select="$list/adl:field"/>
|
||||
<xsl:with-param name="can-search" select="'true'"/>
|
||||
</xsl:call-template>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:variable name="fields">
|
||||
<xsl:for-each select="$list/ancestor::adl:entity//adl:property[(@distinct='user' or @distinct='all') and not( @type='link' or @type='list')]">
|
||||
<adl:field>
|
||||
<xsl:attribute name="property">
|
||||
<xsl:value-of select="@name"/>
|
||||
</xsl:attribute>
|
||||
</adl:field>
|
||||
</xsl:for-each>
|
||||
</xsl:variable>
|
||||
<xsl:call-template name="list2">
|
||||
<xsl:with-param name="entity" select="$list/ancestor::adl:entity"/>
|
||||
<xsl:with-param name="fields" select="msxsl:node-set( $fields)"/>
|
||||
<xsl:with-param name="can-search" select="'true'"/>
|
||||
</xsl:call-template>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</form>
|
||||
</div>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template name="list2">
|
||||
<!-- a node-list of entities of type field, each indicating a property of the same entity -->
|
||||
<xsl:param name="fields"/>
|
||||
<!-- the entity on which the properties for all those fields can be found -->
|
||||
<xsl:param name="entity"/>
|
||||
<!-- NOTE NOTE NOTE: To be searchable, the list2 must not only be called with can-search
|
||||
equal to 'true', but also within a form! -->
|
||||
<xsl:param name="can-search"/>
|
||||
<table>
|
||||
<tr>
|
||||
<xsl:for-each select="$list/adl:field">
|
||||
<xsl:for-each select="$fields">
|
||||
<th>
|
||||
<xsl:variable name="pname" select="@property"/>
|
||||
<xsl:variable name="property" select="$list/ancestor::adl:entity//adl:property[@name=$pname]"/>
|
||||
<xsl:call-template name="showprompt">
|
||||
<xsl:with-param name="node" select="$property"/>
|
||||
<xsl:with-param name="node" select="."/>
|
||||
<xsl:with-param name="fallback" select="@property"/>
|
||||
<xsl:with-param name="entity" select="$entity"/>
|
||||
<xsl:with-param name="locale" select="$locale"/>
|
||||
</xsl:call-template>
|
||||
</th>
|
||||
</xsl:for-each>
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:form">
|
||||
<xsl:for-each select="$entity/adl:form">
|
||||
<th>-</th>
|
||||
</xsl:for-each>
|
||||
</tr>
|
||||
<xsl:if test="$can-search = 'true'">
|
||||
<tr class="search">
|
||||
<xsl:for-each select="$fields">
|
||||
<td class="search">
|
||||
<xsl:variable name="pname" select="@property"/>
|
||||
<xsl:variable name="property" select="$entity/adl:property[@name=$pname]"/>
|
||||
<xsl:variable name="size">
|
||||
<xsl:choose>
|
||||
<xsl:when test="$property/@type='string'">
|
||||
<xsl:choose>
|
||||
<xsl:when test="$property/@size > 20">20</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="$property/@size"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:when>
|
||||
<xsl:when test="$property/@type='integer'">8</xsl:when>
|
||||
<xsl:when test="$property/@type='real'">8</xsl:when>
|
||||
<xsl:when test="$property/@type='money'">8</xsl:when>
|
||||
<!-- xsl:when test="$property/@type='message'">20</xsl:when doesn't work yet -->
|
||||
<xsl:when test="$property/@type='text'">20</xsl:when>
|
||||
<!-- xsl:when test="$property/@type='enity'">20</xsl:when doesn't work yet -->
|
||||
<xsl:otherwise>0</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:variable>
|
||||
<xsl:if test="$size != 0">
|
||||
<input>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat('search_',$pname)"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="size">
|
||||
<xsl:value-of select="$size"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="value">
|
||||
<xsl:value-of select="concat( '$!search_', $pname)"/>
|
||||
</xsl:attribute>
|
||||
</input>
|
||||
</xsl:if>
|
||||
</td>
|
||||
</xsl:for-each>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
#foreach( $instance in $instances)
|
||||
#if ( $velocityCount % 2 == 0)
|
||||
#set( $oddity = "even")
|
||||
|
|
@ -1207,27 +1313,28 @@
|
|||
#set( $oddity = "odd")
|
||||
#end
|
||||
<tr class="$oddity">
|
||||
<xsl:for-each select="$list/adl:field">
|
||||
<xsl:for-each select="$fields">
|
||||
<xsl:variable name="propname" select="@property"/>
|
||||
<xsl:variable name="property" select="$entity//adl:property[@name=$propname]"/>
|
||||
<td>
|
||||
<xsl:variable name="prop" select="@property"/>
|
||||
<xsl:choose>
|
||||
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type = 'date'">
|
||||
<xsl:when test="$property/@type = 'date'">
|
||||
#if ( $instance.<xsl:value-of select="@property"/>)
|
||||
$instance.<xsl:value-of select="@property"/>.ToString( 'd')
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type='message'">
|
||||
#if ( $instance.<xsl:value-of select="$prop"/>)
|
||||
$t.Msg( $instance.<xsl:value-of select="$prop"/>)
|
||||
<xsl:when test="$property/@type='message'">
|
||||
#if ( $instance.<xsl:value-of select="@property"/>)
|
||||
$t.Msg( $instance.<xsl:value-of select="@property"/>)
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type='entity'">
|
||||
#if( $instance.<xsl:value-of select="$prop"/>)
|
||||
$instance.<xsl:value-of select="$prop"/>.UserIdentifier
|
||||
<xsl:when test="$property/@type='entity'">
|
||||
#if( $instance.<xsl:value-of select="@property"/>)
|
||||
$instance.<xsl:value-of select="@property"/>.UserIdentifier
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
$!instance.<xsl:value-of select="$prop"/>
|
||||
$!instance.<xsl:value-of select="@property"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</td>
|
||||
|
|
@ -1235,7 +1342,7 @@
|
|||
<xsl:variable name="keys">
|
||||
<!-- assemble keys in a Velocity-friendly format, then splice it into
|
||||
the HREF below -->
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:key/adl:property">
|
||||
<xsl:for-each select="$entity/adl:key/adl:property">
|
||||
<xsl:variable name="sep">
|
||||
<xsl:choose>
|
||||
<xsl:when test="position()=1">?</xsl:when>
|
||||
|
|
@ -1252,7 +1359,7 @@
|
|||
</xsl:choose>
|
||||
</xsl:for-each>
|
||||
</xsl:variable>
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:form">
|
||||
<xsl:for-each select="$entity/adl:form">
|
||||
<!-- by default create a link to each form declared for the entity.
|
||||
We probably need a means of overriding this -->
|
||||
<td>
|
||||
|
|
@ -1265,93 +1372,8 @@
|
|||
</td>
|
||||
</xsl:for-each>
|
||||
</tr>
|
||||
#end <!-- of iteration foreach( $instance in $instances) -->
|
||||
</xsl:when>
|
||||
<!-- close of @properties='listed ' -->
|
||||
<xsl:otherwise>
|
||||
<!-- properties are not 'listed' -->
|
||||
<tr>
|
||||
<xsl:for-each select="$list/ancestor::adl:entity//adl:property[(@distinct='user' or @distinct='all') and not( @type='link' or @type='list')]">
|
||||
<th>
|
||||
<xsl:call-template name="showprompt">
|
||||
<xsl:with-param name="node" select="."/>
|
||||
<xsl:with-param name="fallback" select="@name"/>
|
||||
</xsl:call-template>
|
||||
</th>
|
||||
</xsl:for-each>
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:form">
|
||||
<th>-</th>
|
||||
</xsl:for-each>
|
||||
</tr>
|
||||
#foreach( $instance in $instances)
|
||||
#if ( $velocityCount % 2 == 0)
|
||||
#set( $oddity = "even")
|
||||
#else
|
||||
#set( $oddity = "odd")
|
||||
#end
|
||||
<tr class="$oddity">
|
||||
<xsl:for-each select="$list/ancestor::adl:entity//adl:property[@distinct='user' or @distinct='all']">
|
||||
<td>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@type = 'date'">
|
||||
#if ( $instance.<xsl:value-of select="@name"/>)
|
||||
$instance.<xsl:value-of select="@name"/>.ToString( 'd')
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:when test="@type='message'">
|
||||
#if ( $instance.<xsl:value-of select="@name"/>)
|
||||
$t.Msg( $instance.<xsl:value-of select="@name"/>)
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:when test="@type='entity'">
|
||||
#if( $instance.<xsl:value-of select="@name"/>)
|
||||
$instance.<xsl:value-of select="@name"/>.UserIdentifier
|
||||
#end
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
$!instance.<xsl:value-of select="@name"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</td>
|
||||
</xsl:for-each>
|
||||
<xsl:variable name="keys">
|
||||
<!-- assemble keys in a Velocity-friendly format, then splice it into
|
||||
the HREF below -->
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:key/adl:property">
|
||||
<xsl:variable name="sep">
|
||||
<xsl:choose>
|
||||
<xsl:when test="position()=1">?</xsl:when>
|
||||
<xsl:otherwise>&</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:variable>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@type='entity'">
|
||||
<xsl:value-of select="concat( $sep, @name, '_Value=$instance.', @name, '_Value')"/>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="concat( $sep, @name, '=$instance.', @name)"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:for-each>
|
||||
</xsl:variable>
|
||||
<xsl:for-each select="$list/ancestor::adl:entity/adl:form">
|
||||
<!-- by default create a link to each form declared for the entity.
|
||||
We probably need a means of overriding this -->
|
||||
<td>
|
||||
<a>
|
||||
<xsl:attribute name="href">
|
||||
<xsl:value-of select="concat( @name, '.rails?', $keys)"/>
|
||||
</xsl:attribute>
|
||||
<xsl:value-of select="@name"/>!
|
||||
</a>
|
||||
</td>
|
||||
</xsl:for-each>
|
||||
</tr>
|
||||
#end
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</table>
|
||||
</div>
|
||||
</xsl:template>
|
||||
|
||||
<!-- overall page layout -->
|
||||
|
|
@ -1487,8 +1509,9 @@
|
|||
show that prompt; else show the first prompt child with locale='default' if any;
|
||||
else show the value of the fallback param -->
|
||||
<xsl:template name="showprompt">
|
||||
<xsl:param name="fallback" select="Unknown"/>
|
||||
<xsl:param name="fallback" select="'Unknown'"/>
|
||||
<xsl:param name="node" select="."/>
|
||||
<xsl:param name="entity" select="$node/ancestor::adl:entity"/>
|
||||
<xsl:param name="locale" select="'en-GB'"/>
|
||||
<xsl:choose>
|
||||
<xsl:when test="$node/adl:prompt[@locale=$locale]">
|
||||
|
|
@ -1497,6 +1520,17 @@
|
|||
<xsl:when test="$node/adl:prompt[@locale='default']">
|
||||
<xsl:value-of select="$node/adl:prompt[@locale='default'][1]/@prompt"/>
|
||||
</xsl:when>
|
||||
<xsl:when test="$node/@property">
|
||||
<!-- it's (probably) a field which doesn't have any prompt of its own -
|
||||
fetch from its property -->
|
||||
<xsl:variable name="propname" select="@property"/>
|
||||
<xsl:call-template name="showprompt">
|
||||
<xsl:with-param name="fallback" select="$fallback"/>
|
||||
<xsl:with-param name="node" select="$entity//adl:property[@name=$propname]"/>
|
||||
<xsl:with-param name="entity" select="$entity"/>
|
||||
<xsl:with-param name="locale" select="$locale"/>
|
||||
</xsl:call-template>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="$fallback"/>
|
||||
</xsl:otherwise>
|
||||
|
|
|
|||
Loading…
Reference in a new issue