Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v diff -u -N -r1.23.2.2 -r1.23.2.3 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 7 Jul 2005 23:23:40 -0000 1.23.2.2 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 19 Jul 2005 22:08:28 -0000 1.23.2.3 @@ -7,46 +7,6 @@ namespace eval lars_blogger {} - - -ad_proc -callback merge::MergeShowUserInfo -impl lars_blogger { - -user_id:required -} { - Show the items of user_id -} { - set msg "Lars_blogger items of $user_id" - set result [list $msg] - - set channels [db_list_of_lists sel_channels { *SQL* }] - lappend result $channels - - return $result -} - -ad_proc -callback merge::MergePackageUser -impl lars_blogger { - -from_user_id:required - -to_user_id:required -} { - Merge the entries of two users. - - The from_user_id is the user_id of the user - that will be deleted and all the entries - of this user will be mapped to the to_user_id. - -} { - set msg "Merging lars_blogger" - ns_log Notice $msg - set result [list $msg] - - db_dml upd_channels { *SQL* } - - lappend result "Merge of lars_blogger is done" - - return $result -} - - - ad_proc lars_blog_setup_feed { -user:boolean {-package_id ""}