Index: openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl,v diff -u -N -r1.16.2.4 -r1.16.2.5 --- openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl 1 Oct 2020 13:06:04 -0000 1.16.2.4 +++ openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl 14 Oct 2020 15:26:27 -0000 1.16.2.5 @@ -84,7 +84,9 @@ db_transaction { set package_url [site_node::get_package_url -package_key [my_package_key]] if { $package_url ne "" } { - site_node::unmount -node_id [site_node::get_node_id -url $package_url] + set node_id [site_node::get_node_id -url $package_url] + site_node::unmount -node_id $node_id + site_node::delete -node_id $node_id } dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] } Index: openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/tcl/test/Attic/dotlrn-forums-test-procs.tcl,v diff -u -N -r1.1.2.4 -r1.1.2.5 --- openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl 1 Oct 2020 13:04:54 -0000 1.1.2.4 +++ openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl 14 Oct 2020 15:26:27 -0000 1.1.2.5 @@ -93,7 +93,7 @@ # Remove the applet in advance, if it already exists # dotlrn_forums::remove_applet - aa_log "Removed existing applet" + aa_true "Removed existing applet" "[expr {[dotlrn_applet::get_applet_id_from_key -applet_key $applet_key] eq ""}]" } # # Add applet