Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v diff -u -r1.103.2.2 -r1.103.2.3 --- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 9 Oct 2015 15:48:09 -0000 1.103.2.2 +++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 15 Oct 2015 19:52:01 -0000 1.103.2.3 @@ -346,7 +346,7 @@ if {$args ne ""} { lassign $args op on_error_code set result "" - if {$op ne "on_error"} {error "only 'on_error' as argument afer script allowed"} + if {$op ne "on_error"} {error "only 'on_error' as argument after script allowed"} if {[catch { set result [my uplevel [list ::dbi_eval -transaction committed $script]] }]} { @@ -2102,6 +2102,7 @@ {-orderby ""} {-page_size 20} {-page_number ""} + {-initialize true} } { Returns a set (ordered composite) of the answer tuples of an 'instance_select_query' with the same attributes. Note, that @@ -2118,7 +2119,8 @@ -orderby $orderby \ -page_size $page_size \ -page_number $page_number \ - ]] + ] \ + -initialize $initialize] return $s } ############## Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v diff -u -r1.54.2.1 -r1.54.2.2 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 24 Sep 2015 12:12:53 -0000 1.54.2.1 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 15 Oct 2015 19:52:01 -0000 1.54.2.2 @@ -654,6 +654,7 @@ {-page_size 20} {-page_number ""} {-base_table "cr_revisions"} + {-initialize true} } { Returns a set (ordered composite) of the answer tuples of an 'instance_select_query' with the same attributes. @@ -671,7 +672,8 @@ -page_size $page_size \ -page_number $page_number \ -base_table $base_table \ - ]] + ] \ + -initialize $initialize] return $s } 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 -r1.485.2.11 -r1.485.2.12 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 15 Oct 2015 11:39:11 -0000 1.485.2.11 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 15 Oct 2015 19:52:01 -0000 1.485.2.12 @@ -3821,6 +3821,7 @@ {-publish_status ready} {-object_types {::xowiki::Page ::xowiki::Form ::xowiki::FormPage}} {-extra_where_clause true} + {-initialize true} } { set publish_status_clause [::xowiki::Includelet publish_status_clause $publish_status] set result [::xo::OrderedComposite new -destroy_on_cleanup] @@ -3837,7 +3838,8 @@ -with_subtypes false \ -select_attributes $attributes \ -where_clause "$extra_where_clause $publish_status_clause" \ - -base_table $base_table] + -base_table $base_table \ + -initialize $initialize] foreach i [$items children] { $result add $i