Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl	7 Jul 2004 17:27:45 -0000	1.3
+++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl	8 Jul 2004 19:30:46 -0000	1.4
@@ -7,7 +7,7 @@
 }
 
 namespace eval dotlrn_evaluation {}
-    
+
 ad_proc -public dotlrn_evaluation::applet_key {} {
     What's my applet key?
 } {
@@ -41,7 +41,10 @@
 ad_proc -public dotlrn_evaluation::remove_applet {} {
     One time destroy. 
 } {
-    dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key]
+    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* } 
+#    dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key]
 }
 
 ad_proc -public dotlrn_evaluation::add_applet_to_community {