Index: openacs-4/packages/dotlrn/www/weblog-control-panel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/weblog-control-panel.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/dotlrn/www/weblog-control-panel.tcl	9 Aug 2019 21:40:46 -0000	1.7.2.1
+++ openacs-4/packages/dotlrn/www/weblog-control-panel.tcl	14 Apr 2023 13:25:19 -0000	1.7.2.2
@@ -25,11 +25,13 @@
 set user_id [auth::require_login]
 
 
-set dotlrn_package_id [dotlrn::get_package_id]
+set weblog_package_id [lindex [site_node::get_children \
+                                   -package_key forums \
+                                   -element object_id \
+                                   -node_id [ad_conn node_id]] 0]
 
-set weblog_package_id [site_node_apm_integration::get_child_package_id  -package_key "forums"]
+set weblog_url [site_node::get_url_from_object_id -object_id $weblog_package_id]/forum-view
 
-set weblog_url "[dotlrn_community::get_url -package_id $weblog_package_id]/forum-view"
 db_multirow weblogs weblogs {select name, forum_id, to_char(o.last_modified, 'Mon DD, YYYY') as latest_post from forums_forums_enabled f, acs_objects o where o.object_id = forum_id and o.creation_user = :user_id and f.package_id = :weblog_package_id}