Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl	7 Nov 2002 13:13:27 -0000	1.12
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl	18 Nov 2002 13:42:08 -0000	1.13
@@ -321,5 +321,18 @@
     set ds_link {}
 }
 
+set change_locale_url "/acs-lang/?package_id=[ad_conn package_id]"
+
+multirow create body_attributes key value
+
+if { [exists_and_not_null focus] } {
+    # Handle elements wohse name contains a dot
+    regexp {^([^.]*)\.(.*)$} $focus match form_name element_name
+    
+    multirow append \
+            body_attributes onload "javascript:document.forms\['${form_name}'\].elements\['${element_name}'\].focus()"
+}
+
 ad_return_template
 
+