publish::pop_id (private)

 publish::pop_id

Defined in packages/acs-content-repository/tcl/publish-procs.tcl

Returns:

The popped item id, or the empty string if the string is already empty

See Also:

• publish::push_id
• publish::get_main_item_id
• publish::get_main_revision_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

  variable item_id_stack

  set pair [lindex $item_id_stack 0]
  if { [template::util::is_nil pair] } {
    #error "Item id stack is empty in publish::pop_id"
  }

  set item_id_stack [lrange $item_id_stack 1 end]

  # If the stack is now empty, clear the cache
  if { [template::util::is_nil item_id_stack] } {
    array unset revision_html
  }

  lassign $pair ::content::item_id ::content::revision_id

  return $::content::item_id

Generic XQL file:

packages/acs-content-repository/tcl/publish-procs.xql

PostgreSQL XQL file:

packages/acs-content-repository/tcl/publish-procs-postgresql.xql

Oracle XQL file:

packages/acs-content-repository/tcl/publish-procs-oracle.xql