Index: openacs-4/packages/assessment/www/asm-admin/session-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/session-delete.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/assessment/www/asm-admin/session-delete.tcl	5 Feb 2007 17:50:02 -0000	1.4.2.1
+++ openacs-4/packages/assessment/www/asm-admin/session-delete.tcl	12 Jul 2007 12:52:50 -0000	1.4.2.2
@@ -9,7 +9,7 @@
 
 permission::require_permission \
     -party_id [ad_conn user_id] \
-    -object_id [ad_conn package_id] \
+    -object_id $assessment_id \
     -privilege admin
 as::assessment::data -assessment_id $assessment_id
 set assessment_name $assessment_data(name)
Index: openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl	23 Mar 2007 16:35:56 -0000	1.1.2.1
+++ openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl	12 Jul 2007 12:52:50 -0000	1.1.2.2
@@ -2,6 +2,7 @@
     Publish or unpublish an assessment
 } {
     assessment_id:integer,notnull
+    {return_url ""}
 }
 
 permission::require_permission \
@@ -26,4 +27,7 @@
     set message "Publish failed. Following section(s) have no questions: ${empty_sections}"
 }
 
-ad_returnredirect -message $message [export_vars -base one-a {assessment_id}]
+if {$return_url eq ""} {
+    set return_url [export_vars -base one-a {assessment_id}]
+}
+ad_returnredirect -message $message $return_url
Index: openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl	26 Sep 2006 00:22:46 -0000	1.2
+++ openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl	12 Jul 2007 12:52:50 -0000	1.2.2.1
@@ -12,7 +12,7 @@
 permission::require_permission \
     -object_id [ad_conn package_id] \
     -party_id [ad_conn user_id] \
-    -privilege "admin"
+    -privilege "create"
 
 set context [list "[_ assessment.Import_Results]"]