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

Almost completely working with Andrew's new SmartForm stuff.

Browse source
This commit is contained in:
sb 2008-05-16 15:26:20 +00:00
parent 7673552477
commit 41f45eb3cd
3 changed files with 606 additions and 824 deletions
Download patch file Download diff file Expand all files Collapse all files

20
transforms01/adl2controllerclasses.xslt
View file

@ -9,8 +9,8 @@
Transform ADL into (partial) controller classes
$Author: sb $
$Revision: 1.27 $
$Date: 2008-05-16 11:12:48 $
$Revision: 1.28 $
$Date: 2008-05-16 15:26:20 $
-->
<!-- 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.27 $', 10)"/>
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.28 $', 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.27 $', 10)"/>
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.28 $', 10)"/>
//
// This file is automatically generated; DO NOT EDIT IT.
//
@ -703,8 +703,12 @@ namespace <xsl:value-of select="$controllerns"/> {
public void <xsl:value-of select="@name"/>( )
{
AssertUserCanRead();
ISession hibernator =
/* we don't actually instantiate this local variable; it exists to that
* TypedPropertyBag can do introspection to infer property types */
<xsl:value-of select="concat($entityns, '.', ancestor::adl:entity/@name)"/> record = null;
ISession hibernator =
NHibernateHelper.GetCurrentSession( <xsl:if test="$authentication-layer = 'Database'">Session[ NHibernateHelper.USERTOKEN],
Session[NHibernateHelper.PASSTOKEN]</xsl:if>);
@ -715,7 +719,7 @@ namespace <xsl:value-of select="$controllerns"/> {
<xsl:call-template name="formmenus">
<xsl:with-param name="form" select="."/>
</xsl:call-template>
lastentry = "trailing-comma-avoidance" /* yes, it's a hack */
instance = record
};
RenderViewWithFailover("<xsl:value-of select="concat( @name, '.vm')"/>",
@ -906,8 +910,8 @@ namespace <xsl:value-of select="$controllerns"/> {
<!-- produce all menus for a given form: harder, but more efficient -->
<xsl:template name="formmenus">
<!-- an entity assumed to be of type adl:form -->
<xsl:param name="form"/>
/* set up menus for the form, if required */
<xsl:choose>
<xsl:when test="$form/@properties = 'all'">
<xsl:call-template name="entitymenus">