Index: openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl 1 Mar 2005 17:39:23 -0000 1.1 +++ openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl 14 Apr 2005 15:36:39 -0000 1.2 @@ -57,13 +57,12 @@ dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key] } - ad_proc -public remove_applet { - community_id - package_id - } { + ad_proc -public remove_applet {} { remove the applet } { - ad_return_complaint 1 "[applet_key] remove_applet not implemented!" + set applet_id [dotlrn_applet::get_applet_id_from_key [my_package_key]] + db_exec_plsql delete_applet_from_communities { *SQL* } + db_exec_plsql delete_applet { *SQL* } } ad_proc -public add_applet_to_community {