Index: openacs-4/packages/acs-admin/www/apm/package-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/apm/package-delete.tcl	1 Jun 2003 18:31:08 -0000	1.7
+++ openacs-4/packages/acs-admin/www/apm/package-delete.tcl	10 Jan 2007 21:21:59 -0000	1.8
@@ -47,7 +47,7 @@
     where package_key = :package_key
 }]
 
-if { [string equal $initial_install_p "t"] } {
+if {$initial_install_p eq "t"} {
     set kernel_deletion_warning "
 <p>
   You are about to delete package <code>$package_key</code> which is part of the <b>OpenACS core</b>
@@ -57,7 +57,7 @@
     set kernel_deletion_warning ""
 }
 
-if { ![empty_string_p $dependency_warning_text] || ![empty_string_p $kernel_deletion_warning] } {
+if { $dependency_warning_text ne "" || $kernel_deletion_warning ne "" } {
     set warning_text "
 <p>
   <b><font color=\"red\">WARNING</font></b> 
@@ -83,7 +83,7 @@
   </tr>"
 } 
 
-if {![empty_string_p $file_list]} {
+if {$file_list ne ""} {
     set file_list "
     We recommend sourcing all of the drop scripts for the package.  Be aware that this will
     erase all data associated with this package from the database.