- remove deprecated calls
- modernize tcl
- replace deprecated "site_node_closest_ancestor_package_url" by "lindex [site_node::get_url_from_object_id -object_id [site_node::closest_ancestor_package ...]] 0"