Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v diff -u -r1.29.6.5 -r1.29.6.6 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 11 Sep 2014 07:54:36 -0000 1.29.6.5 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 17 Oct 2014 15:53:00 -0000 1.29.6.6 @@ -335,7 +335,27 @@ #my msg "--R object set to [my set object], url=$url, [my serialize]" } + ::xo::Package instproc handle_http_caching {} { + # + # Subpackages can overload this method for realizing + # + # a) package specific caching policies + # b) page-type specific caching policies + # c) page specific caching policies + # + # Items (b) and (c) can e realized via the instance variable of + # the package object named "invoke_object", which is set for + # non-error cases in e.g. xowiki. + # + ns_set put [ns_conn outputheaders] "Cache-Control" \ + "max-age=0, no-cache, no-store" + # + } + ::xo::Package instproc reply_to_user {text} { + + my handle_http_caching + #my log "REPLY [::xo::cc exists __continuation]" if {[::xo::cc exists __continuation]} { #my log "REPLY [::xo::cc set __continuation]" Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.279.2.15 -r1.279.2.16 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 16 Oct 2014 17:49:43 -0000 1.279.2.15 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 17 Oct 2014 15:53:00 -0000 1.279.2.16 @@ -451,15 +451,12 @@ #my proc destroy {} {my log "--P "; next} } - Package instproc reply_to_user {text} { - # - # When invoke_object is set (standard cases), we can implement a - # page-type or page specific caching behavior. - # - ns_set put [ns_conn outputheaders] "Cache-Control" \ - "max-age=0, no-cache, no-store" - next - } + # + # We could refine here the caching behavior in xowiki + # + #Package instproc handle_http_caching {} { + # next + #} Package ad_instproc get_parameter {{-check_query_parameter true} {-type ""} attribute {default ""}} { resolves configurable parameters according to the following precedence: