Index: openacs-4/packages/faq/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/apm-callback-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/faq/tcl/apm-callback-procs.tcl	12 Jul 2018 12:39:45 -0000	1.4
+++ openacs-4/packages/faq/tcl/apm-callback-procs.tcl	18 Jan 2019 19:33:17 -0000	1.5
@@ -55,7 +55,20 @@
     }
 }
 
+ad_proc -private faq::apm_callback::before_uninstantiate {
+  -package_id
+} {
+    Callback to remove all FAQs before package uninstantiate
 
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 2019-01-18
+} {
+    db_multirow faqs faq_list "" {}
+    template::multirow foreach faqs {
+        db_exec_plsql _ "select faq__delete_faq(:faq_id)"
+    }
+}
+
 ad_proc -public faq::apm_callback::delete_one_faq_impl {} {
     Unregister the NotificationType implementation for one_faq_qa_notif_type.
 } {