Index: openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl,v
diff -u -r1.2 -r1.2.8.1
--- openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl	28 Aug 2003 09:42:00 -0000	1.2
+++ openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl	15 Jun 2005 18:04:56 -0000	1.2.8.1
@@ -3,6 +3,42 @@
    Wimpy procs
 }
 
+namespace eval wp::merge {
+
+    ad_proc -callback MergeShowUserInfo -impl wp-slim {
+	-user_id:required
+    } {
+	Merge the wp items of two users.
+    } {
+	set msg "Wimpty point items of $user_id"
+	set result [list $msg]
+
+	set styles [db_list_of_lists sel_wp_styles { *SQL* } ] 
+	
+	lappend result "Styles of $user_id: $styles"
+	
+	return $result
+    }
+
+    ad_proc -callback MergePackageUser -impl wp-slim {
+	-from_user_id:required
+	-to_user_id:required
+    } {
+	Merge the wp items of two users.
+    } {
+	set msg "Merging wp-slim "
+	ns_log Notice $msg
+	set result [list $msg]
+
+	db_dml upd_wp_styles  { *SQL* }
+	
+	lappend result "Merge of wp-slim is done"
+	
+	return $result
+    }
+}
+
+
 ad_proc wp_header {style_id} { Build the proper style for an specific page. } {
 
     db_1row get_style_data { *SQL* }
Index: openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql,v
diff -u -r1.2 -r1.2.8.1
--- openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql	28 Aug 2003 09:42:00 -0000	1.2
+++ openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql	15 Jun 2005 18:04:56 -0000	1.2.8.1
@@ -17,5 +17,21 @@
 
       </querytext>
 </fullquery>
+
+  <fullquery name="callback::MergePackageUser::impl::wp-slim.upd_wp_styles">      
+    <querytext>
+      update wp_styles 
+      set owner = :to_user_id
+      where owner = :from_user_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="callback::MergeShowUserInfo::impl::wp-slim.sel_wp_styles">      
+    <querytext>
+      select style_id , name 
+      from wp_styles
+      where owner = :user_id
+    </querytext>
+  </fullquery>
  
 </queryset>