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.29.2.1 -r1.29.2.2
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	5 Feb 2007 14:12:47 -0000	1.29.2.1
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	7 Apr 2007 23:07:19 -0000	1.29.2.2
@@ -400,4 +400,16 @@
     Update links to section
 } {
     db_dml update_section_in_assessment {}
-}
\ No newline at end of file
+}
+
+ad_proc -public as::section::add_to_assessment {
+    -assessment_rev_id
+    -section_id
+    {-max_time_to_complete ""}
+    {-sort_order ""}
+    {-points ""}
+} {
+    Link a section to an assessment
+} {
+    db_dml add {}
+}
Index: openacs-4/packages/assessment/tcl/as-section-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.xql,v
diff -u -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/assessment/tcl/as-section-procs.xql	5 Feb 2007 14:12:47 -0000	1.13.2.1
+++ openacs-4/packages/assessment/tcl/as-section-procs.xql	7 Apr 2007 23:07:19 -0000	1.13.2.2
@@ -134,4 +134,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="as::section::add_to_assessment.add">
+      <querytext>
+
+	    insert into as_assessment_section_map 
+        (assessment_id, section_id, max_time_to_complete, sort_order, points)
+	    values 
+        (:assessment_rev_id, :section_id, :max_time_to_complete, :sort_order, :points)
+
+      </querytext>
+</fullquery>
+
 </queryset>