subsite::util::return_url_stack (private)
subsite::util::return_url_stack return_url_list
Defined in packages/acs-subsite/tcl/subsite-procs.tcl
Given a list of return_urls, we recursively encode them into one return_url that can be redirected to or passed into a page. As long as each page in the list does the typical redirect to return_url, then the page flow will go through each of the pages in $return_url_list
- Parameters:
- return_url_list
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: if {[llength $return_url_list] == 0} { error "subsite::util::return_url_stack - \$return_url_list is empty" } set first_url [lindex $return_url_list 0] set rest [lrange $return_url_list 1 end] # Base Case if {[llength $rest] == 0} { return $first_url } # More than 1 url was in the list, so recurse if {[string first ? $first_url] == -1} { append first_url ? } append first_url "&return_url=[ad_urlencode [return_url_stack $rest]]" return $first_urlXQL Not present: Generic PostgreSQL XQL file: packages/acs-subsite/tcl/subsite-procs-postgresql.xql
Oracle XQL file: packages/acs-subsite/tcl/subsite-procs-oracle.xql