Index: openacs-4/packages/news/tcl/news-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-callback-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/news/tcl/news-callback-procs.tcl	8 Aug 2006 21:27:04 -0000	1.3
+++ openacs-4/packages/news/tcl/news-callback-procs.tcl	7 Aug 2017 23:48:12 -0000	1.4
@@ -17,7 +17,7 @@
     ns_log Notice $msg
     set result [list $msg]
 
-    set news [db_list_of_lists getaprovednews { *SQL* }]
+    set news [db_list_of_lists getaprovednews {}]
 
     lappend result $news
 
@@ -34,7 +34,7 @@
     ns_log Notice $msg
     set result [list $msg]
 
-    db_dml update_from_news_approval { *SQL* }
+    db_dml update_from_news_approval {}
 
     lappend result "Merge of news is done"
 
@@ -96,3 +96,9 @@
 	}
         return "OK"
     }      
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: