Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	1 Nov 2006 20:08:33 -0000	1.17
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	10 Jan 2007 21:22:03 -0000	1.18
@@ -72,14 +72,14 @@
 
     @see content::symlink::new content::extlink::new content::folder::new
 } {
-    if {[empty_string_p $creation_user]} {
+    if {$creation_user eq ""} {
         set creation_user [ad_conn user_id]
     }
 
-    if {[empty_string_p $creation_ip]} {
+    if {$creation_ip eq ""} {
         set creation_ip [ad_conn peeraddr]
     }
-    if {[empty_string_p $package_id]} {
+    if {$package_id eq ""} {
         set package_id [ad_conn package_id]
     }
 
@@ -225,11 +225,11 @@
         error "content::item::get revision was '${revision}'. It must be 'live' or 'latest'"
     }
     set content_type [content_type -item_id $item_id]
-    if {[string equal "" $content_type]} {
+    if {$content_type eq ""} {
         # content_type query was unsucessful, item does not exist
         return 0
     }
-    if {[string equal "content_folder" $content_type]} {
+    if {"content_folder" eq $content_type} {
         return [db_0or1row get_item_folder "" -column_array local_array]
     }
     set table_name [db_string get_table_name "select table_name from acs_object_types where object_type=:content_type"]
@@ -271,13 +271,13 @@
 	    # create local variable to use for binding
 
 	    set $attribute $value
-	    if {![string equal "" $update_text]} {
+	    if {$update_text ne ""} {
 		append update_text ","
 	    }
 	    append update_text " ${attribute} = :${attribute} "
 	}
     }
-    if {![string equal "" $update_text]} {
+    if {$update_text ne ""} {
 
 	# we have valid attributes, update them
 
@@ -746,7 +746,7 @@
 } {
 
     set filename [template::util::file::get_property filename $upload_file]
-    if {$filename != "" } {
+    if {$filename ne "" } {
 	set tmp_filename [template::util::file::get_property tmp_filename $upload_file]
 	set mime_type [template::util::file::get_property mime_type $upload_file]
 	set tmp_size [file size $tmp_filename]