Index: openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql	13 Mar 2006 17:43:59 -0000	1.2
+++ openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql	22 Mar 2006 15:36:59 -0000	1.3
@@ -349,7 +349,9 @@
     number_to_select            integer,
     structure_type              char(9)
                                 check (structure_type in ('selection','sequence')),
-    sort                        varchar(4),
+    sort                        varchar(16)
+                                check (sort in ('as-is','visibility-order'))
+                                default 'as-is',
     sort_order                  integer
                                 default 0 
 );
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.36 -r1.37
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	17 Mar 2006 15:02:03 -0000	1.36
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	22 Mar 2006 15:36:59 -0000	1.37
@@ -2566,6 +2566,7 @@
     set identifier [string tolower [imsld::parse::get_attribute -node $activity_node -attr_name identifier]]
     set number_to_select [imsld::parse::get_attribute -node $activity_node -attr_name number-to-select]
     set sort [imsld::parse::get_attribute -node $activity_node -attr_name sort]
+    set sort [expr { [string eq "" $sort] ? "as-is" : "[string tolower $sort]" }]
     set structure_type [imsld::parse::get_attribute -node $activity_node -attr_name structure-type]
     set title [imsld::parse::get_title -node $activity_node -prefix imsld]