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.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/session-delete.tcl	27 Oct 2014 16:41:04 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/session-delete.tcl	7 Aug 2017 23:48:04 -0000	1.10
@@ -4,13 +4,14 @@
     assessment_id:naturalnum,notnull
     subject_id:naturalnum,notnull
     orig_session_id:naturalnum,optional
-    {return_url ""}
+    {return_url:localurl ""}
 } 
 
 permission::require_permission \
     -party_id [ad_conn user_id] \
     -object_id $assessment_id \
     -privilege admin
+
 as::assessment::data -assessment_id $assessment_id
 set assessment_name $assessment_data(name)
 if {$assessment_data(anonymous_p)} {
@@ -39,7 +40,7 @@
     -form {
         {cancel0:text(submit) {label "[_ acs-kernel.common_Cancel]"}}
         {ok0:text(submit) {label "[_ acs-kernel.common_Delete]"}}
-	{check_all:text(checkbox),optional {label ""} {options $check_all_options} {html {onClick acs_CheckAll('session-delete:elements:session_id',this.checked)}}}
+	{check_all:text(checkbox),optional {label ""} {options $check_all_options}}
         {session_ids_to_delete:text(checkbox),multiple,optional {label "[_ assessment.Attempts_to_delete]"} {options $session_id_options}}
         {cancel:text(submit) {label "[_ acs-kernel.common_Cancel]"}}
         {ok:text(submit) {label "[_ acs-kernel.common_Delete]"}}
@@ -48,10 +49,13 @@
 	if {[info exists orig_session_id]} {
 	    template::element::set_values session-delete session_ids_to_delete $orig_session_id
 	}
+        template::add_event_listener -id "session-delete:elements:check_all:" -script {
+            acs_CheckAll('session-delete:elements:session_id',this.checked);
+        }
     } -on_submit {
-        if {([info exists ok] && $ok ne "" \
-		 || [info exists ok0] && $ok0 ne "" ) \
-		&& [info exists session_ids_to_delete]} {
+        if {([info exists ok] && $ok ne "" || [info exists ok0] && $ok0 ne "" )
+            && [info exists session_ids_to_delete]
+        } {
             #delete sessions
             set message "[_ assessment.Requested_attempts_deleted]"
             foreach id $session_ids_to_delete {
@@ -94,4 +98,9 @@
 
 set page_title [_ assessment.Delete_Attempts]
 set context [list $page_title]
-ad_return_template
\ No newline at end of file
+ad_return_template
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: