Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -N -r1.7.2.5 -r1.7.2.6
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	10 May 2003 16:08:15 -0000	1.7.2.5
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	6 Jun 2003 08:58:29 -0000	1.7.2.6
@@ -103,6 +103,9 @@
 
     @option elements        A block of element specifications.
 
+    @option show_required_p Should the form template show which elements are required. 
+                            Use 1 or t for true, 0 or f for false. Defaults to true.
+
     @see template::form::get_button
     @see template::form::get_action
 
@@ -343,9 +346,12 @@
   
   if { [string equal $style {}] } { 
       set style [parameter::get \
-                     -package_id [apm_package_id_from_key "acs-templating"] \
+                     -package_id [ad_conn subsite_id] \
                      -parameter DefaultFormStyle \
-                     -default "standard"]
+                     -default [parameter::get \
+                                   -package_id [apm_package_id_from_key "acs-templating"] \
+                                   -parameter DefaultFormStyle \
+                                   -default "standard-lars"]]
   }
   set file_stub [template::get_resource_path]/forms/$style