diff --git a/schemas/adl-0.dtd b/schemas/adl-0.dtd index 1101d39..6f7b926 100755 --- a/schemas/adl-0.dtd +++ b/schemas/adl-0.dtd @@ -13,7 +13,7 @@ @@ -109,8 +109,9 @@ that we can allow HTML block level entities within content elements --> common SQL data types geopos : a latitude/longitude pair (experimental and not yet implemented) image : a raster image file, in jpeg|gif|png format (experimental, not yet implemented) + message : an internationalised message, having different translations for different locales --> - + @@ -567,7 +568,7 @@ property[@type='entity']. TODO: Not complete, not yet strictly convinced it's th to this list --> - diff --git a/transforms01/adl2controllerclasses.xslt b/transforms01/adl2controllerclasses.xslt index c353ca1..6ce7db8 100755 --- a/transforms01/adl2controllerclasses.xslt +++ b/transforms01/adl2controllerclasses.xslt @@ -9,8 +9,8 @@ Transform ADL into (partial) controller classes $Author: sb $ - $Revision: 1.11 $ - $Date: 2008-03-03 17:35:28 $ + $Revision: 1.12 $ + $Date: 2008-03-04 17:30:52 $ --> + select="substring( '$Revision: 1.12 $', 11)"/> @@ -520,6 +520,62 @@ namespace { RenderViewWithFailover("", ""); } + + + + + /// <summary> + /// Show the form named , containing the indicated record. As + /// the primary key of the record is itself an entity, we need to first fetch that entity + /// </summary> + + + + /// <param name="">the key value of the key value of the record to show</param> + + + /// <param name="">the key value of the record to show</param> + + + + [AccessibleThrough(Verb.Get)] + public void ( + + + + + + + + + + + + + + + , + ) { + ISession hibernator = + NHibernateHelper.GetCurrentSession( Session[ NHibernateHelper.USERTOKEN], + Session[NHibernateHelper.PASSTOKEN]); + this.( + + + + hibernator.CreateCriteria(typeof()) + .Add( Expression.Eq( "", )) + .UniqueResult<>() + + + + + + , + ); + } + /// <summary> /// Show the form named , containing the indicated record @@ -599,6 +655,10 @@ namespace { + + + + diff --git a/transforms01/adl2mssql.xslt b/transforms01/adl2mssql.xslt index 442b0e0..1e52110 100755 --- a/transforms01/adl2mssql.xslt +++ b/transforms01/adl2mssql.xslt @@ -12,7 +12,7 @@ Convert ADL to MS-SQL $Author: sb $ - $Revision: 1.10 $ + $Revision: 1.11 $ --> @@ -34,7 +34,7 @@ -- Application Description Language framework -- -- Database for application version - -- Generated for MS-SQL 2000+ using adl2mssql.xslt + -- Generated for MS-SQL 2000+ using adl2mssql.xslt -- -- Code generator (c) 2007 Cygnet Solutions Ltd -- @@ -181,7 +181,7 @@ ------------------------------------------------------------------------------------------------- CREATE TABLE "" ( - + , @@ -200,9 +200,9 @@ - + , - PRIMARY KEY( " + PRIMARY KEY( " ", ) @@ -455,7 +455,7 @@ - + -- Suppressing output of property , -- as it is the 'one' end of a one-to-many relationship diff --git a/transforms01/adl2views.xslt b/transforms01/adl2views.xslt index 9ae0694..db9abeb 100755 --- a/transforms01/adl2views.xslt +++ b/transforms01/adl2views.xslt @@ -12,8 +12,8 @@ Transform ADL into velocity view templates $Author: sb $ - $Revision: 1.7 $ - $Date: 2008-03-03 17:35:28 $ + $Revision: 1.8 $ + $Date: 2008-03-04 17:30:52 $ --> @@ -27,17 +27,16 @@ TODO: we need to generate views for each available locale, but this is not yet implemented. When it is we will almost certainly still need a 'default locale' --> - - - + + + + + select="substring( '$Revision: 1.8 $', 11)"/> @@ -65,18 +64,10 @@ - - + + - - - - - - - - - + [none] @@ -193,9 +184,10 @@ ${ScriptsHelper.InstallScript( "Sitewide")} ${ScriptsHelper.InstallScript( "Behaviour")} ${ScriptsHelper.InstallScript( "Epoch")} + ${ScriptsHelper.InstallScript( "Panes")}