Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/news/tcl/news-procs.tcl 13 Jun 2005 16:34:22 -0000 1.21
+++ openacs-4/packages/news/tcl/news-procs.tcl 15 Jun 2005 17:50:27 -0000 1.22
@@ -372,39 +372,3 @@
rss_gen_report $subscr_id
}
-namespace eval news::merge {
-
- ad_proc -callback MergeShowUserInfo -impl news {
- -user_id:required
- } {
- Show the news items
- } {
- set msg "News items of $user_id"
- ns_log Notice $msg
- set result [list $msg]
-
- set news [db_list_of_lists getaprovednews { *SQL* }]
-
- lappend result $news
-
- return $result
- }
-
- ad_proc -callback MergePackageUser -impl news {
- -from_user_id:required
- -to_user_id:required
- } {
- Merge the news of two users.
- } {
- set msg "Merging news"
- ns_log Notice $msg
- set result [list $msg]
-
- db_dml update_from_news_approval { *SQL* }
-
- lappend result "Merge of news is done"
-
- return $result
- }
-
-}
Index: openacs-4/packages/news/tcl/news-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/news/tcl/news-procs.xql 13 Jun 2005 16:34:22 -0000 1.9
+++ openacs-4/packages/news/tcl/news-procs.xql 15 Jun 2005 17:50:27 -0000 1.10
@@ -26,20 +26,4 @@
WHERE content_type = 'image' AND parent_id = :item_id
-
-
- update cr_news
- set approval_user = :to_user_id
- where approval_user = :from_user_id
-
-
-
-
-
- select news_id, lead
- from cr_news
- where approval_user = :user_id
-
-
-