Index: openacs-4/packages/assessment/lib/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/assessment/lib/session.tcl	26 Sep 2006 04:08:36 -0000	1.4
+++ openacs-4/packages/assessment/lib/session.tcl	5 Feb 2007 17:29:42 -0000	1.4.2.1
@@ -40,7 +40,10 @@
 if {$subject_id != $user_id} {
     permission::require_permission -object_id $assessment_id -privilege admin
 }
-
+set admin_p [permission::permission_p \
+                 -object_id $session_id \
+                 -privilege admin \
+                 -party_id $user_id]
 set page_title "[_ assessment.View_Results]"
 set context_bar [ad_context_bar [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title]
 set format "[lc_get formbuilder_date_format], [lc_get formbuilder_time_format]"
@@ -84,4 +87,6 @@
 
 set comments_installed_p [apm_package_enabled_p "general-comments"]
 
+set delete_url [export_vars -base asm-admin/session-delete {assessment_id subject_id session_id {return_url [ad_return_url]}}]
+
 ad_return_template