Index: openacs-4/packages/assessment/www/asm-admin/approve-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/approve-check.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/approve-check.tcl	27 Oct 2014 16:40:59 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/approve-check.tcl	7 Aug 2017 23:48:04 -0000	1.4
@@ -20,10 +20,15 @@
 
 for { set i 0} { $i< $count } {incr i} {
     set log_id [lindex $action_log_id $i]
-    set inter_item_check_id [db_string  get_check_id {select inter_item_check_id from as_actions_log where action_log_id=:log_id}]
-    set session_id [db_string  get_session_id {select session_id from as_actions_log where action_log_id=:log_id}]
+    set inter_item_check_id [db_string get_check_id {select inter_item_check_id from as_actions_log where action_log_id=:log_id}]
+    set session_id [db_string get_session_id {select session_id from as_actions_log where action_log_id=:log_id}]
     
 
     as::assessment::check::manual_action_exec -inter_item_check_id $inter_item_check_id -session_id $session_id -action_log_id $log_id
 }
-ad_returnredirect "admin-request?assessment=$d_assessment&state=$d_state&interval=$d_interval&date=$d_date"
\ No newline at end of file
+ad_returnredirect "admin-request?assessment=$d_assessment&state=$d_state&interval=$d_interval&date=$d_date"
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: