Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Jul 2007 16:45:29 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Jul 2007 20:52:16 -0000	1.22
@@ -134,7 +134,9 @@
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
 ::xotcl::Object instproc msg msg {
-  util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
+  if {[ns_conn isconnected]} {
+    util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
+  }
 }
 ::xotcl::Object instproc qn query_name {
   set qn "dbqd.[my uplevel self class]-[my uplevel self proc].$query_name"
Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Jul 2007 12:35:20 -0000	1.19
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	24 Jul 2007 20:52:16 -0000	1.20
@@ -481,7 +481,11 @@
 
   Class create TABLE::Field -superclass ::xo::Drawable 
   TABLE::Field instproc render-data {line} {
-    html::t [$line set [my name]] 
+    if {[$line exists [my name].richtext]} {
+      html::t -disableOutputEscaping [$line set [my name]]
+    } else {
+      html::t [$line set [my name]] 
+    }
   }
 
   TABLE::Field instproc render {} {
Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	14 Jul 2007 18:01:13 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	24 Jul 2007 20:52:16 -0000	1.10
@@ -118,7 +118,7 @@
     my set queue [list]
   }
   ::HttpSpooler instproc all_done {} {
-    catch {close [my channel]} 
+    catch {close [my channel]}
     my log ""
     my destroy
   }
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.82 -r1.83
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	22 Jul 2007 12:35:20 -0000	1.82
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Jul 2007 20:52:16 -0000	1.83
@@ -586,7 +586,7 @@
     if {$where_clause   ne ""} {lappend cond $where_clause}
     if {[info exists publish_status]} {lappend cond "ci.publish_status eq '$publish_status'"}
     lappend cond "coalesce(ci.live_revision,ci.latest_revision) = cr.revision_id 
-        and parent_id = $folder_id and acs_objects.object_id = cr.revision_id"
+        and ci.parent_id = $folder_id and acs_objects.object_id = cr.revision_id"
 
     if {$page_number ne ""} {
       set limit $page_size
@@ -602,13 +602,14 @@
                 -where [join $cond " and "] \
                 -orderby $orderby \
                 -limit $limit -offset $offset]
-    #my log "--sql=$sql"
+    my log "--sql=$sql"
     return $sql
   }
 
   CrClass ad_instproc instantiate_all {
     {-select_attributes ""}
     {-orderby ""}
+    {-from_clause ""}
     {-where_clause ""}
     {-with_subtypes:boolean true}
     {-folder_id}
@@ -633,6 +634,7 @@
              -folder_id $folder_id \
              -select_attributes $select_attributes \
              -with_subtypes $with_subtypes \
+             -from_clause $from_clause \
              -where_clause $where_clause \
              -orderby $orderby \
              -page_size $page_size -page_number $page_number] {