| |
1 |
1 |
set url /[ad_conn extra_url] |
| |
2 |
2 |
|
| |
3 |
3 |
if {[regexp {^/+cat/+([^/]+)/*} $url \ |
| |
4 |
4 |
ignore_whole sw_category_id]} { |
| |
5 |
5 |
# SWC (Site-wide categories) |
| |
6 |
6 |
# As the categories package currently doesn't have short names we |
| |
7 |
7 |
# are using IDs. We don't check whether this is a valid integer here |
| |
8 |
8 |
# because index.tcl will take care of that. |
| |
9 |
|
rp_form_put category_id $sw_category_id |
| |
|
9 |
set form [ns_getform] |
| |
|
10 |
if { $form ne "" } { |
| |
|
11 |
ns_set put $form category_id $sw_category_id |
| |
10 |
12 |
} |
| |
|
13 |
} |
| |
11 |
14 |
rp_internal_redirect "/packages/faq/www/one-faq" |
| |
12 |
15 |
|
| |
13 |
16 |
# Local variables: |
| |
14 |
17 |
# mode: tcl |
| |
15 |
18 |
# tcl-indent-level: 4 |
| |
16 |
19 |
# indent-tabs-mode: nil |
| |
17 |
20 |
# End: |
