Index: openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/Attic/static-portlet-callback-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.tcl	18 Nov 2005 09:44:58 -0000	1.1.2.5
+++ openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.tcl	18 Nov 2005 15:09:13 -0000	1.1.2.6
@@ -8,13 +8,15 @@
 
 ad_proc -public -callback datamanager::move_static -impl datamanager {
      -object_id:required
+     -self_community
      -selected_community:required
 } {
     Move an static portlet to another class or community
 } {
+if {[info exist self_community] == 0} { 
+    set community_id [dotlrn_community::get_community_id] 
+} else {set community_id $self_community}
 
-set community_id [dotlrn_community::get_community_id] 
-
 set old_portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 set old_page_id [portal::get_page_id  -portal_id $old_portal_id]