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")}