xowf::WorkflowPage instproc get_revision_sets (public)

 <instance of xowf::WorkflowPage> get_revision_sets \
    [ -with_instance_attributes ]

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

Return a list of ns_sets containing revision_id, creation_date, creation_user, creation_ip, and state for the current workflow instance.

Switches:

-with_instance_attributes (optional)

Testcases:

create_test_items

Source code:

set item_id ${:item_id}
if {$with_instance_attributes} {
  set revision_sets [::xo::dc sets -prepare integer wf_revisions {
    SELECT revision_id, creation_date, last_modified, creation_user,
           creation_ip, state, assignee, instance_attributes
    FROM cr_revisions cr, acs_objects o, xowiki_form_page x, xowiki_page_instance pi
    WHERE cr.item_id = :item_id
    AND   o.object_id = cr.revision_id
    AND   x.xowiki_form_page_id = cr.revision_id
    AND   pi.page_instance_id = cr.revision_id
    ORDER BY cr.revision_id ASC
  }]
} else {
  set revision_sets [::xo::dc sets -prepare integer wf_revisions {
    SELECT revision_id, creation_date, last_modified, creation_user, creation_ip, state, assignee
    FROM cr_revisions cr, acs_objects o, xowiki_form_page x
    WHERE cr.item_id = :item_id
    AND   o.object_id = cr.revision_id
    AND   x.xowiki_form_page_id = cr.revision_id
    ORDER BY cr.revision_id ASC
  }]
}
return $revision_sets

XQL Not present:

Generic, PostgreSQL, Oracle