Index: openacs-4/packages/evaluation/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/evaluation/www/admin/index.tcl	10 Jun 2004 21:08:53 -0000	1.5
+++ openacs-4/packages/evaluation/www/admin/index.tcl	7 Jul 2004 17:26:44 -0000	1.6
@@ -17,6 +17,11 @@
 set page_title "[_ evaluation.Evaluation_Index_]"
 set context {}
 
+set portal_id [dotlrn_community::get_portal_id -community_id [dotlrn_community::get_community_id]]
+set page_id [portal::get_page_id -create -portal_id $portal_id -page_name ""]
+set layout_id [portal::get_layout_id -page_id $page_id $portal_id]
+set ds_id [portal::get_datasource_id evaluation_assignments_portlet]
+
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 set admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege admin]