Index: openacs-4/packages/news/lib/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/item.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/lib/item.tcl	27 Oct 2014 16:41:46 -0000	1.4
+++ openacs-4/packages/news/lib/item.tcl	7 Aug 2017 23:48:12 -0000	1.5
@@ -35,17 +35,18 @@
 
 
 # live view of a news item in its active revision
-set item_exist_p [db_0or1row "" "
-select item_id,
+set item_exist_p [db_0or1row get_news_info {
+    select item_id,
        live_revision,
        publish_title,
        publish_lead,
        publish_format,
        publish_body,
        publish_date,
        '<a href=\"/shared/community-member?user_id=' || creation_user || '\">' || item_creator ||  '</a>' as creator_link
-from   news_items_live_or_submitted
-where  item_id = :item_id"]
+    from   news_items_live_or_submitted
+    where  item_id = :item_id
+}]
 
 if { $item_exist_p } {
 
@@ -56,9 +57,11 @@
     #
     set get_content [db_map get_content]
     if {$get_content ne ""} {
-	set publish_body [db_string get_content "select  content
-	from    cr_revisions
-	where   revision_id = :live_revision"]
+	set publish_body [db_string get_content {
+            select  content
+            from    cr_revisions
+            where   revision_id = :live_revision
+        }]
     }
 
     # text-only body
@@ -130,3 +133,9 @@
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: