Index: openacs-4/www/blank-compat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-compat.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/www/blank-compat.tcl	30 Aug 2007 07:23:04 -0000	1.3
+++ openacs-4/www/blank-compat.tcl	3 Dec 2007 20:29:30 -0000	1.4
@@ -32,15 +32,6 @@
     }
 }
 
-if { ![template::util::is_nil focus] } {
-    ns_log warning "blank-compat: property focus is deprecated in blank-master - focus should be handled in site-master."
-
-    # Handle elements where the name contains a dot
-    if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
-        lappend body(onload) "acs_Focus('${form_name}', '${element_name}');"
-    }
-}
-
 if {[exists_and_not_null body_attributes]} {
     foreach body_attribute $body_attributes {
         if {[lsearch {