Index: openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl	13 Jun 2018 11:39:24 -0000	1.8
+++ openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl	13 Jun 2018 11:43:46 -0000	1.9
@@ -28,18 +28,18 @@
     db_transaction {
         set item_answer_id [content::item::new -parent_id $folder_id -content_type {as_item_choices} -name [as::item::generate_unique_name]]
         set as_item_answer_id [content::revision::new \
-				-item_id $item_answer_id \
-				-content_type {as_item_sa_answers} \
-				-title $title \
-				-attributes [list [list answer_id $answer_id ] \
-						[list data_type $data_type ] \
-						[list case_sensitive_p $case_sensitive_p ] \
-						[list percent_score $percent_score] \
-						[list compare_by $compare_by] \
-						[list regexp_text $regexp_text] \
-						[list allowed_answerbox_list $allowed_answerbox_list] ] ]
-    # FIXME too much code repetition here
-    # maybe there are more efficient ways to do it (maybe using hashes to pass the values between functions)
+            -item_id $item_answer_id \
+            -content_type {as_item_sa_answers} \
+            -title $title \
+            -attributes [list [list answer_id $answer_id ] \
+                [list data_type $data_type ] \
+                [list case_sensitive_p $case_sensitive_p ] \
+                [list percent_score $percent_score] \
+                [list compare_by $compare_by] \
+                [list regexp_text $regexp_text] \
+                [list allowed_answerbox_list $allowed_answerbox_list] ] ]
+                # FIXME too much code repetition here
+                # maybe there are more efficient ways to do it (maybe using hashes to pass the values between functions)
     }
 
     return $as_item_answer_id