Index: openacs-4/packages/assessment/lib/section-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-show.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/lib/section-show.tcl	10 Dec 2004 11:42:22 -0000	1.2
+++ openacs-4/packages/assessment/lib/section-show.tcl	22 Dec 2004 20:52:17 -0000	1.3
@@ -3,17 +3,13 @@
 }
 
 db_multirow -extend { presentation_type html } items section_items {} {
-    set presentation_type [as::item_form::add_item_to_form show_section $as_item_id]
+    set presentation_type [as::item_form::add_item_to_form show_section "" $section_id $as_item_id]
     if {$presentation_type == "fitb"} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }
 
     if {[empty_string_p $points]} {
 	set points 0
     }
-    if {![empty_string_p $max_time_to_complete]} {
-	set max_min [expr $max_time_to_complete / 60]
-	set max_sec [expr $max_time_to_complete - ($max_min * 60)]
-	set max_time_to_complete "$max_min\:$max_sec min"
-    }
+    set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]
 }