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
-      <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;
-
-            document.forms\[form_name\].elements\[element_name\].focus();
-        }
-      </script>
-    "
     
-    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
+          <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;
+
+                document.forms\[form_name\].elements\[element_name\].focus();
+            }
+          </script>
+        "
+        
+        template::multirow append \
+                attribute onload "javascript:acs_focus('${form_name}', '${element_name}')"
+    }
 }