From 76735524773d2d2fa4c3296ebdab2de4003883ea Mon Sep 17 00:00:00 2001
From: sb <sb>
Date: Fri, 16 May 2008 11:12:48 +0000
Subject: [PATCH] Tactical commit point: everything is working using Andrew's
 new TypedPropertyBag, but not yet exploiting SmartFormHelper

---
 transforms01/adl2controllerclasses.xslt | 64 ++++++++++++++-----------
 1 file changed, 36 insertions(+), 28 deletions(-)

diff --git a/transforms01/adl2controllerclasses.xslt b/transforms01/adl2controllerclasses.xslt
index 9941d90..0e47856 100755
--- a/transforms01/adl2controllerclasses.xslt
+++ b/transforms01/adl2controllerclasses.xslt
@@ -9,8 +9,8 @@
     Transform ADL into (partial) controller classes
     
     $Author: sb $
-    $Revision: 1.26 $
-    $Date: 2008-05-15 16:29:24 $
+    $Revision: 1.27 $
+    $Date: 2008-05-16 11:12:48 $
   -->
 
   <!-- 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.26 $', 10)"/>
+//  adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.27 $', 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.26 $', 10)"/>
+//  adl2controllerclasses.xslt version <xsl:value-of select="substring( '$Revision: 1.27 $', 10)"/>
 //
 //  This file is automatically generated; DO NOT EDIT IT.
 //
@@ -171,7 +171,7 @@ namespace <xsl:value-of select="$controllerns"/> {
 	ControllerDetails("<xsl:value-of select="@name"/>",	Area = "<xsl:value-of select="$area-name"/>"),
 	Helper(typeof(<xsl:value-of select="concat( @name, 'FieldHelper')"/>), "<xsl:value-of select="concat( @name, 'FieldHelper')"/>")
 	]
-	public partial class <xsl:value-of select="concat( @name, 'Controller')"/>Controller : <xsl:value-of select="concat( 'Abstract', /adl:application/@name, 'Controller')"/> {
+	public partial class <xsl:value-of select="concat( @name, 'Controller')"/> : <xsl:value-of select="concat( 'Abstract', /adl:application/@name, 'Controller')"/> {
 
 		/* The SmartFormHelper stuff in generated controller classes does not yet work. There is some
 		 * hope that in future it will offer definite benefits and in the mean time it is doing no harm.
@@ -443,12 +443,6 @@ namespace <xsl:value-of select="$controllerns"/> {
 				AddError( axe.Message);
 			}
 
-			PropertyBag["messages"] = messages;
-			PropertyBag["instance"] = record;    
-            <xsl:if test="$authentication-layer = 'Database'">   
-			PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
-            </xsl:if>
-        
 			if ( ! HasNoErrors())
 			{
 				/* the session may be polluted; create a new session */
@@ -459,9 +453,17 @@ namespace <xsl:value-of select="$controllerns"/> {
 
 				record = FetchRecord( hibernator);
 			} /* if ( ! HasNoErrors()) */
-		  <xsl:call-template name="formmenus">
-            <xsl:with-param name="form" select="adl:form[position()=1]"/>
-          </xsl:call-template>
+
+			TypedPropertyBag = new {
+			<xsl:call-template name="formmenus">
+				<xsl:with-param name="form" select="adl:form[position()=1]"/>
+			</xsl:call-template>
+            <xsl:if test="$authentication-layer = 'Database'">   
+				username = Session[ NHibernateHelper.USERTOKEN],
+            </xsl:if>
+				messages = messages,
+				instance = record };
+
 			RenderViewWithFailover("<xsl:value-of select="concat( adl:form[position()=1]/@name, '.vm')"/>", 
 				"<xsl:value-of select="concat( adl:form[position()=1]/@name, '.auto.vm')"/>");
 		}
@@ -676,10 +678,11 @@ namespace <xsl:value-of select="$controllerns"/> {
 
 				<xsl:value-of select="concat($entityns, '.', ancestor::adl:entity/@name)"/> record = FetchRecord( hibernator);
 
+				TypedPropertyBag = new {
 		<xsl:if test="$authentication-layer = 'Database'">   
-				PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
+					username = Session[ NHibernateHelper.USERTOKEN],
 		</xsl:if>
-				PropertyBag["instance"] = record;
+					instance = record };
           
 				RenderViewWithFailover( "maybedelete.vm", "maybedelete.auto.vm");
 			}
@@ -704,13 +707,17 @@ namespace <xsl:value-of select="$controllerns"/> {
 			ISession hibernator = 
 				NHibernateHelper.GetCurrentSession( <xsl:if test="$authentication-layer = 'Database'">Session[ NHibernateHelper.USERTOKEN], 
                                               Session[NHibernateHelper.PASSTOKEN]</xsl:if>);
-      <xsl:call-template name="formmenus">
-        <xsl:with-param name="form" select="."/>
-      </xsl:call-template>
 
-      <xsl:if test="$authentication-layer = 'Database'">   
-			PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
-      </xsl:if>
+			TypedPropertyBag = new {
+		<xsl:if test="$authentication-layer = 'Database'">   
+				username = Session[ NHibernateHelper.USERTOKEN],
+		</xsl:if>
+		<xsl:call-template name="formmenus">
+			<xsl:with-param name="form" select="."/>
+		</xsl:call-template>
+				lastentry = "trailing-comma-avoidance" /* yes, it's a hack */
+			};
+
 			RenderViewWithFailover("<xsl:value-of select="concat( @name, '.vm')"/>", 
 				"<xsl:value-of select="concat( @name, '.auto.vm')"/>");
 		}
@@ -795,15 +802,16 @@ namespace <xsl:value-of select="$controllerns"/> {
 					.Add(Expression.Eq("<xsl:value-of select="@name"/>", <xsl:value-of select="@name"/>))
 		</xsl:for-each>
 					.UniqueResult&lt;<xsl:value-of select="concat($entityns, '.', ancestor::adl:entity/@name)"/>&gt;();
-
+			
+			TypedPropertyBag = new {
 		<xsl:if test="$authentication-layer = 'Database'">   
-			PropertyBag["username"] = Session[ NHibernateHelper.USERTOKEN];
+				username = Session[ NHibernateHelper.USERTOKEN],
 		</xsl:if>
-			PropertyBag["instance"] = record;
-
 		<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')"/>");
 		}
 
@@ -973,8 +981,8 @@ namespace <xsl:value-of select="$controllerns"/> {
     <xsl:template name="menu">
 		<xsl:param name="property"/>
 		<xsl:variable name="entity" select="//adl:entity[@name=$property/@entity]"/>
-			PropertyBag["<xsl:value-of select="concat('all_', $property/@name)"/>"] = 
-				<xsl:value-of select="concat( 'FetchAll', $entity/@name)"/>( NHibernateHelper.GetCurrentSession());
+			<xsl:value-of select="concat('all_', $property/@name)"/> = 
+				<xsl:value-of select="concat( 'FetchAll', $entity/@name)"/>( NHibernateHelper.GetCurrentSession()),
     </xsl:template>
 
 	<xsl:template name="primary-key-csharp-type">