Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/www/blank-master.tcl	6 Dec 2007 18:33:20 -0000	1.34
+++ openacs-4/www/blank-master.tcl	6 Dec 2007 18:50:13 -0000	1.35
@@ -175,7 +175,9 @@
     if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
         template::add_body_handler \
             -event onload \
-            -script "acs_Focus('${form_name}', '${element_name}');"
+            -script "acs_Focus('${form_name}', '${element_name}');" \
+            -identifier "focus"
+        
     }
 }
 
@@ -186,9 +188,10 @@
 
     foreach name $names {
         set event [lindex [split $name ","] 0]
-
+ns_log notice "event $event name $name JS !!!$body_handlers($name)!!!"
         foreach javascript $body_handlers($name) {
             lappend body_handlers($event) "[string trimright $javascript "; "];"
+            ns_log notice "adding [string trimright $javascript "; "];"
         }
 
         unset body_handlers($name)