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

bug 2821 : Changes to ADL to implement the 'PrototypeFor classes carry default values for forms' solution.

Browse source 
status 2821: resolved FIXED
This commit is contained in:
sb 2009-04-28 13:34:14 +00:00
parent d2b026f8b9
commit 148624c084
3 changed files with 170 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

25
transforms/adl2controllerclasses.xslt
View file

@ -9,8 +9,8 @@
Transform ADL into (partial) controller classes
$Author: sb $
$Revision: 1.34 $
$Date: 2009-04-27 15:19:51 $
$Revision: 1.35 $
$Date: 2009-04-28 13:34:14 $
-->
<!-- WARNING WARNING WARNING: Do NOT reformat this file!
@ -70,7 +70,7 @@
//
// Automatically generated abstract super class for controllers for the
// <xsl:value-of select="/adl:application/@name"/> application; generated using
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.34 $', 10)"/>
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.35 $', 10)"/>
//
// <xsl:value-of select="/adl:application/@revision"/>
//
@ -180,7 +180,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.34 $', 10)"/>
// adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.35 $', 10)"/>
//
// This file is automatically generated; DO NOT EDIT IT.
//
@ -890,12 +890,21 @@
public void <xsl:value-of select="@name"/>( )
{
AssertUserCanRead();
<xsl:value-of select="ancestor::adl:entity/@name"/> record = null;
<xsl:value-of select="concat( 'PrototypeFor', ancestor::adl:entity/@name)"/> record =
new <xsl:value-of select="concat( 'PrototypeFor', ancestor::adl:entity/@name)"/>();
<xsl:value-of select="concat( 'this.', @name)"/>( record);
}
ISession hibernator = GetDBSession();
<xsl:variable name="form" select="."/>
TypedPropertyBag = new {
<xsl:call-template name="formmenus">
<xsl:with-param name="form" select="."/>
</xsl:call-template>
instance = record };
RenderViewWithFailover("<xsl:value-of select="concat( @name, '.vm')"/>", "<xsl:value-of select="concat( @name, '.auto.vm')"/>");
}
<xsl:variable name="form" select="."/>
<xsl:for-each select="ancestor::adl:entity/adl:property[ @type='entity']">
/// &lt;summary&gt;
/// Show the form named <xsl:value-of select="$form/@name"/>, for a new record, but with the