constraints-redirect.tcl

Optionally redirects user to enter constraints

Location:

/packages/acs-subsite/www/admin/rel-segments/constraints-redirect.tcl

Author:

mbryzek@arsdigita.com

Created:

Thu Jan 4 11:20:37 2001

CVS ID:

$Id: constraints-redirect.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

Related Files

• packages/acs-subsite/www/admin/rel-segments/constraints-redirect.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Optionally redirects user to enter constraints

    @author mbryzek@arsdigita.com
    @creation-date Thu Jan  4 11:20:37 2001
    @cvs-id $Id: constraints-redirect.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

} {
    segment_id:naturalnum,notnull
    { operation "" }
    { return_url:localurl "" }
}

set operation [string trim [string tolower $operation]]

if {$operation eq "yes"} {
    ad_returnredirect "constraints/new?rel_segment=$segment_id&[export_vars return_url]"
} else {
    if { $return_url eq "" } {
        set return_url [export_vars -base one segment_id]
    }
    ad_returnredirect $return_url
}
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: