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 -r1.8
--- openacs-4/packages/dotlrn/www/weblog-control-panel.tcl	29 Jun 2018 17:27:19 -0000	1.7
+++ openacs-4/packages/dotlrn/www/weblog-control-panel.tcl	3 Sep 2024 15:37:37 -0000	1.8
@@ -25,12 +25,14 @@
 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 lastest_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}
+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}
 
 
 ad_return_template