Index: openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl	25 Nov 2004 11:19:08 -0000	1.5
+++ openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl	8 Jan 2005 16:30:07 -0000	1.6
@@ -18,22 +18,12 @@
 
 set list_of_package_ids $config(package_id)
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
-ns_log notice " ----- [join $list_of_package_ids ","] \n\n\n\n"
 
-foreach package_id $config(package_id) {
-    db_1row as_package_id {SELECT package_id AS as_package_id FROM apm_packages WHERE package_key = 'assessment' AND package_id = :package_id}
-} 
 
-set admin_p 0
-array set package_admin_p [list]
-foreach package_id $config(package_id) {
-    set package_admin_p($package_id) [permission::permission_p -object_id $package_id -privilege admin]
-    if { $package_admin_p($package_id) } {
-        set admin_p 1
-    }
-}
+set user_id [ad_conn user_id]
 
-ad_return_template
+db_multirow assessments assessments {}
 
 
 
+