Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/www/default-master.tcl 1 Jul 2003 12:32:02 -0000 1.12
+++ openacs-4/www/default-master.tcl 26 Aug 2003 13:39:13 -0000 1.13
@@ -56,23 +56,24 @@
if { ![template::util::is_nil focus] } {
# Handle elements wohse name contains a dot
- regexp {^([^.]*)\.(.*)$} $focus match form_name element_name
-
- # Add safety code to test that the element exists
- set header_stuff "$header_stuff
-
- "
- template::multirow append \
- attribute onload "javascript:acs_focus('${form_name}', '${element_name}')"
+ if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
+ # Add safety code to test that the element exists
+ set header_stuff "$header_stuff
+
+ "
+
+ template::multirow append \
+ attribute onload "javascript:acs_focus('${form_name}', '${element_name}')"
+ }
}