Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-core/xotcl-core.info	30 Dec 2005 00:04:44 -0000	1.4
+++ openacs-4/packages/xotcl-core/xotcl-core.info	31 Dec 2005 16:36:07 -0000	1.5
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.29" url="http://media.wu-wien.ac.at/download/xotcl-core-0.29.apm">
+    <version name="0.30" url="http://media.wu-wien.ac.at/download/xotcl-core-0.30.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2005-12-29</release-date>
+        <release-date>2005-12-31</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -25,7 +25,7 @@
 when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating.</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.29"/>
+        <provides url="xotcl-core" version="0.30"/>
 
         <callbacks>
         </callbacks>
Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	30 Dec 2005 00:04:44 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	31 Dec 2005 16:36:09 -0000	1.6
@@ -123,7 +123,6 @@
       ::xotcl::Object -
       ::Generic::CrItem {set supertype content_revision}
     }
-    my log "--supertype = $supertype"
 
     db_transaction {
       db_1row create_type {
@@ -133,20 +132,15 @@
         )
       }
       if {[my cr_attributes] ne ""} {
-	set o [Object new -volatile -contains [my cr_attributes]]
-	foreach att [$o info children] {
+	set o [::xo::OrderedComposite new -volatile -contains [my cr_attributes]]
+	foreach att [$o children] {
 	  $att instvar attribute_name datatype pretty_name
 	  db_1row create_att {
 	    select content_type__create_attribute(
                 :object_type,:attribute_name,:datatype,
                 :pretty_name,null,null,null,'text'
             )
 	  }
-	  #content::type::attribute::new \
-	      -content_type $object_type \
-	      -attribute_name [$att attribute_name] \
-	      -datatype [$att datatype] \
-	      -pretty_name [$att pretty_name]
 	}
       }
       my folder_type register
@@ -655,7 +649,6 @@
   }
   Form instproc after_submit {item_id} {
     my instvar data
-    my log "-- item_id=$item_id [$data set item_id]"
     set link [my submit_link]
     if {$link ne "." && ![string match {*[?]*} $link]} {
       set link [export_vars -base $link {item_id}]