Index: openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl,v diff -u -r1.33.2.1 -r1.33.2.2 --- openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 11 Sep 2015 11:40:59 -0000 1.33.2.1 +++ openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 2 Jan 2016 21:58:25 -0000 1.33.2.2 @@ -136,7 +136,11 @@ set interval_id [notification::get_interval_id -name instant] set delivery_method_id [notification::get_delivery_method_id -name email] set community_package_id [dotlrn_community::get_package_id $community_id] - set news_package_id [db_string "getnewspackageid" "select package_id from apm_packages where package_key ='news' and package_id in (select object_id from acs_objects where context_id = :community_package_id)"] + set news_package_id [db_string getnewspackageid { + select package_id from apm_packages + where package_key ='news' + and package_id in (select object_id from acs_objects where context_id = :community_package_id) + }] notification::request::new \ -type_id $type_id \ @@ -162,7 +166,11 @@ remove_portlet $portal_id $args set community_package_id [dotlrn_community::get_package_id $community_id] - set news_package_id [db_string "getnewspackageid" "select package_id from apm_packages where package_key ='news' and package_id in (select object_id from acs_objects where context_id = :community_package_id)"] + set news_package_id [db_string getnewspackageid { + select package_id from apm_packages + where package_key ='news' + and package_id in (select object_id from acs_objects where context_id = :community_package_id) + }] notification::request::delete \ -request_id [notification::request::get_request_id \