Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl 1 Mar 2005 00:01:24 -0000 1.12
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl 10 Jan 2007 21:22:09 -0000 1.13
@@ -19,7 +19,7 @@
# RBM: Check if this is the Main Site and prevent the user from being
# able to remove Read permission on "The Public" and locking
# him/herself out.
-if { [string equal $object_id [subsite::main_site_id]] } {
+if {$object_id eq [subsite::main_site_id]} {
set mainsite_p 1
} else {
set mainsite_p 0
@@ -42,7 +42,7 @@
db_1row context { *SQL* }
-if { $security_inherit_p == "t" && ![empty_string_p $context_id] } {
+if { $security_inherit_p eq "t" && $context_id ne "" } {
lappend controls "Don't Inherit Permissions from [ad_quotehtml $context_name]"
} else {
lappend controls "Inherit Permissions from [ad_quotehtml $context_name]"
@@ -55,7 +55,7 @@
set show_children_url "one?[export_vars {object_id application_url {children_p t}}]"
set hide_children_url "one?[export_vars {object_id application_url {children_p f}}]"
-if [string equal $children_p "t"] {
+if {$children_p eq "t"} {
db_multirow children children { *SQL* } {
}
} else {