set url /[ad_conn extra_url]

if {[regexp {^/+cat/+([^/]+)/*} $url \
                  ignore_whole sw_category_id]} {
    # SWC (Site-wide categories)
    # As the categories package currently doesn't have short names we
    # are using IDs. We don't check whether this is a valid integer here
    # because index.tcl will take care of that.
    set form [ns_getform]
    if { $form ne "" } {
        ns_set put $form category_id $sw_category_id
    }
}
rp_internal_redirect "/packages/faq/www/one-faq"

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