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 -r1.32
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	18 Sep 2018 17:27:14 -0000	1.31
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	3 Sep 2024 15:37:37 -0000	1.32
@@ -84,7 +84,7 @@
         {-applet_key:required}
     } {
         Get the id of the dotlrn applet from the applet key or the null
-        string if the key dosent exist.
+        string if the key does not exist.
     } {
         return [db_string select {} -default ""]
     }
@@ -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 {}
+        }
+    }
+
 }