Index: openacs-4/packages/dynamic-types/lib/templates/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/lib/templates/Attic/add.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/dynamic-types/lib/templates/add.tcl	18 Feb 2005 19:20:10 -0000	1.1.2.3
+++ openacs-4/packages/dynamic-types/lib/templates/add.tcl	18 Feb 2005 19:24:12 -0000	1.1.2.4
@@ -19,19 +19,19 @@
 
 if {[info exists id_column] && $id_column ne ""} {
     dtype::form::add_elements \
-        -dform standard \
+        -dform __dform \
         -object_id $id_column \
         -form add
 } else {
     dtype::form::add_elements \
         -form add \
-        -dform standard
+        -dform __dform \
         -object_type __object_type
 }
 if {[template::form::is_submission add]} {
     dtype::form::process \
         -form add \
-        -dform standard
+        -dform __dform \
         -object_type __object_type
 }
 
Index: openacs-4/packages/dynamic-types/lib/templates/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/lib/templates/Attic/edit.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dynamic-types/lib/templates/edit.tcl	18 Feb 2005 19:20:10 -0000	1.1.2.2
+++ openacs-4/packages/dynamic-types/lib/templates/edit.tcl	18 Feb 2005 19:24:12 -0000	1.1.2.3
@@ -21,18 +21,18 @@
     dtype::form::add_elements \
         -object_id $object_id \
         -form edit \
-        -dform standard
+        -dform __dform
 } else {
     dtype::form::add_elements \
         -form edit \
         -object_type __object_type \
-        -dform standard
+        -dform __dform
 }
 if {[template::form::is_submission edit]} {
     dtype::form::process \
         -form edit \
         -object_type __object_type \
-        -dform standard
+        -dform __dform
 }
 
 set page_title "Edit pretty_name"
Index: openacs-4/packages/dynamic-types/lib/templates/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/lib/templates/Attic/one.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dynamic-types/lib/templates/one.tcl	18 Feb 2005 19:20:10 -0000	1.1.2.2
+++ openacs-4/packages/dynamic-types/lib/templates/one.tcl	18 Feb 2005 19:24:12 -0000	1.1.2.3
@@ -20,7 +20,7 @@
 dtype::form::add_elements \
     -object_id $id_column \
     -form display \
-    -dform standard
+    -dform __dform
 
 template::form::set_properties \
     display \
Index: openacs-4/packages/dynamic-types/tcl/page-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/page-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dynamic-types/tcl/page-procs.tcl	18 Feb 2005 17:03:11 -0000	1.1.2.2
+++ openacs-4/packages/dynamic-types/tcl/page-procs.tcl	18 Feb 2005 19:24:12 -0000	1.1.2.3
@@ -15,6 +15,7 @@
 ad_proc -public dtype::page::generate_pages {
     -object_type
     -package_key
+    {-dform "standard"}
     {-overwrite "t"}
     {-expand_form "t"}
     {-pages {add edit one index}}
@@ -55,6 +56,7 @@
         regsub -all {pretty_plural} $code $pretty_plural code
         regsub -all {__object_type} $code $object_type code
         regsub -all {table_name} $code $table_name code
+        regsub -all {__dform} $code $dform code
         set fd [open [file join $dest ${page}.tcl] w]
         puts $fd $code
         close $fd