Index: openacs-4/packages/dotlrn/tcl/applets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.tcl,v
diff -u -N -r1.31.2.1 -r1.31.2.2
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	22 Oct 2019 07:57:56 -0000	1.31.2.1
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	31 Aug 2020 17:10:31 -0000	1.31.2.2
@@ -195,6 +195,23 @@
         acs_sc::invoke -contract dotlrn_applet -operation $op -call_args $list_args -impl $applet_key
     }
 
+    ad_proc -public remove_applet_from_dotlrn {
+        {-applet_key:required}
+    } {
+        Remove applet.
+
+        @param applet_key Applet key
+    } {
+        if {[get_applet_id_from_key -applet_key $applet_key] eq ""} {
+            return
+        }
+
+        db_transaction {
+            db_dml remove_community_applet {}
+            db_dml remove_applet {}
+        }
+    }
+
 }
 
 
Index: openacs-4/packages/dotlrn/tcl/applets-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.xql,v
diff -u -N -r1.7 -r1.7.6.1
--- openacs-4/packages/dotlrn/tcl/applets-procs.xql	8 Nov 2010 13:17:44 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/applets-procs.xql	31 Aug 2020 17:10:31 -0000	1.7.6.1
@@ -45,4 +45,23 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_applet::remove_applet_from_dotlrn.remove_community_applet">
+        <querytext>
+            delete
+            from dotlrn_community_applets
+            where applet_id in
+                (select applet_id
+                   from dotlrn_applets
+                  where applet_key = :applet_key)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_applet::remove_applet_from_dotlrn.remove_applet">
+        <querytext>
+            delete
+            from dotlrn_applets
+            where applet_key = :applet_key
+        </querytext>
+    </fullquery>
+
 </queryset>