Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/www/blank-master.tcl	7 Jan 2004 00:17:32 -0000	1.7
+++ openacs-4/www/blank-master.tcl	7 Jan 2004 15:34:26 -0000	1.8
@@ -45,23 +45,8 @@
 if { ![template::util::is_nil focus] } {
     # Handle elements wohse name contains a dot
     if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
-
-        # Add safety code to test that the element exists '
-        set header_stuff "$header_stuff
-          <script language=\"JavaScript\">
-            function acs_focus( form_name, element_name ){
-                if (document.forms == null) return;
-                if (document.forms\[form_name\] == null) return;
-                if (document.forms\[form_name\].elements\[element_name\] == null) return;
-                if (document.forms\[form_name\].elements\[element_name\].type == 'hidden') return;
-
-                document.forms\[form_name\].elements\[element_name\].focus();
-            }
-          </script>
-        "
-        
         template::multirow append \
-                attribute onload "javascript:acs_focus('${form_name}', '${element_name}')"
+                attribute onload "javascript:acs_Focus('${form_name}', '${element_name}')"
     }
 }
 
@@ -71,7 +56,6 @@
 multirow append header_links "stylesheet" "text/css" "/resources/acs-templating/forms.css" "all"
 multirow append header_links "stylesheet" "text/css" "/resources/acs-subsite/default-master.css" "all"
 
-
 # Developer-support: We include that here, so that master template authors don't have to worry about it
 
 if { [llength [namespace eval :: info procs ds_show_p]] == 1 } {