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.1 -r1.1.2.2
--- openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.tcl	20 Jul 2005 15:51:51 -0000	1.1.2.1
+++ openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.tcl	5 Sep 2005 14:25:29 -0000	1.1.2.2
@@ -21,7 +21,6 @@
 set new_portal_id [dotlrn_community::get_portal_id -community_id $selected_community]
 set new_page_id [portal::get_page_id  -portal_id $new_portal_id]
 
-
 db_dml update_static_portal_content {}
 db_dml update_portal_element_map {}
 }
Index: openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/Attic/static-portlet-callback-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.xql	20 Jul 2005 15:51:51 -0000	1.1.2.1
+++ openacs-4/packages/static-portlet/tcl/static-portlet-callback-procs.xql	5 Sep 2005 14:25:29 -0000	1.1.2.2
@@ -1,28 +1,21 @@
-ad_library {
-    Navigation callbacks.
+<?xml version="1.0"?>
+<queryset>
 
-    @author Luis de la Fuente <lfuente@it.uc3m.es>
-    @creation-date 2005-07-13
-}
+<fullquery name="callback::datamanager::move_static::impl::datamanager.update_static_portal_content">
+<querytext>
+        update static_portal_content 
+	set package_id = :selected_community
+	where content_id = :object_id
 
+</querytext>
+</fullquery>
 
-ad_proc -public -callback datamanager::move_static -impl datamanager {
-     -object_id:required
-     -selected_community:required
-} {
-    Move an static portlet to another class or community
-} {
+<fullquery name="callback::datamanager::move_static::impl::datamanager.update_portal_element_map">
+<querytext>
+        update portal_element_map
+    set page_id=:new_page_id
+    where page_id=:old_page_id and pretty_name=(select pretty_name from static_portal_content where content_id=:object_id);
+</querytext>
+</fullquery>
 
-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]
-    
-set new_portal_id [dotlrn_community::get_portal_id -community_id $selected_community]
-set new_page_id [portal::get_page_id  -portal_id $new_portal_id]
-
-
-db_dml update_static_portal_content {}
-db_dml update_portal_element_map {}
-}
-
+</queryset>