Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/www/default-master.tcl	30 Apr 2002 22:26:53 -0000	1.3
+++ openacs-4/www/default-master.tcl	22 May 2002 09:24:56 -0000	1.4
@@ -35,8 +35,11 @@
 }
 
 if { ![template::util::is_nil focus] } {
-  template::multirow append \
-    attribute onLoad "javascript:document.${focus}.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()"
 }