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 -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/news/tcl/news-callback-procs.tcl	23 Sep 2005 14:50:47 -0000	1.1.2.4
+++ openacs-4/packages/news/tcl/news-callback-procs.tcl	10 Oct 2005 12:59:35 -0000	1.1.2.5
@@ -47,6 +47,8 @@
 } {
     Move a new to another class or community
 } {
+     set new_package_id [news_get_package_id -community_id $selected_community]
+
 db_dml update_news {}
 db_dml update_news_acs_objects_1 {}
 db_dml update_news_acs_objects_2 {}
@@ -59,8 +61,8 @@
     Copy a new to another class or community
 } {
 #get environment data
-    db_1row get_news_package_id {}
-    
+    set package_id [news_get_package_id -community_id $selected_community]
+
 #get the revision's data
 
     set news_revisions_list [db_list_of_lists get_news_revisions_data {}]
@@ -105,3 +107,16 @@
 #does the new includes images?
 }
 
+
+ad_proc -public -callback datamanager::delete_new -impl datamanager {
+     -object_id:required
+} {
+    Move a new to the trash
+} {
+     set trash_package_id [datamanager::get_trash_package_id]
+
+db_dml del_update_news {}
+db_dml del_update_news_acs_objects_1 {}
+db_dml del_update_news_acs_objects_2 {}
+}
+