xowiki::Page instproc www-make-live-revision (public)

 <instance of xowiki::Page> www-make-live-revision

Defined in /var/www/openacs.org/packages/xowiki/tcl/xowiki-www-procs.tcl

This web-callable method makes the revision specified by parameter "revision_id" the live revision, or when this is not available, the parameter "local_return_url".

Testcases:

No testcase defined.

Source code:

set page_id [:query_parameter revision_id]
if {[string is integer -strict $page_id]} {
  set revision_id $page_id
} else {
  set revision_id ${:revision_id}
}
#:log "--M set_live_revision $revision_id"
:set_live_revision -revision_id $revision_id
${:package_id} returnredirect [${:package_id} query_parameter_return_url  [export_vars -base [::${:package_id} url] {{m revisions}}]]

XQL Not present:

Generic, PostgreSQL, Oracle