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.21 -r1.22
--- openacs-4/packages/xotcl-core/xotcl-core.info	2 Dec 2006 19:07:01 -0000	1.21
+++ openacs-4/packages/xotcl-core/xotcl-core.info	29 Dec 2006 11:04:16 -0000	1.22
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.45" url="http://media.wu-wien.ac.at/download/xotcl-core-0.45.apm">
+    <version name="0.46" url="http://media.wu-wien.ac.at/download/xotcl-core-0.46.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>2006-12-02</release-date>
+        <release-date>2006-12-29</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
@@ -22,11 +22,19 @@
 and ad_instproc. This component  provides as 
 well an XOTcl Object and Class browser, as well as
 means to control the recreation of objects and classes
-when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 0.36 brings caching support for cr-items. 0.38: important change: uses cr_items.name instead of cr_revision.title to label content items. This effects as well the api (lookup uses -name instead of -title). 0.40: updating package_id in acs_objects, requires now openacs 5.2.*; 0.41: supporting storage_type file, on_submit method and html for forms; 0.43 context and connection context; 0.44 use connection_context, sch regression test works</description>
+when components are reloaded. 
+0.23: contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 
+0.36: brings caching support for cr-items. 
+0.38: important change: uses cr_items.name instead of cr_revision.title to label content items. This effects as well the api (lookup uses -name instead of -title). 
+0.40: updating package_id in acs_objects, requires now openacs 5.2.*; 
+0.41: supporting storage_type file, on_submit method and html for forms; 
+0.43: context and connection context; 
+0.44: use connection_context, sch regression test works;
+0.45: xo:db require operations;</description>
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.45"/>
+        <provides url="xotcl-core" version="0.46"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
Index: openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/05-doc-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	18 Dec 2006 08:06:36 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	29 Dec 2006 11:04:16 -0000	1.10
@@ -269,6 +269,7 @@
       [array get doc_elements]
 
   set file_index $doc_elements(script)
+
   if {[nsv_exists api_library_doc $file_index]} {
     array set elements [nsv_get api_library_doc $file_index]
   }
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.37 -r1.38
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	12 Dec 2006 09:32:15 -0000	1.37
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	29 Dec 2006 11:04:16 -0000	1.38
@@ -139,11 +139,11 @@
       if {[my cr_attributes] ne ""} {
         set o [::xo::OrderedComposite new -volatile -contains [my cr_attributes]]
         foreach att [$o children] {
-          $att instvar attribute_name datatype pretty_name
+          $att instvar attribute_name datatype pretty_name sqltype
           db_1row create_att {
             select content_type__create_attribute(
                 :object_type,:attribute_name,:datatype,
-                :pretty_name,null,null,null,'text'
+                :pretty_name,null,null,null,:sqltype
             )
           }
         }
@@ -381,6 +381,7 @@
     {-select_attributes ""}
     {-order_clause ""}
     {-where_clause ""}
+    {-from_clause ""}
     {-with_subtypes:boolean true}
     {-publish_status}
     {-count:boolean false}
@@ -430,7 +431,7 @@
     set publish_clause \
 	[expr {[info exists publish_status] ? " and ci.publish_status eq '$publish_status'" : ""}]
     return "select $attribute_selection
-    from acs_object_types, acs_objects, cr_items ci, cr_revisions cr 
+    from acs_object_types, acs_objects, cr_items ci, cr_revisions cr $from_clause
         where $type_selection
         and acs_object_types.object_type = ci.content_type
         and coalesce(ci.live_revision,ci.latest_revision) = cr.revision_id 
@@ -508,7 +509,7 @@
     return $__result
   }
 
-  Class create Attribute -parameter {attribute_name datatype pretty_name}
+  Class create Attribute -parameter {attribute_name datatype pretty_name {sqltype "text"}}
 
   Class create CrItem -parameter {
     package_id 
@@ -1279,3 +1280,5 @@
 }
 namespace import -force ::Generic::*
 
+
+