Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -N -r1.55.2.53 -r1.55.2.54
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	25 Dec 2021 16:10:21 -0000	1.55.2.53
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	20 Feb 2022 17:06:17 -0000	1.55.2.54
@@ -72,6 +72,7 @@
       default   {
         #:msg "render tree $tree // [$tree procsearch render ]"
         set HTML [$tree render -style bootstrap3-folders]
+        #set HTML [$tree render -style list -properties {CSSclass_top_ul xowiki-tree}]
       }
     }
     #:log HTML=$HTML
@@ -621,7 +622,7 @@
                      -label ""
                }]
 
-    set extra_where_clause "true"
+    set extra_where_clause "1=1"
     # TODO: why filter on title and name?
     if {[info exists regexp]} {
       set extra_where_clause "(bt.title ~ '$regexp' OR ci.name ~ '$regexp' )"
@@ -642,7 +643,7 @@
       $current_folder update_langstring_property _title $lang
       #:msg "$current_folder update_langstring_property _title $lang -> [$current_folder title]"
     }
-    #:log "child-resources of folder_id ${:current_folder_id}"
+    #:log "child-resources of folder_id ${:current_folder_id} with publish_status '$publish_status'"
     set items [::xowiki::FormPage get_all_children \
                    -folder_id ${:current_folder_id} \
                    -publish_status $publish_status \
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.143 -r1.542.2.144
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	17 Feb 2022 10:41:05 -0000	1.542.2.143
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	20 Feb 2022 17:06:17 -0000	1.542.2.144
@@ -1344,7 +1344,7 @@
       if {$tag ne ""} {
         ::xo::dc dml insert_tag \
             "insert into xowiki_tags (item_id,package_id, user_id, tag, time) \
-          values (:item_id, :package_id, :user_id, :tag, now())"
+          values (:item_id, :package_id, :user_id, :tag, CURRENT_TIMESTAMP)"
       }
     }
     search::queue -object_id $revision_id -event UPDATE
@@ -3219,13 +3219,13 @@
       # only record information for authenticated users
       ::xo::dc transaction {
         set rows [xo::dc dml -prepare integer,integer update_last_visisted {
-          update xowiki_last_visited set time = now(), count = count + 1
+          update xowiki_last_visited set time = CURRENT_TIMESTAMP, count = count + 1
           where page_id = :item_id and user_id = :user_id
         }]
         if {$rows ne "" && $rows < 1} {
           ::xo::dc dml insert_last_visisted \
               "insert into xowiki_last_visited (page_id, package_id, user_id, count, time) \
-               values (:item_id, :package_id, :user_id, 1, now())"
+               values (:item_id, :package_id, :user_id, 1, CURRENT_TIMESTAMP)"
         }
       }
     }
@@ -4773,7 +4773,7 @@
                           "to_char(last_modified,'YYYY-MM-DD HH24:MI') as last_modified" ]
       set base_table [$object_type set table_name]i
       if {$object_type eq "::xowiki::FormPage"} {
-        set attributes "* $attributes"
+        set attributes "bt.* $attributes"
       }
       set items [$object_type get_instances_from_db \
                      -folder_id $folder_id \
@@ -4821,7 +4821,7 @@
                                   -folder_id:required
                                   {-publish_status ready}
                                   {-object_types {::xowiki::Page ::xowiki::Form ::xowiki::FormPage}}
-                                  {-extra_where_clause true}
+                                  {-extra_where_clause "1=1"}
                                   {-include_child_folders none}
                                   {-initialize true}
                                 } {
@@ -4871,7 +4871,7 @@
                             "to_char(last_modified,'YYYY-MM-DD HH24:MI') as last_modified" ]
         set base_table [$object_type set table_name]i
         if {$object_type eq "::xowiki::FormPage"} {
-          set attributes "* $attributes"
+          set attributes "bt.* $attributes"
         }
         set items [$object_type get_instances_from_db \
                        -folder_id $folder_id \