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} {