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