Index: openacs-4/packages/news/lib/item.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/item.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/news/lib/item.tcl 6 Sep 2013 17:06:05 -0000 1.2 +++ openacs-4/packages/news/lib/item.tcl 30 Sep 2013 10:51:35 -0000 1.3 @@ -56,14 +56,14 @@ # RAL: publish_body is already snagged in the 1st query above for postgres. # set get_content [db_map get_content] - if {![string match "" $get_content]} { + if {$get_content ne ""} { set publish_body [db_string get_content "select content from cr_revisions where revision_id = :live_revision"] } # text-only body - if {[info exists html_p] && [string equal $html_p "f"]} { + if {[info exists html_p] && $html_p eq "f"} { set publish_body [ad_text_to_html -- $publish_body] } @@ -86,7 +86,7 @@ # get image info, if any set image_id [news_get_image_id $item_id] - if {![empty_string_p $image_id]} { + if {$image_id ne ""} { set publish_image "image/$image_id" } else { set publish_image {}