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 -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 {}
+        }
+    }
+
 }