Index: openacs-4/packages/dotlrn/www/dotlrn-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.adp,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/dotlrn-master.adp 15 Nov 2002 09:20:30 -0000 1.14
+++ openacs-4/packages/dotlrn/www/dotlrn-master.adp 18 Nov 2002 13:42:08 -0000 1.15
@@ -24,7 +24,7 @@
@title@
@header_stuff@
-
+ @body_attributes.key@="@body_attributes.value@">
-
\ No newline at end of file
+
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
+