Index: openacs-4/packages/assessment/www/asm-admin/results-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-users.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/assessment/www/asm-admin/results-users.tcl 8 Dec 2006 03:23:08 -0000 1.8 +++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl 8 Dec 2006 14:36:54 -0000 1.9 @@ -87,7 +87,7 @@ display_template {@results.percent_score@} } delete { - label {[_ assessment.Delete_Attempt]} + label {} display_template {[_ assessment.Delete_Attempts]} } } -main_class { 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.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/session-delete.tcl 8 Dec 2006 03:23:08 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/session-delete.tcl 8 Dec 2006 14:36:54 -0000 1.2 @@ -29,19 +29,19 @@ ad_form -name session-delete -export {assessment_id subject_id return_url} \ -has_submit 1 \ -form { - {session_id:text(checkbox),multiple {label "[_ assessment.Attempts_to_delete]"} {options $session_id_options}} + {session_id: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]"}} } -on_submit { - if {[info exists ok] && $ok ne ""} { + if {[info exists ok] && $ok ne "" && [info exists session_id]} { #delete sessions set message "[_ assessment.Requested_attempts_deleted]" foreach id $session_id { as::session::delete -session_id $id } } else { - set message "[_ assessment.Delete_canceled]" + set message "[_ assessment.Delete_cancelled]" } if {$return_url eq "" || [set session_count [db_string count_sessions "" -default 0]] == 0} {