simon/adl
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Integration of all the good features from the SRU branch, plus much beneficial refactoring.

Browse source
This commit is contained in:
sb 2008-05-19 14:49:18 +00:00
parent 41f45eb3cd
commit cde22a9e96
2 changed files with 392 additions and 295 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
transforms01/adl2controllerclasses.xslt
View file

@ -9,8 +9,8 @@
Transform ADL into (partial) controller classes Transform ADL into (partial) controller classes
$Author: sb $ $Author: sb $
$Revision: 1.28 $ $Revision: 1.29 $
$Date: 2008-05-16 15:26:20 $ $Date: 2008-05-19 14:49:18 $
--> -->
<!-- WARNING WARNING WARNING: Do NOT reformat this file! <!-- 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 // Controller for auto-generated forms for editing <xsl:value-of select="@name"/>s
// Automatically generated from application description using // 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. // 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 // Controller for auto-generated forms for editing <xsl:value-of select="@name"/>s
// Automatically generated from application description using // 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. // This file is automatically generated; DO NOT EDIT IT.
// //
@ -531,10 +531,51 @@ namespace <xsl:value-of select="$controllerns"/> {
ISession hibernator = ISession hibernator =
NHibernateHelper.GetCurrentSession( <xsl:if test="$authentication-layer = 'Database'">Session[ NHibernateHelper.USERTOKEN], NHibernateHelper.GetCurrentSession( <xsl:if test="$authentication-layer = 'Database'">Session[ NHibernateHelper.USERTOKEN],
Session[NHibernateHelper.PASSTOKEN]</xsl:if>); Session[NHibernateHelper.PASSTOKEN]</xsl:if>);
IList&lt;<xsl:value-of select="concat( $entityns, '.', @name)"/>&gt; instances =
hibernator.CreateCriteria(typeof(<xsl:value-of select="concat($entityns, '.', @name)"/>))<xsl:for-each select="adl:property[@distinct='user']"> ICriteria search =
<xsl:value-of select="concat( '.AddOrder( new Order( &#34;', @name, '&#34;, true))')"/> hibernator.CreateCriteria(typeof(<xsl:value-of select="concat( $entityns, '.', @name)"/>));
</xsl:for-each>.List&lt;<xsl:value-of select="concat($entityns, '.', @name)"/>&gt;();
<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( &#34;', @name, '&#34;, true)')"/>);
</xsl:for-each>
IList&lt;<xsl:value-of select="concat( $entityns, '.', @name)"/>&gt; instances = search.List&lt;<xsl:value-of select="concat( $entityns, '.', @name)"/>&gt;();
<xsl:if test="$authentication-layer = 'Database'"> <xsl:if test="$authentication-layer = 'Database'">
PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN]; PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
@ -1036,6 +1077,28 @@ namespace <xsl:value-of select="$controllerns"/> {
</xsl:choose> </xsl:choose>
</xsl:template> </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"> <xsl:template name="fetch-property-instance">
<!-- the property for which the instance is sought; it is assumed that <!-- the property for which the instance is sought; it is assumed that
the property passed has type 'entity' --> the property passed has type 'entity' -->

608
transforms01/adl2views.xslt
View file

@ -1,9 +1,10 @@
<?xml version="1.0" encoding="UTF-8" ?> <?xml version="1.0" encoding="UTF-8" ?>
<xsl:stylesheet version="1.0" <xsl:stylesheet version="1.0"
xmlns="http://cygnets.co.uk/schemas/adl-1.2" xmlns="http://cygnets.co.uk/schemas/adl-1.2"
xmlns:adl="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 Application Description Language framework
adl2views.xsl adl2views.xsl
@ -12,8 +13,8 @@
Transform ADL into velocity view templates Transform ADL into velocity view templates
$Author: sb $ $Author: sb $
$Revision: 1.18 $ $Revision: 1.19 $
$Date: 2008-05-16 15:26:20 $ $Date: 2008-05-19 14:49:23 $
--> -->
<!-- WARNING WARNING WARNING: Do NOT reformat this file! <!-- WARNING WARNING WARNING: Do NOT reformat this file!
Whitespace (or lack of it) is significant! --> Whitespace (or lack of it) is significant! -->
@ -111,7 +112,7 @@
Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>, Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>,
generated from ADL. 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:comment>
<xsl:call-template name="maybe-delete"> <xsl:call-template name="maybe-delete">
<xsl:with-param name="entity" select="."/> <xsl:with-param name="entity" select="."/>
@ -146,7 +147,7 @@
Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>, Auto generated Velocity maybe-delete form for <xsl:value-of select="@name"/>,
generated from ADL. 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:comment>
<xsl:call-template name="install-scripts"/> <xsl:call-template name="install-scripts"/>
</head> </head>
@ -232,7 +233,7 @@
Auto generated Velocity <xsl:value-of select="@name"/> form for <xsl:value-of select="ancestor::adl:entity/@name"/>, Auto generated Velocity <xsl:value-of select="@name"/> form for <xsl:value-of select="ancestor::adl:entity/@name"/>,
generated from ADL. 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:comment>
#capturefor( title) #capturefor( title)
#if ( $instance) #if ( $instance)
@ -356,7 +357,7 @@
Auto generated Velocity form for <xsl:value-of select="ancestor::adl:entity/@name"/>, Auto generated Velocity form for <xsl:value-of select="ancestor::adl:entity/@name"/>,
generated from ADL. 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:comment>
<xsl:call-template name="install-scripts"/> <xsl:call-template name="install-scripts"/>
<script type='text/javascript' language='JavaScript1.2'> <script type='text/javascript' language='JavaScript1.2'>
@ -510,6 +511,8 @@
<xsl:call-template name="showprompt"> <xsl:call-template name="showprompt">
<xsl:with-param name="node" select="."/> <xsl:with-param name="node" select="."/>
<xsl:with-param name="fallback" select="@name"/> <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> </xsl:call-template>
</a> </a>
</span> </span>
@ -581,6 +584,8 @@
<xsl:call-template name="showprompt"> <xsl:call-template name="showprompt">
<xsl:with-param name="node" select="."/> <xsl:with-param name="node" select="."/>
<xsl:with-param name="fallback" select="@name"/> <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> </xsl:call-template>
</h3> </h3>
</a> </a>
@ -641,6 +646,38 @@
</td> </td>
</tr> </tr>
</xsl:if> </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:choose>
<xsl:when test="@properties='listed'"> <xsl:when test="@properties='listed'">
<tr> <tr>
@ -1088,273 +1125,258 @@
</xsl:template> </xsl:template>
<!-- layout of a list assuming an empty layout --> <!-- layout of a list assuming an empty layout -->
<xsl:template match="adl:list" mode="empty-layout"> <xsl:template match="adl:list" mode="empty-layout">
<xsl:variable name="action" select="@onselect"/> <xsl:variable name="action" select="@onselect"/>
<xsl:text> <xsl:text>
</xsl:text> </xsl:text>
<xsl:comment>[ cut here: next file '<xsl:value-of select="concat( ../@name, '/', @name)"/>.auto.vm' ]</xsl:comment> <xsl:comment> [ cut here: next file '<xsl:value-of select="concat( ../@name, '/', @name)"/>.auto.vm' ] </xsl:comment>
<xsl:text> <xsl:text>
</xsl:text> </xsl:text>
<xsl:variable name="withpluralsuffix"> <xsl:variable name="withpluralsuffix">
<!-- English-laguage syntactic sugar of entity name. TODO (bug 1896): This really /must/ not be here. <!-- English-laguage syntactic sugar of entity name. TODO (bug 1896): This really /must/ not be here.
some means of doing i18n syntactic sugar needs to be spliced in. --> some means of doing i18n syntactic sugar needs to be spliced in. -->
<xsl:choose> <xsl:choose>
<xsl:when test="../@name='Person'">People</xsl:when> <xsl:when test="../@name='Person'">People</xsl:when>
<xsl:when test="starts-with( substring(../@name, string-length(../@name) ), 's')"> <xsl:when test="starts-with( substring(../@name, string-length(../@name) ), 's')">
<xsl:value-of select="../@name"/>es <xsl:value-of select="../@name"/>es
</xsl:when> </xsl:when>
<xsl:when test="starts-with( substring(../@name, string-length(../@name) ), 'y')"> <xsl:when test="starts-with( substring(../@name, string-length(../@name) ), 'y')">
<xsl:value-of select="substring( ../@name, 0, string-length(../@name) )"/>ies <xsl:value-of select="substring( ../@name, 0, string-length(../@name) )"/>ies
</xsl:when> </xsl:when>
<xsl:otherwise> <xsl:otherwise>
<xsl:value-of select="../@name"/>s <xsl:value-of select="../@name"/>s
</xsl:otherwise> </xsl:otherwise>
</xsl:choose> </xsl:choose>
</xsl:variable> </xsl:variable>
<html> <html>
<head> <head>
#set( $title = "<xsl:value-of select="normalize-space( concat( 'List ', $withpluralsuffix))"/>") #set( $title = "<xsl:value-of select="normalize-space( concat( 'List ', $withpluralsuffix))"/>")
<title>$!title</title> <title>$!title</title>
<xsl:call-template name="head"/> <xsl:call-template name="head"/>
<xsl:comment> <xsl:comment>
Auto generated Velocity list for <xsl:value-of select="ancestor::adl:entity/@name"/>, Auto generated Velocity list for <xsl:value-of select="ancestor::adl:entity/@name"/>,
generated from ADL. 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:comment>
<xsl:call-template name="install-scripts"/> <xsl:call-template name="install-scripts"/>
</head> </head>
<body> <body>
<xsl:call-template name="top"/> <xsl:call-template name="top"/>
<xsl:call-template name="list"> <xsl:call-template name="list">
<xsl:with-param name="list" select="."/> <xsl:with-param name="list" select="."/>
</xsl:call-template> </xsl:call-template>
<xsl:call-template name="foot"/> <xsl:call-template name="foot"/>
</body> </body>
</html> </html>
</xsl:template> </xsl:template>
<!-- layout the content of a list, whether or not the layout is empty --> <!-- layout the content of a list, whether or not the layout is empty -->
<xsl:template name="list"> <xsl:template name="list">
<!-- an entity of type adl:list --> <!-- an entity of type adl:list -->
<xsl:param name="list"/> <xsl:param name="list"/>
<div class="content"> <div class="content">
<!-- this is a hack. There shouldn't be anything magic about a list named 'list'. <div class="controls">
We need lists (and forms) to have some sort of pragma to guide the transformation <span class="pagination status">
process --> Showing $instances.FirstItem - $instances.LastItem of $instances.TotalItems
<div class="controls"> </span>
<span class="pagination status"> <span class="pagination control">
Showing $instances.FirstItem - $instances.LastItem of $instances.TotalItems #if($instances.HasFirst) $PaginationHelper.CreatePageLink( 1, "&lt;&lt;" ) #end
</span> #if(!$instances.HasFirst) &lt;&lt; #end
<span class="pagination control"> </span>
#if($instances.HasFirst) $PaginationHelper.CreatePageLink( 1, "&lt;&lt;" ) #end <span class="pagination control">
#if(!$instances.HasFirst) &lt;&lt; #end #if($instances.HasPrevious) $PaginationHelper.CreatePageLink( $instances.PreviousIndex, "&lt;" ) #end
</span> #if(!$instances.HasPrevious) &lt; #end
<span class="pagination control"> </span>
#if($instances.HasPrevious) $PaginationHelper.CreatePageLink( $instances.PreviousIndex, "&lt;" ) #end <span class="pagination control">
#if(!$instances.HasPrevious) &lt; #end #if($instances.HasNext) $PaginationHelper.CreatePageLink( $instances.NextIndex, "&gt;" ) #end
</span> #if(!$instances.HasNext) &gt; #end
<span class="pagination control"> </span>
#if($instances.HasNext) $PaginationHelper.CreatePageLink( $instances.NextIndex, "&gt;" ) #end <span class="pagination control">
#if(!$instances.HasNext) &gt; #end #if($instances.HasLast) $PaginationHelper.CreatePageLink( $instances.LastIndex, "&gt;&gt;" ) #end
</span> #if(!$instances.HasLast) &gt;&gt; #end
<span class="pagination control"> </span>
#if($instances.HasLast) $PaginationHelper.CreatePageLink( $instances.LastIndex, "&gt;&gt;" ) #end <xsl:if test="$list/../adl:form">
#if(!$instances.HasLast) &gt;&gt; #end <span class="add">
</span> <a>
<xsl:if test="$list/../adl:form"> <xsl:attribute name="href">
<span class="add"> <xsl:value-of select="concat( ancestor::adl:entity/adl:form[position()=1]/@name, '.rails')"/>
<a> </xsl:attribute>
<xsl:attribute name="href"> Add a new <xsl:value-of select="ancestor::adl:entity/@name"/>
<xsl:value-of select="concat( ancestor::adl:entity/adl:form[position()=1]/@name, '.rails')"/> </a>
</xsl:attribute> </span>
Add a new <xsl:value-of select="ancestor::adl:entity/@name"/> </xsl:if>
</a> </div>
</span> <form>
</xsl:if> <xsl:attribute name="action">
<!-- div class="search"> <xsl:value-of select="concat( $list/@name, '.rails')"/>
<form method="get"> </xsl:attribute>
<xsl:attribute name="action"> <xsl:choose>
<xsl:value-of select="@name"/>.rails <xsl:when test="$list/@properties='listed'">
</xsl:attribute> <xsl:call-template name="list2">
<label for="searchexpr">Search:</label> <xsl:with-param name="entity" select="$list/ancestor::adl:entity"/>
<input type="text" id="searchexpr" name="searchexpr" size="12"/> <xsl:with-param name="fields" select="$list/adl:field"/>
</form> <xsl:with-param name="can-search" select="'true'"/>
</div --> </xsl:call-template>
</div> </xsl:when>
<table> <xsl:otherwise>
<xsl:choose> <xsl:variable name="fields">
<xsl:when test="$list/@properties='listed'"> <xsl:for-each select="$list/ancestor::adl:entity//adl:property[(@distinct='user' or @distinct='all') and not( @type='link' or @type='list')]">
<tr> <adl:field>
<xsl:for-each select="$list/adl:field"> <xsl:attribute name="property">
<th> <xsl:value-of select="@name"/>
<xsl:variable name="pname" select="@property"/> </xsl:attribute>
<xsl:variable name="property" select="$list/ancestor::adl:entity//adl:property[@name=$pname]"/> </adl:field>
<xsl:call-template name="showprompt"> </xsl:for-each>
<xsl:with-param name="node" select="$property"/> </xsl:variable>
<xsl:with-param name="fallback" select="@property"/> <xsl:call-template name="list2">
</xsl:call-template> <xsl:with-param name="entity" select="$list/ancestor::adl:entity"/>
</th> <xsl:with-param name="fields" select="msxsl:node-set( $fields)"/>
</xsl:for-each> <xsl:with-param name="can-search" select="'true'"/>
<xsl:for-each select="$list/ancestor::adl:entity/adl:form"> </xsl:call-template>
<th>-</th> </xsl:otherwise>
</xsl:for-each> </xsl:choose>
</tr> </form>
#foreach( $instance in $instances) </div>
#if ( $velocityCount % 2 == 0) </xsl:template>
#set( $oddity = "even")
#else <xsl:template name="list2">
#set( $oddity = "odd") <!-- a node-list of entities of type field, each indicating a property of the same entity -->
#end <xsl:param name="fields"/>
<tr class="$oddity"> <!-- the entity on which the properties for all those fields can be found -->
<xsl:for-each select="$list/adl:field"> <xsl:param name="entity"/>
<td> <!-- NOTE NOTE NOTE: To be searchable, the list2 must not only be called with can-search
<xsl:variable name="prop" select="@property"/> equal to 'true', but also within a form! -->
<xsl:choose> <xsl:param name="can-search"/>
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type = 'date'"> <table>
#if ( $instance.<xsl:value-of select="@property"/>) <tr>
$instance.<xsl:value-of select="@property"/>.ToString( 'd') <xsl:for-each select="$fields">
#end <th>
</xsl:when> <xsl:call-template name="showprompt">
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type='message'"> <xsl:with-param name="node" select="."/>
#if ( $instance.<xsl:value-of select="$prop"/>) <xsl:with-param name="fallback" select="@property"/>
$t.Msg( $instance.<xsl:value-of select="$prop"/>) <xsl:with-param name="entity" select="$entity"/>
#end <xsl:with-param name="locale" select="$locale"/>
</xsl:when> </xsl:call-template>
<xsl:when test="$list/ancestor::adl:entity//adl:property[@name=$prop]/@type='entity'"> </th>
#if( $instance.<xsl:value-of select="$prop"/>) </xsl:for-each>
$instance.<xsl:value-of select="$prop"/>.UserIdentifier <xsl:for-each select="$entity/adl:form">
#end <th>-</th>
</xsl:when> </xsl:for-each>
<xsl:otherwise> </tr>
$!instance.<xsl:value-of select="$prop"/> <xsl:if test="$can-search = 'true'">
</xsl:otherwise> <tr class="search">
</xsl:choose> <xsl:for-each select="$fields">
</td> <td class="search">
</xsl:for-each> <xsl:variable name="pname" select="@property"/>
<xsl:variable name="keys"> <xsl:variable name="property" select="$entity/adl:property[@name=$pname]"/>
<!-- assemble keys in a Velocity-friendly format, then splice it into <xsl:variable name="size">
<xsl:choose>
<xsl:when test="$property/@type='string'">
<xsl:choose>
<xsl:when test="$property/@size &gt; 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")
#else
#set( $oddity = "odd")
#end
<tr class="$oddity">
<xsl:for-each select="$fields">
<xsl:variable name="propname" select="@property"/>
<xsl:variable name="property" select="$entity//adl:property[@name=$propname]"/>
<td>
<xsl:choose>
<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="$property/@type='message'">
#if ( $instance.<xsl:value-of select="@property"/>)
$t.Msg( $instance.<xsl:value-of select="@property"/>)
#end
</xsl:when>
<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="@property"/>
</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 --> 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:variable name="sep">
<xsl:choose> <xsl:choose>
<xsl:when test="position()=1">?</xsl:when> <xsl:when test="position()=1">?</xsl:when>
<xsl:otherwise>&amp;</xsl:otherwise> <xsl:otherwise>&amp;</xsl:otherwise>
</xsl:choose> </xsl:choose>
</xsl:variable> </xsl:variable>
<xsl:choose> <xsl:choose>
<xsl:when test="@type='entity'"> <xsl:when test="@type='entity'">
<xsl:value-of select="concat( $sep, @name, '_Value=$instance.', @name, '_Value')"/> <xsl:value-of select="concat( $sep, @name, '_Value=$instance.', @name, '_Value')"/>
</xsl:when> </xsl:when>
<xsl:otherwise> <xsl:otherwise>
<xsl:value-of select="concat( $sep, @name, '=$instance.', @name)"/> <xsl:value-of select="concat( $sep, @name, '=$instance.', @name)"/>
</xsl:otherwise> </xsl:otherwise>
</xsl:choose> </xsl:choose>
</xsl:for-each> </xsl:for-each>
</xsl:variable> </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. <!-- by default create a link to each form declared for the entity.
We probably need a means of overriding this --> We probably need a means of overriding this -->
<td> <td>
<a> <a>
<xsl:attribute name="href"> <xsl:attribute name="href">
<xsl:value-of select="concat( @name, '.rails', $keys)"/> <xsl:value-of select="concat( @name, '.rails', $keys)"/>
</xsl:attribute> </xsl:attribute>
<xsl:value-of select="@name"/>! <xsl:value-of select="@name"/>!
</a> </a>
</td> </td>
</xsl:for-each> </xsl:for-each>
</tr> </tr>
#end <!-- of iteration foreach( $instance in $instances) --> #end
</xsl:when> </table>
<!-- close of @properties='listed ' --> </xsl:template>
<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>&amp;</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 --> <!-- overall page layout -->
<xsl:template match="adl:content"/> <xsl:template match="adl:content"/>
@ -1483,27 +1505,39 @@
</xsl:choose> </xsl:choose>
</xsl:template> </xsl:template>
<!-- if this node (default to current node) has a child of type prompt for the current locale, <!-- if this node (default to current node) has a child of type prompt for the current locale,
show that prompt; else show the first prompt child with locale='default' if any; show that prompt; else show the first prompt child with locale='default' if any;
else show the value of the fallback param --> else show the value of the fallback param -->
<xsl:template name="showprompt"> <xsl:template name="showprompt">
<xsl:param name="fallback" select="Unknown"/> <xsl:param name="fallback" select="'Unknown'"/>
<xsl:param name="node" select="."/> <xsl:param name="node" select="."/>
<xsl:param name="entity" select="$node/ancestor::adl:entity"/>
<xsl:param name="locale" select="'en-GB'"/> <xsl:param name="locale" select="'en-GB'"/>
<xsl:choose> <xsl:choose>
<xsl:when test="$node/adl:prompt[@locale=$locale]"> <xsl:when test="$node/adl:prompt[@locale=$locale]">
<xsl:value-of select="$node/adl:prompt[@locale=$locale][1]/@prompt"/> <xsl:value-of select="$node/adl:prompt[@locale=$locale][1]/@prompt"/>
</xsl:when> </xsl:when>
<xsl:when test="$node/adl:prompt[@locale='default']"> <xsl:when test="$node/adl:prompt[@locale='default']">
<xsl:value-of select="$node/adl:prompt[@locale='default'][1]/@prompt"/> <xsl:value-of select="$node/adl:prompt[@locale='default'][1]/@prompt"/>
</xsl:when> </xsl:when>
<xsl:otherwise> <xsl:when test="$node/@property">
<xsl:value-of select="$fallback"/> <!-- it's (probably) a field which doesn't have any prompt of its own -
</xsl:otherwise> fetch from its property -->
</xsl:choose> <xsl:variable name="propname" select="@property"/>
</xsl:template> <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>
</xsl:choose>
</xsl:template>
<!-- find, as a string, the permission which applies to this property in the context of the named group. <!-- find, as a string, the permission which applies to this property in the context of the named group.
NOTE: recurses up the group hierarchy - if it has cycles that's your problem, buster. NOTE: recurses up the group hierarchy - if it has cycles that's your problem, buster.
property: a property element property: a property element
groupname: a string, being the name of a group groupname: a string, being the name of a group