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.5 -r1.16.2.6 --- openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl 14 Oct 2020 15:26:27 -0000 1.16.2.5 +++ openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl 23 Feb 2021 13:02:02 -0000 1.16.2.6 @@ -82,9 +82,14 @@ Remove the applet from dotlrn } { db_transaction { - set package_url [site_node::get_package_url -package_key [my_package_key]] - if { $package_url ne "" } { - set node_id [site_node::get_node_id -url $package_url] + set package_key [my_package_key] + if {[db_0or1row get_node_id { + select min(node_id) as node_id + from site_nodes n, + apm_packages p + where p.package_key = :package_key + and p.package_id = n.object_id + }]} { site_node::unmount -node_id $node_id site_node::delete -node_id $node_id }