Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	25 Apr 2005 22:50:38 -0000	1.21
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	10 Jan 2007 21:22:03 -0000	1.22
@@ -82,7 +82,7 @@
 } {
     set is_publishable [db_string ip_is_publishable_p ""]
 
-    return [string equal $is_publishable t]
+    return [string equal $is_publishable "t"]
 } 
 
 
@@ -180,7 +180,7 @@
 
   set types [db_list cmbt_get_content_mime_types ""]
 
-  set need_text [expr [llength $types] > 0]
+  set need_text [expr {[llength $types] > 0}]
 
   if { [info exists opts(get_labels)] } {
     set methods [list \
@@ -268,7 +268,7 @@
   # Strip off file extension
   set last [string last "." $url]
   if { $last > 0 } {
-    set url [string range $url 0 [expr $last - 1]]
+    set url [string range $url 0 [expr {$last - 1}]]
   }
 
   if { ![template::util::is_nil root_folder] } {
@@ -665,16 +665,16 @@
 } {
     upvar 1 $array content
 
-    if { [empty_string_p $item_id] } {
+    if { $item_id eq "" } {
         set item_id [get_item_from_revision $revision_id]
-        if { [empty_string_p $item_id] } {
+        if { $item_id eq "" } {
             ns_log notice "item::get_content: no such revision: $reivision_id"
             return 0
         }  
-    } elseif { [empty_string_p $revision_id] } {
+    } elseif { $revision_id eq "" } {
         set revision_id [item::get_live_revision $item_id]
     }
-    if { [empty_string_p $revision_id] } {
+    if { $revision_id eq "" } {
         error "You must supply revision_id, or the item must have a live revision."
     }
     
@@ -706,7 +706,7 @@
 
     @author Peter Marklund
 } {
-    if { [empty_string_p $revision_id] } {
+    if { $revision_id eq "" } {
         set revision_id [item::get_element -item_id $item_id -element latest_revision]
     }