Index: openacs-4/packages/assessment/tcl/item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/item-form-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/item-form-procs.tcl	28 Sep 2004 14:39:46 -0000	1.5
+++ openacs-4/packages/assessment/tcl/item-form-procs.tcl	1 Oct 2004 12:55:21 -0000	1.6
@@ -76,4 +76,5 @@
 		-required_p $required_p
 	}
     }
+    return $presentation_type
 }
Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/assessment.tcl	23 Sep 2004 14:20:56 -0000	1.4
+++ openacs-4/packages/assessment/www/assessment.tcl	1 Oct 2004 12:55:20 -0000	1.5
@@ -18,12 +18,8 @@
     { as_session_id:text {value $as_session_id} }
 }
 
-#For each item:
-db_multirow items query_all_items {} {
-    #If there is an item 
-    if {![empty_string_p $as_item_id]} {
-	add_item_to_form show_item_form $as_item_id
-    }
+db_multirow -extend {presentation_type} items query_all_items {} {
+    set presentation_type [add_item_to_form show_item_form $as_item_id]
 }
 
 ad_return_template