Index: openacs-4/packages/assessment/www/asm-admin/section-swap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-swap.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/section-swap.tcl 27 Oct 2014 16:41:04 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/section-swap.tcl 7 Aug 2017 23:48:04 -0000 1.5 @@ -28,8 +28,14 @@ set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id] db_dml swap_sections {} } on_error { - ad_return_error "Database error" "A database error occured:
$errmsg
" + ad_return_error "Database error" "A database error occurred:
$errmsg
" ad_script_abort } ad_returnredirect [export_vars -base questions {assessment_id}] + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: