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.8 -r1.8.2.1
--- openacs-4/packages/news/tcl/news-procs.xql	26 Mar 2005 21:45:09 -0000	1.8
+++ openacs-4/packages/news/tcl/news-procs.xql	15 Jun 2005 17:47:58 -0000	1.8.2.1
@@ -26,4 +26,20 @@
 WHERE content_type = 'image' AND parent_id = :item_id
 </querytext></fullquery>
 
+  <fullquery name="callback::MergePackageUser::impl::news.update_from_news_approval">
+    <querytext>	
+      update cr_news
+      set approval_user = :to_user_id
+      where approval_user = :from_user_id
+    </querytext>
+  </fullquery>	
+  
+  <fullquery name="callback::MergeShowUserInfo::impl::news.getaprovednews">
+    <querytext>	
+      select news_id, lead
+      from cr_news 
+      where approval_user = :user_id
+    </querytext>
+  </fullquery>	
+
 </queryset>