Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql	31 May 2004 23:45:17 -0000	1.1
+++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql	8 Jul 2004 19:30:46 -0000	1.2
@@ -3,7 +3,7 @@
 <queryset>
 <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="dotlrn_news-aggregator::clone.call_evaluation_clone">
+<fullquery name="dotlrn_evaluation::clone.call_evaluation_clone">
   <querytext>
     select evaluation__clone ( 
         :old_package_id,
@@ -12,5 +12,20 @@
   </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_evaluation::remove_applet.delete_applet_from_communities">
+  <querytext>
 
+	delete from dotlrn_community_applets where applet_id = :applet_id
+    
+  </querytext>
+</fullquery>
+
+<fullquery name="dotlrn_evaluation::remove_applet.delete_applet">
+  <querytext>
+
+	delete from dotlrn_applets where applet_id = :applet_id
+    
+  </querytext>
+</fullquery>
+
 </queryset>
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 {