Index: openacs-4/packages/assessment/tcl/as-section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	11 Mar 2005 18:54:12 -0000	1.19
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	31 Mar 2005 13:04:58 -0000	1.20
@@ -157,6 +157,9 @@
 	append title "[_ assessment.copy_appendix]"
 
 	set section_item_id [db_nextval acs_object_id_seq]
+	if {[empty_string_p $required_p]} {
+	    set required_p 0
+	}	
 	if {[empty_string_p $name]} {
 	    set name "SEC_$section_item_id"
 	}
Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	28 Feb 2005 22:30:39 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	31 Mar 2005 13:04:58 -0000	1.5
@@ -163,7 +163,7 @@
 	}
 
 	if {![empty_string_p $start_time]} {
-	    db_dml update_end_time {}
+	    db_dml update_start_time {}
 	}
 	if {![empty_string_p $end_time]} {
 	    db_dml update_end_time {}
@@ -200,7 +200,7 @@
 	}
 
 	if {![empty_string_p $start_time]} {
-	    db_dml update_end_time {}
+	    db_dml update_start_time {}
 	}
 	if {![empty_string_p $end_time]} {
 	    db_dml update_end_time {}
Index: openacs-4/packages/assessment-portlet/www/assessment-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment-portlet/www/assessment-portlet-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment-portlet/www/assessment-portlet-postgresql.xql	8 Mar 2005 16:25:58 -0000	1.4
+++ openacs-4/packages/assessment-portlet/www/assessment-portlet-postgresql.xql	31 Mar 2005 13:04:58 -0000	1.5
@@ -18,6 +18,7 @@
 	     and crr.revision_id = cri.latest_revision
 	     and cri.parent_id = crf.folder_id
 	     and crf.package_id in ([join $list_of_package_ids ", "])
+             and (asa.start_time < now() or asa.start_time is null)
 	   order by package_id, lower(crr.title)
         </querytext>
     </fullquery>