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.5
--- openacs-4/packages/assessment/lib/session.tcl	26 Sep 2006 04:08:36 -0000	1.4
+++ openacs-4/packages/assessment/lib/session.tcl	15 May 2007 20:14:16 -0000	1.5
@@ -40,7 +40,13 @@
 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 delete_url [export_vars -base asm-admin/session-delete {assessment_id subject_id {orig_session_id $session_id} {return_url [ad_return_url]}}]
+
 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]"