Index: openacs-4/packages/dotlrn/www/community-edit-revert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit-revert.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/community-edit-revert.tcl	8 Aug 2006 21:26:23 -0000	1.8
+++ openacs-4/packages/dotlrn/www/community-edit-revert.tcl	1 Nov 2013 21:08:31 -0000	1.9
@@ -30,7 +30,7 @@
 set community_id [dotlrn_community::get_community_id]
 dotlrn::require_user_admin_community -user_id $user_id -community_id $community_id
 
-if {![empty_string_p $header_logo_only]} {
+if {$header_logo_only ne ""} {
     # just blow away the header logo stuff
     dotlrn_community::unset_attribute \
         -community_id $community_id \
@@ -49,7 +49,7 @@
 set parent_id [db_string get_root_folder {}]
 set logo_name "community_logo_$community_id"
 set item_id [db_string get_item_id "" -default ""]
-if { ![empty_string_p $item_id] }  {
+if { $item_id ne "" }  {
     db_exec_plsql delete_cr_item ""
 }