Index: openacs-4/packages/imsld/sql/postgresql/imsld-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/sql/postgresql/imsld-create.sql,v diff -u -r1.9 -r1.10 --- openacs-4/packages/imsld/sql/postgresql/imsld-create.sql 7 Nov 2005 18:13:07 -0000 1.9 +++ openacs-4/packages/imsld/sql/postgresql/imsld-create.sql 15 Nov 2005 11:01:23 -0000 1.10 @@ -125,10 +125,14 @@ is_visible_p char(1) check (is_visible_p in ('t','f')) default 't', - parameters varchar(4000) + parameters varchar(4000), + -- recursive queries support + imsld_tree_sortkey varbit, + imsld_max_child_sortkey varbit ); create index imsld_items_pid_idx on imsld_items(parent_item_id); +create unique index imsld_items_tree_sortkey_un on imsld_items(imsld_tree_sortkey); comment on table imsld_items is ' This table holds the imsld items of the unit of learning'; @@ -669,5 +673,5 @@ Feedback are items that are mapped to this table with the imsld_feedback_rel.'; \i imsld-cp-create.sql - -\i imsld-status-create.sql \ No newline at end of file +\i imsld-status-create.sql +\i imsld-tree-create.sql Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 15 Nov 2005 08:54:38 -0000 1.14 +++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 15 Nov 2005 11:01:24 -0000 1.15 @@ -1111,7 +1111,8 @@ [list conference_type $conference_type] \ [list imsld_item_id $imsld_item_id]] \ -content_type imsld_conference_service \ - -parent_id $parent_id] + -parent_id $parent_id \ + -title $title] # participants set participant_list [$conference child all imsld:participant] @@ -2625,7 +2626,7 @@ # IMS-LD: Prerequisites (which are really an imsld_item that can have resource associated.) set prerequisites [$imsld child all imsld:prerequisites] - if { [llength $learning_objectives] } { + if { [llength $prerequisites] } { imsld::parse::validate_multiplicity -tree $prerequisites -multiplicity 1 -element_name prerequisites(ims-ld) -equal set prerequisite_list [imsld::parse::parse_and_create_prerequisite -prerequisite_node $prerequisites \ -manifest_id $manifest_id \ @@ -2647,7 +2648,7 @@ [list level $imsld_level] \ [list version $imsld_version] \ [list sequence_p $imsld_sequence_p] \ - [list learning_objectives $learning_objective_id] \ + [list learning_objective_id $learning_objective_id] \ [list prerequisite_id $prerequisite_id] \ [list organization_id $organization_id]] \ -content_type imsld_imsld \