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.12 -r1.13
--- openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	19 Jan 2005 16:49:14 -0000	1.12
+++ openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	26 Jan 2005 11:06:45 -0000	1.13
@@ -122,3 +122,25 @@
 } {
     as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -section_id $section_id -text_answer [lindex $response 0] -points "" -allow_overwrite_p $allow_overwrite_p
 }
+
+ad_proc -public as::item_type_sa::results {
+    -as_item_item_id:required
+    -section_item_id:required
+    -data_type:required
+    -sessions:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-01-26
+
+    Return the results of a given item in a given list of sessions as an array
+} {
+    db_foreach get_results {} {
+	set results($session_id) $text_answer
+    }
+
+    if {[array exists results]} {
+	return [array get results]
+    } else {
+	return
+    }
+}