Index: openacs-4/packages/datamanager/tcl/datamanager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/tcl/datamanager-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/datamanager/tcl/datamanager-procs.tcl	23 Sep 2005 14:35:44 -0000	1.1.2.3
+++ openacs-4/packages/datamanager/tcl/datamanager-procs.tcl	10 Oct 2005 12:59:34 -0000	1.1.2.4
@@ -113,7 +113,17 @@
                 }
                           
                 set comm_id [dotlrn_community::get_community_id]
+
+                set communities_list  [db_list get_list_of_dest_communities {}]
+                set communities_list_p [list]
                 
+                foreach community $communities_list {
+                    if { [dotlrn::user_can_admin_community_p -community_id $community] } {
+                        lappend communities_list_p $community
+                    }                     
+                }
+
+                
                 db_multirow -extend { type } communities get_data_communities {} {
                 if {$community_type == "dotlrn_club"} {
                     set type "[_ datamanager.Community]"
@@ -129,5 +139,25 @@
                 return available_communities
          }
 
-    
+    ad_proc -public get_trash_id {
+    } {
+        Get the trash identifier 
+    } { 
+        db_1row get_id {}
+        return $trash_id
+    }
+
+    ad_proc -public get_trash_package_id {
+        {-community_id}
+    } {
+        Get the trash packageidentifier 
+    } { 
+
+        if {[info exist community_id] == 0 } {
+           set community_id [dotlrn_community::get_community_id]
+        }         
+        
+        db_1row get_package_id {}
+        return $trash_package_id
+    }   
 }