Index: openacs.org-dev/www/templates/general-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/general-master.tcl,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/www/templates/general-master.tcl	20 Sep 2002 00:45:59 -0000	1.3
+++ openacs.org-dev/www/templates/general-master.tcl	28 Sep 2002 21:14:59 -0000	1.4
@@ -36,3 +36,16 @@
 # Edit This Page - format the etp link for style sheet
 set etp_link [etp::get_etp_link]
 regsub "^<a" $etp_link "<a class=\"top\"" etp_link
+
+#focus form elements
+if { ![template::util::is_nil focus] } {
+    # Handle elements wohse name contains a dot
+    regexp {^([^.]*)\.(.*)$} $focus match form_name element_name
+
+    template::multirow append \
+            attribute onload "javascript:document.forms\['${form_name}'\].elements\['${element_name}'
+\].focus()"
+}
+
+
+