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.30 -r1.31
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	15 May 2007 20:14:17 -0000	1.30
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	22 Apr 2008 07:37:33 -0000	1.31
@@ -146,7 +146,9 @@
     {-section_id:required}
     {-name ""}
     {-assessment_id:required}
+    {-required_p "0"}
 } {
+    @param required_p Should the new section be required or not? (1|0)
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-11-07
 
@@ -161,9 +163,7 @@
 	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"
 	}