Index: openacs-4/packages/news/www/item-create-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create-3.tcl,v
diff -u -r1.19.2.2 -r1.19.2.3
--- openacs-4/packages/news/www/item-create-3.tcl	25 Sep 2015 08:25:57 -0000	1.19.2.2
+++ openacs-4/packages/news/www/item-create-3.tcl	11 Aug 2016 12:52:38 -0000	1.19.2.3
@@ -37,8 +37,8 @@
 # the news_admin or an open approval policy allow immediate publishing
 #
 if { $news_admin_p == 1 || $approval_policy eq "open" } { 
-    set approval_user [ad_conn "user_id"]
-    set approval_ip [ad_conn "peeraddr"]
+    set approval_user [ad_conn user_id]
+    set approval_ip [ad_conn peeraddr]
     set approval_date [dt_sysdate]
     set live_revision_p "t"
 } else {
@@ -55,8 +55,8 @@
 
 # get creation_foo
 set creation_date [dt_sysdate]
-set creation_ip [ad_conn "peeraddr"]
-set user_id [ad_conn "user_id"]
+set creation_ip [ad_conn peeraddr]
+set user_id [ad_conn user_id]
 
 # avoid any db weirdness with the "." in the variable name.
 set mime_type ${publish_body.format}
@@ -68,7 +68,7 @@
 # call. The blob stuff is just needed for Oracle.
 #
 set content_add [db_map content_add]
-if {![string match $content_add ""]} {
+if {$content_add ne ""} {
     db_dml content_add {} -blobs  [list $publish_body]
 }