Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/wp-slim/tcl/wp-slim-callback-procs.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/wp-slim/tcl/wp-slim-callback-procs.xql'. Fisheye: No comparison available. Pass `N' to diff? 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.8.1 -r1.2.8.2 --- openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl 15 Jun 2005 18:04:56 -0000 1.2.8.1 +++ openacs-4/packages/wp-slim/tcl/wp-slim-procs.tcl 19 Jul 2005 22:15:20 -0000 1.2.8.2 @@ -3,42 +3,6 @@ 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.8.1 -r1.2.8.2 --- openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql 15 Jun 2005 18:04:56 -0000 1.2.8.1 +++ openacs-4/packages/wp-slim/tcl/wp-slim-procs.xql 19 Jul 2005 22:15:20 -0000 1.2.8.2 @@ -18,20 +18,4 @@ - - - update wp_styles - set owner = :to_user_id - where owner = :from_user_id - - - - - - select style_id , name - from wp_styles - where owner = :user_id - - -