Index: openacs-4/packages/assessment/www/admin/catalog-section-add.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/catalog-section-add.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/catalog-section-add.xql	9 Dec 2004 11:10:58 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/catalog-section-add.xql	10 Dec 2004 11:42:23 -0000	1.2
@@ -3,10 +3,11 @@
 
 <fullquery name="sections">
       <querytext>
-    select s.section_id, cr.title, s.definition, s.instructions, s.required_p,
-           s.feedback_text, s.max_time_to_complete
-    from as_sections s, cr_revisions cr
-    where cr.revision_id = s.section_id
+    select s.section_id, cr.title, ci.name, s.instructions,
+           s.feedback_text, s.max_time_to_complete, s.points
+    from as_sections s, cr_revisions cr, cr_items ci
+    where ci.item_id = cr.item_id
+    and cr.revision_id = s.section_id
     and s.section_id in ([join $section_id ,])
     order by s.section_id
       </querytext>
@@ -26,8 +27,12 @@
 <fullquery name="add_section_to_assessment">
       <querytext>
 
-	    insert into as_assessment_section_map (assessment_id, section_id, feedback_text, max_time_to_complete, sort_order)
-	    values (:new_assessment_rev_id, :section_id, null, null, :after)
+	    insert into as_assessment_section_map
+		(assessment_id, section_id, sort_order, max_time_to_complete, points)
+	    (select :new_assessment_rev_id as assessment_id, :section_id as section_id,
+		    :after as sort_order, max_time_to_complete, points
+	     from as_sections
+	     where section_id = :section_id)
 
       </querytext>
 </fullquery>