Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v
diff -u -N -r1.36 -r1.36.2.1
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	1 Nov 2003 08:45:36 -0000	1.36
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	25 Nov 2003 12:45:17 -0000	1.36.2.1
@@ -765,6 +765,35 @@
 
 ##################
 #
+# Mischellaneous procs
+#
+##################
+
+ad_proc -public lang::catalog::package_delete {
+    {-package_key:required}
+} {
+    Unregister the I18N messages for the package.
+
+    @author Peter Marklund
+} {
+    set message_key_list [db_list all_message_keys_for_package {
+        select message_key
+        from lang_message_keys
+        where package_key = :package_key
+    }]
+
+    db_dml delete_package_keys {
+        delete from lang_message_keys
+        where package_key = :package_key
+    }
+
+    foreach message_key $message_key_list {
+        lang::message::remove_from_cache $package_key $message_key
+    }
+}
+
+##################
+#
 # Inactive and unmaintained procs
 #
 ##################