Index: openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	10 Dec 2004 20:21:50 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	11 Dec 2004 11:23:00 -0000	1.6
@@ -91,3 +91,19 @@
 } {
     return [list "" ""]
 }
+
+ad_proc -public as::item_type_sa::process {
+    -type_id:required
+    -session_id:required
+    -as_item_id:required
+    -subject_id:required
+    {-staff_id ""}
+    {-response ""}
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2004-12-11
+
+    Process a Response to a Short Answer Type
+} {
+    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -text_answer $response -points ""
+}