Index: openacs-4/packages/assessment/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/sessions.tcl	23 Sep 2004 14:20:56 -0000	1.3
+++ openacs-4/packages/assessment/www/sessions.tcl	23 Sep 2004 18:51:05 -0000	1.4
@@ -28,7 +28,7 @@
         }
 	assessment_name {
 	    label {Assessment}
-	    link_url_eval {[export_vars -base "assessment" {session_id}]}
+	    link_url_eval {[export_vars -base "assessment" {assessment_id}]}
 	}
 	completed_datetime {
 	    label {Finnish Time}
@@ -41,15 +41,18 @@
 
 set admin_p [ad_permission_p $package_id admin]
 
+set assessment_id_multi $assessment_id
 if { $admin_p } {
-db_multirow -extend { item_url } sessions sessions_of_assessment {
+db_multirow -extend { item_url assessment_id } sessions sessions_of_assessment {
 } {
     set item_url [export_vars -base "session" {session_id}]
+    set assessment_id $assessment_id_multi
 }
 } else {
-db_multirow -extend { item_url } sessions sessions_of_assessment_of_subject {
+db_multirow -extend { item_url assessment_id } sessions sessions_of_assessment_of_subject {
 } {
     set item_url [export_vars -base "session" {session_id}]
+    set assessment_id $assessment_id_multi
 }
 }