From 9a6b02cd6b551922837966aeb40069741eaa109d Mon Sep 17 00:00:00 2001
From: sb <sb>
Date: Wed, 12 Mar 2008 13:46:10 +0000
Subject: [PATCH] Working hierarchical permissions when generating widgets;
 working sort of menus; many other improvements.

---
 transforms01/adl2controllerclasses.xslt |  16 +-
 transforms01/adl2entityclass.xslt       |  16 +-
 transforms01/adl2views.xslt             | 510 ++++++++++++++----------
 3 files changed, 315 insertions(+), 227 deletions(-)

diff --git a/transforms01/adl2controllerclasses.xslt b/transforms01/adl2controllerclasses.xslt
index 74f0f24..04a1f99 100755
--- a/transforms01/adl2controllerclasses.xslt
+++ b/transforms01/adl2controllerclasses.xslt
@@ -9,8 +9,8 @@
     Transform ADL into (partial) controller classes
     
     $Author: sb $
-    $Revision: 1.14 $
-    $Date: 2008-03-10 17:01:26 $
+    $Revision: 1.15 $
+    $Date: 2008-03-12 13:46:10 $
   -->
 
   <!-- WARNING WARNING WARNING: Do NOT reformat this file! 
@@ -61,7 +61,7 @@
     with the revision number of the generated file if the generated file is 
     stored to CVS -->
       <xsl:variable name="transform-rev1"
-                    select="substring( '$Revision: 1.14 $', 11)"/>
+                    select="substring( '$Revision: 1.15 $', 11)"/>
       <xsl:variable name="transform-revision"
                     select="substring( $transform-rev1, 0, string-length( $transform-rev1) - 1)"/>
 
@@ -463,6 +463,7 @@ namespace <xsl:value-of select="$controllerns"/> {
       </xsl:if>
   }
 }
+    /* ---- [ cut here: next file 'junk'] ------------------------- */
     </xsl:template>
 
     <xsl:template match="adl:property[@required='true']">
@@ -677,7 +678,8 @@ namespace <xsl:value-of select="$controllerns"/> {
 
     <xsl:template name="menus">
       <xsl:param name="entity"/>
-      <xsl:for-each select="$entity/adl:property[@type='entity']">
+      <xsl:for-each select="$entity//adl:property[@type='entity']"> 
+        <!-- $entity//adl:property because it is possible to have type='entity' in the key -->
           /* produce a list of <xsl:value-of select="@entity"/> to populate the menu for <xsl:value-of select="@name"/> */
         <xsl:call-template name="menu">
           <xsl:with-param name="property" select="."/>
@@ -685,6 +687,7 @@ namespace <xsl:value-of select="$controllerns"/> {
 
       </xsl:for-each>
       <xsl:for-each select="$entity/adl:property[@type='link']">
+        <!-- $entity/adl:property because it is not possible to have type='link' in the key -->
           /* produce a list of <xsl:value-of select="@entity"/> to populate the LHS of the shuffle for <xsl:value-of select="@name"/> */
         <xsl:call-template name="menu">
           <xsl:with-param name="property" select="."/>
@@ -705,10 +708,9 @@ namespace <xsl:value-of select="$controllerns"/> {
 
     <xsl:template name="menu">
       <xsl:param name="property"/>
-      <xsl:variable name="ename" select="$property/@entity"/>
-      <xsl:variable name="entity" select="//adl:entity[@name=$ename]"/>
+      <xsl:variable name="entity" select="//adl:entity[@name=$property/@entity]"/>
           PropertyBag["<xsl:value-of select="concat('all_', $property/@name)"/>"] =
-            hibernator.CreateCriteria(typeof(<xsl:value-of select="concat( $entityns, '.', $property/@entity)"/>))<xsl:for-each select="$entity/property[@distinct='user']">
+            hibernator.CreateCriteria(typeof(<xsl:value-of select="concat( $entityns, '.', $entity/@name)"/>))<xsl:for-each select="$entity//adl:property[@distinct='user']">
               <xsl:value-of select="concat('.AddOrder( new Order( &#34;', @name, '&#34;, true))')"/>
             </xsl:for-each>.List&lt;<xsl:value-of select="concat( $entityns, '.', $property/@entity)"/>&gt;();
     </xsl:template>
diff --git a/transforms01/adl2entityclass.xslt b/transforms01/adl2entityclass.xslt
index bab36e9..b7fc83a 100755
--- a/transforms01/adl2entityclass.xslt
+++ b/transforms01/adl2entityclass.xslt
@@ -8,8 +8,8 @@
     Transform ADL into entity classes
     
     $Author: sb $
-    $Revision: 1.11 $
-    $Date: 2008-03-10 17:01:26 $
+    $Revision: 1.12 $
+    $Date: 2008-03-12 13:46:10 $
   -->
 
   <!-- WARNING WARNING WARNING: Do NOT reformat this file! 
@@ -61,7 +61,7 @@
     stored to CVS -->
 
     <xsl:variable name="transform-rev1"
-                  select="substring( '$Revision: 1.11 $', 11)"/>
+                  select="substring( '$Revision: 1.12 $', 11)"/>
     <xsl:variable name="transform-revision"
                   select="substring( $transform-rev1, 0, string-length( $transform-rev1) - 1)"/>
 
@@ -220,8 +220,8 @@
           get {
             StringBuilder result = new StringBuilder();
           <xsl:choose>
-            <xsl:when test="adl:property[@distinct='user']">
-              <xsl:for-each select="adl:property[@distinct='user']">
+            <xsl:when test="descendant::adl:property[@distinct='user']">
+              <xsl:for-each select="descendant::adl:property[@distinct='user']">
                 <xsl:choose>
                   <xsl:when test="@type='message'">
             if ( <xsl:value-of select="@name"/> != null)
@@ -297,11 +297,11 @@
             return result;
           }
         }
-    <!-- 'descendant' to catch properties inside keys as well as properties which are direct children -->
-    <xsl:apply-templates select="descendant::adl:property"/>
+        <!-- 'descendant' to catch properties inside keys as well as properties which are direct children -->
+        <xsl:apply-templates select="descendant::adl:property"/>
       }
     }
-
+    /* ---- [ cut here: next file 'junk'] ------------------------- */
 
   </xsl:template>
 
diff --git a/transforms01/adl2views.xslt b/transforms01/adl2views.xslt
index 5d1595c..28fd240 100755
--- a/transforms01/adl2views.xslt
+++ b/transforms01/adl2views.xslt
@@ -12,8 +12,8 @@
     Transform ADL into velocity view templates
     
     $Author: sb $
-    $Revision: 1.10 $
-    $Date: 2008-03-10 17:01:26 $
+    $Revision: 1.11 $
+    $Date: 2008-03-12 13:46:10 $
   -->
   <!-- WARNING WARNING WARNING: Do NOT reformat this file! 
      Whitespace (or lack of it) is significant! -->
@@ -44,7 +44,7 @@
     stored to CVS -->
 
   <xsl:variable name="transform-rev1"
-                select="substring( '$Revision: 1.10 $', 11)"/>
+                select="substring( '$Revision: 1.11 $', 11)"/>
   <xsl:variable name="transform-revision"
                 select="substring( $transform-rev1, 0, string-length( $transform-rev1) - 1)"/>
 
@@ -89,13 +89,13 @@
 
           Generated using adl2views.xslt <xsl:value-of select="$transform-revision"/>
         </xsl:comment>
+        ${ShuffleWidgetHelper.InstallScripts()}
         ${Ajax.InstallScripts()}
         ${FormHelper.InstallScripts()}
         ${Validation.InstallScripts()}
         ${Scriptaculous.InstallScripts()}
 
         ${ScriptsHelper.InstallScript( "Behaviour")}
-        ${ScriptsHelper.InstallScript( "ShuffleWidget")}
         ${ScriptsHelper.InstallScript( "Sitewide")}
       </head>
       <body>
@@ -270,18 +270,14 @@
       <body onload="performInitialisation()">
         <xsl:call-template name="top"/>
         <div class="content">
-          #if ( $Flash.errors)
-          <div class="warning">
-          <h2>Errors were encountered</h2>
-          
-          <ul>
-            #foreach ($error in $Flash.errors)
-            <li>
-              $error
-            </li>
+          #if ( $errors)
+          #if ( $errors.Count != 0)
+          <ul class="errors">
+            #foreach( $e in $errors)
+            <li>$t.Enc($e)</li>
             #end
           </ul>
-          </div>
+          #end
           #end
           #if ( $messages.Count == 0)
           <!-- if I try to test for $messages.Count &gt; 0,  I get the &gt; copied straight through to 
@@ -783,39 +779,15 @@
     if they are not a member of a group which has write access, the widget should be 
     disabled. I don't have time to implement this now as it is not trivial, but it is 
     important! -->
-    <xsl:variable name="if-missing">
-      <xsl:choose>
-        <xsl:when test="adl:if-missing[@locale = $locale]">
-          <xsl:value-of select="adl:if-missing[@locale = $locale]"/>
-        </xsl:when>
-        <xsl:when test="@required='true'">
-          You must provide a value for <xsl:value-of select="@name"/>
-        </xsl:when>
-        <xsl:when test="@type='defined'">
-          The value for <xsl:value-of select="@name"/> must be <xsl:value-of select="@definition"/>
-        </xsl:when>
-        <xsl:when test="@type='entity'">
-          The value for <xsl:value-of select="@name"/> must be an instance of <xsl:value-of select="@entity"/>
-        </xsl:when>
-        <xsl:otherwise>
-          The value for <xsl:value-of select="@name"/> must be <xsl:value-of select="@type"/>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:variable>
     <!-- TODO: this is a one-database-role permission model, because that's all SRU needs. 
         Different permissions for different database groups is much more complex! Also, this 
         handles permissions on only properties and entities, not on forms. Perhaps we need a 
         Helper class? -->
     <xsl:variable name="permission">
-      <xsl:choose>
-        <xsl:when test="adl:permission">
-          <xsl:value-of select="adl:permission[@group=$permissions-group]/@permission"/>
-        </xsl:when>
-        <xsl:when test="ancestor::adl:entity/adl:permission">
-          <xsl:value-of select="ancestor::adl:entity/adl:permission[@group=$permissions-group]/@permission"/>
-        </xsl:when>
-        <xsl:otherwise>none</xsl:otherwise>
-      </xsl:choose>
+      <xsl:call-template name="property-permission">
+        <xsl:with-param name="property" select="."/>
+        <xsl:with-param name="groupname" select ="$permissions-group"/>
+      </xsl:call-template>
     </xsl:variable>
     <xsl:if test="$permission != 'none'">
     <tr>
@@ -836,188 +808,44 @@
             <xsl:choose>
               <xsl:when test="@type='entity'">
                 <xsl:value-of select="concat('$instance.', @name, '.UserIdentifier')"/>
+                ${FormHelper.HiddenField( <xsl:value-of select="concat('$instance.', @name, '.KeyString')"/>)}
               </xsl:when>
               <!-- TODO: if @type='list' or 'link', should generate Velocity to generate ul list
                 of UserIdentifiers
               -->
               <xsl:otherwise>
-                <xsl:value-of select="concat('$!instance.', @name)"/>
+                <xsl:value-of select="concat('$instance.', @name)"/>
+                ${FormHelper.HiddenField( <xsl:value-of select="concat('$instance.', @name)"/>)}
               </xsl:otherwise>
             </xsl:choose>
           </xsl:when>
+          <xsl:when test="$permission='insert' or $permission='noedit'">
+            #if ($instance.<xsl:value-of select="@name"/>)
+            <xsl:choose>
+              <xsl:when test="@type='entity'">
+                <xsl:value-of select="concat('$instance.', @name, '.UserIdentifier')"/>
+                ${FormHelper.HiddenField( <xsl:value-of select="concat('$instance.', @name, '.KeyString')"/>)}
+              </xsl:when>
+              <xsl:otherwise>
+                <xsl:value-of select="concat('$instance.', @name)"/>
+                ${FormHelper.HiddenField( <xsl:value-of select="concat('$instance.', @name)"/>)}
+              </xsl:otherwise>
+            </xsl:choose>
+            #else
+            <xsl:call-template name="widget">
+              <xsl:with-param name="property" select="."/>
+            </xsl:call-template>
+            #end
+          </xsl:when>
           <!-- TODO: if $permission='insert', then you should get an editable widget if there 
           is no current value, else a 'not authorised' message -->
           <!-- TODO: if $permission='noedit', then you should get an editable widget if there 
           is no current value, else just the value -->
-          <!-- TODO: if required='true', then you should not get the firstoption stuff -->
-          <xsl:when test="@type='entity'">
-            <!-- a menu of the appropriate entity -->
-            #if ( $instance)
-              ${FormHelper.Select( "instance.<xsl:value-of select="@name"/>", $instance.<xsl:value-of select="@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{firstoption='[unset]', firstoptionvalue='-1', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
-            #else
-              ${FormHelper.Select( "instance.<xsl:value-of select="@name"/>", $<xsl:value-of select="@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{firstoption='[unset]', firstoptionvalue='-1', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
-            #end
-          </xsl:when>
-          <xsl:when test="@type='list'">
-            <!-- a multi-select menu of the appropriate entity -->
-            ${FormHelper.Select( "instance.<xsl:value-of select="@name"/>", $instance.<xsl:value-of select="@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{multiple='multiple', size='8', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
-          </xsl:when>
-          <xsl:when test="@type='defined'">
-            <!-- likely to be hardest of all... -->
-            <xsl:variable name="definition">
-              <xsl:value-of select="@definition"/>
-            </xsl:variable>
-            <xsl:variable name="maximum">
-              <xsl:value-of select="//adl:definition[@name=$definition]/@maximum"/>
-            </xsl:variable>
-            <xsl:variable name="minimum">
-              <xsl:value-of select="//adl:definition[@name=$definition]/@minimum"/>
-            </xsl:variable>
-            <xsl:variable name="validationpattern">
-              <xsl:value-of select="//adl:definition[@name=$definition]/@pattern"/>
-            </xsl:variable>
-            <xsl:variable name="definedtype">
-              <xsl:value-of select="//adl:definition[@name=$definition]/@type"/>
-            </xsl:variable>
-            <xsl:variable name="definedsize">
-              <xsl:value-of select="//adl:definition[@name=$definition]/@size"/>
-            </xsl:variable>
-            <input type="text">
-              <xsl:attribute name="class">
-                <xsl:if test="@required='true'">required </xsl:if>
-                <xsl:choose>
-                  <xsl:when test="//adl:definition[@name=$definition]/@pattern">
-                    <xsl:value-of select="concat( 'validate-custom-', $definition)"/>
-                  </xsl:when>
-                  <xsl:when test="//adl:definition[@name=$definition]/@minimum">
-                    <xsl:value-of select="concat( 'validate-custom-', $definition)"/>
-                  </xsl:when>
-                  <xsl:when test="$definedtype='integer'">validate-digits</xsl:when>
-                  <xsl:when test="$definedtype='real'">validate-number</xsl:when>
-                  <xsl:when test="$definedtype='money'">validate-number</xsl:when>
-                  <xsl:when test="$definedtype='date'">date-field validate-date</xsl:when>
-                </xsl:choose>
-              </xsl:attribute>
-              <xsl:attribute name="id">
-                <xsl:value-of select="concat( 'instance_', @name)"/>
-              </xsl:attribute>
-              <xsl:attribute name="name">
-                <xsl:value-of select="concat( 'instance.', @name)"/>
-              </xsl:attribute>
-              <xsl:choose>
-                <xsl:when test="$definedsize &lt; 60">
-                  <xsl:attribute name="size">
-                    <xsl:value-of select="$definedsize"/>
-                  </xsl:attribute>
-                  <xsl:attribute name="maxlength">
-                    <xsl:value-of select="$definedsize"/>
-                  </xsl:attribute>
-                </xsl:when>
-                <xsl:when test="$definedsize &gt;= 60">
-                  <xsl:attribute name="size">
-                    <xsl:value-of select="60"/>
-                  </xsl:attribute>
-                  <xsl:attribute name="maxlength">
-                    <xsl:value-of select="$definedsize"/>
-                  </xsl:attribute>
-                </xsl:when>
-              </xsl:choose>
-              <xsl:attribute name="value">$!instance.<xsl:value-of select="@name"/></xsl:attribute>
-              <xsl:attribute name="title">
-                <xsl:value-of select="normalize-space( $if-missing)"/>
-              </xsl:attribute>
-            </input>
-            <xsl:if test="string-length( $minimum) &gt; 0 and string-length( $maximum) &gt; 0">
-              <div style="width:200px; height:20px; background: transparent url(../images/slider-images-track-right.png) no-repeat top right;">
-                <xsl:attribute name="id">
-                  <xsl:value-of select="concat( @name, '-track')"/>
-                </xsl:attribute>
-                <div style="position: absolute; width: 5px; height: 20px; background: transparent url(../images/slider-images-track-left.png) no-repeat top left">
-                  <xsl:attribute name="id">
-                    <xsl:value-of select="concat( @name, '-track-left')"/>
-                  </xsl:attribute>
-                </div>
-                <div style="width:19px; height:20px;">
-                  <xsl:attribute name="id">
-                    <xsl:value-of select="concat( @name, '-slider')"/>
-                  </xsl:attribute>
-                  <img src="../images/slider-images-handle.png" alt="" style="float: left;" />
-                </div>
-              </div>
-              <script type="text/javascript" language="javascript">
-                // &lt;![CDATA[
-                new Control.Slider('<xsl:value-of select="@name"/>-slider','<xsl:value-of select="@name"/>-track',{
-                  onSlide:function(v){$('<xsl:value-of select="concat( 'instance_', @name)"/>').value = <xsl:value-of select="$minimum"/>+ Math.floor(v*(<xsl:value-of select="$maximum - $minimum"/>))}
-                })
-                // ]]&gt;
-              </script>
-            </xsl:if>
-            <!-- TODO: generate javascript to do client-side validation -->
-          </xsl:when>
-          <xsl:when test="adl:option">
-            <!-- if a property has options, we definitely want a select widget-->
-            <select>
-              <xsl:attribute name="id">
-                <xsl:value-of select="concat( 'instance_', @name)"/>
-              </xsl:attribute>
-              <xsl:attribute name="name">
-                <xsl:value-of select="concat( 'instance.', @name)"/>
-              </xsl:attribute>
-              <xsl:attribute name="title">
-                <xsl:value-of select="normalize-space( $if-missing)"/>
-              </xsl:attribute>
-              <xsl:apply-templates select="adl:option"/>
-            </select>
-            <script type="text/javascript" language="javascript">
-              // &lt;![CDATA[
-              #set ( <xsl:value-of select="concat( '$', @name, '_sel_opt')"/>="<xsl:value-of select="concat( @name, '-$instance.', @name)"/>")
-                option = document.getElementById( "<xsl:value-of select="concat( '$', @name, '_sel_opt')"/>");
-
-                if ( option != null)
-                {
-                  option.selected = true;
-                }
-              // ]]&gt;
-            </script>
-          </xsl:when>
-          <xsl:when test="@type='boolean'">
-            ${FormHelper.CheckboxField( "instance.<xsl:value-of select="@name"/>")}
-          </xsl:when>
-          <xsl:when test="@type='date'">
-            <xsl:variable name="class"><xsl:if test="@required='true'">required </xsl:if>date-field validate-date</xsl:variable>
-            ${FormHelper.TextField( "instance.<xsl:value-of select="@name"/>", "%{class='<xsl:value-of select="$class"/>', textformat='d', size='10', maxlength='10'}")}
-          </xsl:when>
           <xsl:otherwise>
-            <xsl:variable name="class">
-              <xsl:if test="@required='true'">required </xsl:if><xsl:choose>
-                <xsl:when test="@type='integer'">validate-digits</xsl:when>
-                <xsl:when test="@type='real'">validate-number</xsl:when>
-                <xsl:when test="@type='money'">validate-number</xsl:when>
-              </xsl:choose>
-            </xsl:variable>
-            <xsl:variable name="size">
-              <xsl:choose>
-                <xsl:when test="@size &lt; 60">
-                  <xsl:value-of select="@size"/>
-                </xsl:when>
-                <xsl:when test="@type='integer'">8</xsl:when>
-                <xsl:when test="@type='real'">8</xsl:when>
-                <xsl:when test="@type='money'">8</xsl:when>
-                <xsl:otherwise>60</xsl:otherwise>
-              </xsl:choose>
-            </xsl:variable>
-            <xsl:variable name="maxlength">
-              <xsl:choose>
-                <xsl:when test="@size &gt;= 60">
-                  <xsl:value-of select="@size"/>
-                </xsl:when>
-                <xsl:otherwise>
-                  <xsl:value-of select="$size"/>
-                </xsl:otherwise>
-              </xsl:choose>
-            </xsl:variable>
-            ${FormHelper.TextField( "instance.<xsl:value-of select="@name"/>", "%{class='<xsl:value-of select="$class"/>', title='<xsl:value-of select="normalize-space( $if-missing)"/>', size='<xsl:value-of select="$size"/>', maxlength='<xsl:value-of select="$maxlength"/>'}")}
-         </xsl:otherwise>
+            <xsl:call-template name="widget">
+              <xsl:with-param name="property" select="."/>
+            </xsl:call-template>
+          </xsl:otherwise>
       </xsl:choose>        
       </td>
       <td class="help">
@@ -1027,6 +855,219 @@
     </xsl:if>
   </xsl:template>
 
+    <!-- render an appropriate widget for the indicated property 
+      property: a property element
+    -->
+    <xsl:template name="widget">
+      <xsl:param name="property"/>
+      <xsl:variable name="if-missing">
+        <xsl:choose>
+          <xsl:when test="adl:if-missing[@locale = $locale]">
+            <xsl:value-of select="adl:if-missing[@locale = $locale]"/>
+          </xsl:when>
+          <xsl:when test="$property/@required='true'">
+            You must provide a value for <xsl:value-of select="$property/@name"/>
+          </xsl:when>
+          <xsl:when test="$property/@type='defined'">
+            The value for <xsl:value-of select="$property/@name"/> must be <xsl:value-of select="$property/@definition"/>
+          </xsl:when>
+          <xsl:when test="$property/@type='entity'">
+            The value for <xsl:value-of select="$property/@name"/> must be an instance of <xsl:value-of select="$property/@entity"/>
+          </xsl:when>
+          <xsl:otherwise>
+            The value for <xsl:value-of select="$property/@name"/> must be <xsl:value-of select="$property/@type"/>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:variable>
+      <xsl:choose>
+      <xsl:when test="$property/@type='entity'">
+        <!-- a menu of the appropriate entity -->
+        <xsl:choose>
+          <xsl:when test="$property/@required='true'">
+            <!-- if required='true', then you should not get the firstoption stuff -->
+            #if ( $instance)
+            ${FormHelper.Select( "instance.<xsl:value-of select="$property/@name"/>", $instance.<xsl:value-of select="$property/@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
+            #else
+            ${FormHelper.Select( "instance.<xsl:value-of select="$property/@name"/>", $<xsl:value-of select="$property/@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
+            #end
+          </xsl:when>
+          <xsl:otherwise>
+            #if ( $instance)
+            ${FormHelper.Select( "instance.<xsl:value-of select="$property/@name"/>", $instance.<xsl:value-of select="$property/@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{firstoption='[unset]', firstoptionvalue='-1', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
+            #else
+            ${FormHelper.Select( "instance.<xsl:value-of select="$property/@name"/>", $<xsl:value-of select="$property/@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{firstoption='[unset]', firstoptionvalue='-1', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
+            #end
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:when>
+      <xsl:when test="$property/@type='list'">
+        <!-- a multi-select menu of the appropriate entity -->
+        ${FormHelper.Select( "instance.<xsl:value-of select="$property/@name"/>", $instance.<xsl:value-of select="$property/@name"/>, <xsl:value-of select="concat( '$all_', @name)"/>, "%{multiple='multiple', size='8', text='UserIdentifier', value='KeyString', title='<xsl:value-of select="normalize-space( $if-missing)"/>'}" )}
+      </xsl:when>
+      <xsl:when test="$property/@type='defined'">
+        <!-- likely to be hardest of all... -->
+        <xsl:variable name="definition">
+          <xsl:value-of select="$property/@definition"/>
+        </xsl:variable>
+        <xsl:variable name="maximum">
+          <xsl:value-of select="//adl:definition[@name=$definition]/@maximum"/>
+        </xsl:variable>
+        <xsl:variable name="minimum">
+          <xsl:value-of select="//adl:definition[@name=$definition]/@minimum"/>
+        </xsl:variable>
+        <xsl:variable name="validationpattern">
+          <xsl:value-of select="//adl:definition[@name=$definition]/@pattern"/>
+        </xsl:variable>
+        <xsl:variable name="definedtype">
+          <xsl:value-of select="//adl:definition[@name=$definition]/@type"/>
+        </xsl:variable>
+        <xsl:variable name="definedsize">
+          <xsl:value-of select="//adl:definition[@name=$definition]/@size"/>
+        </xsl:variable>
+        <input type="text">
+          <xsl:attribute name="class">
+            <xsl:if test="$property/@required='true'">required </xsl:if>
+            <xsl:choose>
+              <xsl:when test="//adl:definition[@name=$definition]/@pattern">
+                <xsl:value-of select="concat( 'validate-custom-', $definition)"/>
+              </xsl:when>
+              <xsl:when test="//adl:definition[@name=$definition]/@minimum">
+                <xsl:value-of select="concat( 'validate-custom-', $definition)"/>
+              </xsl:when>
+              <xsl:when test="$definedtype='integer'">validate-digits</xsl:when>
+              <xsl:when test="$definedtype='real'">validate-number</xsl:when>
+              <xsl:when test="$definedtype='money'">validate-number</xsl:when>
+              <xsl:when test="$definedtype='date'">date-field validate-date</xsl:when>
+            </xsl:choose>
+          </xsl:attribute>
+          <xsl:attribute name="id">
+            <xsl:value-of select="concat( 'instance_', @name)"/>
+          </xsl:attribute>
+          <xsl:attribute name="name">
+            <xsl:value-of select="concat( 'instance.', @name)"/>
+          </xsl:attribute>
+          <xsl:choose>
+            <xsl:when test="$definedsize &lt; 60">
+              <xsl:attribute name="size">
+                <xsl:value-of select="$definedsize"/>
+              </xsl:attribute>
+              <xsl:attribute name="maxlength">
+                <xsl:value-of select="$definedsize"/>
+              </xsl:attribute>
+            </xsl:when>
+            <xsl:when test="$definedsize &gt;= 60">
+              <xsl:attribute name="size">
+                <xsl:value-of select="60"/>
+              </xsl:attribute>
+              <xsl:attribute name="maxlength">
+                <xsl:value-of select="$definedsize"/>
+              </xsl:attribute>
+            </xsl:when>
+          </xsl:choose>
+          <xsl:attribute name="value">
+            $!instance.<xsl:value-of select="$property/@name"/>
+          </xsl:attribute>
+          <xsl:attribute name="title">
+            <xsl:value-of select="normalize-space( $if-missing)"/>
+          </xsl:attribute>
+        </input>
+        <xsl:if test="string-length( $minimum) &gt; 0 and string-length( $maximum) &gt; 0">
+          <div style="width:200px; height:20px; background: transparent url(../images/slider-images-track-right.png) no-repeat top right;">
+            <xsl:attribute name="id">
+              <xsl:value-of select="concat( @name, '-track')"/>
+            </xsl:attribute>
+            <div style="position: absolute; width: 5px; height: 20px; background: transparent url(../images/slider-images-track-left.png) no-repeat top left">
+              <xsl:attribute name="id">
+                <xsl:value-of select="concat( @name, '-track-left')"/>
+              </xsl:attribute>
+            </div>
+            <div style="width:19px; height:20px;">
+              <xsl:attribute name="id">
+                <xsl:value-of select="concat( @name, '-slider')"/>
+              </xsl:attribute>
+              <img src="../images/slider-images-handle.png" alt="" style="float: left;" />
+            </div>
+          </div>
+          <script type="text/javascript" language="javascript">
+            // &lt;![CDATA[
+            new Control.Slider('<xsl:value-of select="$property/@name"/>-slider','<xsl:value-of select="$property/@name"/>-track',{
+            onSlide:function(v){$('<xsl:value-of select="concat( 'instance_', @name)"/>').value = <xsl:value-of select="$minimum"/>+ Math.floor(v*(<xsl:value-of select="$maximum - $minimum"/>))}
+            })
+            // ]]&gt;
+          </script>
+        </xsl:if>
+        <!-- TODO: generate javascript to do client-side validation -->
+      </xsl:when>
+      <xsl:when test="adl:option">
+        <!-- if a property has options, we definitely want a select widget-->
+        <select>
+          <xsl:attribute name="id">
+            <xsl:value-of select="concat( 'instance_', @name)"/>
+          </xsl:attribute>
+          <xsl:attribute name="name">
+            <xsl:value-of select="concat( 'instance.', @name)"/>
+          </xsl:attribute>
+          <xsl:attribute name="title">
+            <xsl:value-of select="normalize-space( $if-missing)"/>
+          </xsl:attribute>
+          <xsl:apply-templates select="adl:option"/>
+        </select>
+        <script type="text/javascript" language="javascript">
+          // &lt;![CDATA[
+          #set ( <xsl:value-of select="concat( '$', @name, '_sel_opt')"/>="<xsl:value-of select="concat( @name, '-$instance.', @name)"/>")
+          option = document.getElementById( "<xsl:value-of select="concat( '$', @name, '_sel_opt')"/>");
+
+          if ( option != null)
+          {
+          option.selected = true;
+          }
+          // ]]&gt;
+        </script>
+      </xsl:when>
+      <xsl:when test="$property/@type='boolean'">
+        ${FormHelper.CheckboxField( "instance.<xsl:value-of select="$property/@name"/>")}
+      </xsl:when>
+      <xsl:when test="$property/@type='date'">
+        <xsl:variable name="class">
+          <xsl:if test="$property/@required='true'">required </xsl:if>date-field validate-date
+        </xsl:variable>
+        ${FormHelper.TextField( "instance.<xsl:value-of select="$property/@name"/>", "%{class='<xsl:value-of select="$class"/>', textformat='d', size='10', maxlength='10'}")}
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:variable name="class">
+          <xsl:if test="$property/@required='true'">required </xsl:if>
+          <xsl:choose>
+            <xsl:when test="$property/@type='integer'">validate-digits</xsl:when>
+            <xsl:when test="$property/@type='real'">validate-number</xsl:when>
+            <xsl:when test="$property/@type='money'">validate-number</xsl:when>
+          </xsl:choose>
+        </xsl:variable>
+        <xsl:variable name="size">
+          <xsl:choose>
+            <xsl:when test="$property/@size &lt; 60">
+              <xsl:value-of select="$property/@size"/>
+            </xsl:when>
+            <xsl:when test="$property/@type='integer'">8</xsl:when>
+            <xsl:when test="$property/@type='real'">8</xsl:when>
+            <xsl:when test="$property/@type='money'">8</xsl:when>
+            <xsl:otherwise>60</xsl:otherwise>
+          </xsl:choose>
+        </xsl:variable>
+        <xsl:variable name="maxlength">
+          <xsl:choose>
+            <xsl:when test="$property/@size &gt;= 60">
+              <xsl:value-of select="$property/@size"/>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:value-of select="$size"/>
+            </xsl:otherwise>
+          </xsl:choose>
+        </xsl:variable>
+        ${FormHelper.TextField( "instance.<xsl:value-of select="$property/@name"/>", "%{class='<xsl:value-of select="$class"/>', title='<xsl:value-of select="normalize-space( $if-missing)"/>', size='<xsl:value-of select="$size"/>', maxlength='<xsl:value-of select="$maxlength"/>'}")}
+      </xsl:otherwise>
+      </xsl:choose>
+    </xsl:template>
+
   <xsl:template match="adl:prompt">
     <xsl:value-of select="@prompt"/>
   </xsl:template>
@@ -1409,7 +1450,52 @@
     </xsl:choose>
   </xsl:template>
 
-  <!-- just copy anything we can't match -->
+    <!-- find, as a string, the permission which applies to this property in the context of the named group.
+      NOTE: recurses up the group hierarchy - if it has cycles that's your problem, buster.
+      property: a property element
+      groupname: a string, being the name of a group
+    -->
+    <xsl:template name="property-permission">
+      <xsl:param name="property"/>
+      <xsl:param name="groupname" select="public"/>
+      <xsl:choose>
+        <xsl:when test="$property/adl:permission[@group=$groupname]">
+          <xsl:value-of select="$property/adl:permission[@group=$groupname]/@permission"/>
+        </xsl:when>
+        <xsl:when test="$property/ancestor::adl:entity/adl:permission[@group=$groupname]">
+          <xsl:value-of select="$property/ancestor::adl:entity/adl:permission[@group=$groupname]/@permission"/>
+        </xsl:when>
+        <xsl:when test="//adl:group[@name=$groupname]/@parent">
+          <xsl:call-template name="property-permission">
+            <xsl:with-param name="property" select="$property"/>
+            <xsl:with-param name="groupname" select="//adl:group[@name=$groupname]/@parent"/>
+          </xsl:call-template>
+        </xsl:when>
+        <xsl:otherwise>none</xsl:otherwise>
+      </xsl:choose>
+    </xsl:template>
+    
+    <!-- find, as a string, the permission which applies to this field in the context of the named group
+      field: a field element
+      groupname: a string, being the name of a group
+    -->
+    <xsl:template name="field-permission">
+      <xsl:param name="field"/>
+      <xsl:param name="groupname"/>
+      <xsl:choose>
+        <xsl:when test="$field/adl:permission[@group=$groupname]">
+          <xsl:value-of select="$field/adl:permission[@group=$groupname]/@permission"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:call-template name="property-permission">
+            <xsl:with-param name="property" select="$field/ancestor::adl:entity//adl:property[@name=$field/@name]"/>
+            <xsl:with-param name="groupname" select="$groupname"/>
+          </xsl:call-template>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:template>
+
+    <!-- just copy anything we can't match -->
   <xsl:template match="@* | node()">
     <xsl:copy>
       <xsl:apply-templates select="@* | node()"/>