| |
44 |
44 |
forum::new_questions_allow -forum_id $forum_id |
| |
45 |
45 |
} else { |
| |
46 |
46 |
forum::new_questions_deny -forum_id $forum_id |
| |
47 |
47 |
} |
| |
48 |
48 |
|
| |
49 |
49 |
ad_returnredirect "../forum-view?forum_id=$forum_id" |
| |
50 |
50 |
ad_script_abort |
| |
51 |
51 |
} |
| |
52 |
52 |
|
| |
53 |
53 |
# Select the info |
| |
54 |
54 |
set package_id [ad_conn package_id] |
| |
55 |
55 |
forum::get -forum_id $forum_id -array forum |
| |
56 |
56 |
|
| |
57 |
57 |
# Proper scoping? |
| |
58 |
58 |
if {$package_id != $forum(package_id)} { |
| |
59 |
59 |
ns_log Error "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing" |
| |
60 |
60 |
ad_returnredirect "./" |
| |
61 |
61 |
ad_script_abort |
| |
62 |
62 |
} |
| |
63 |
63 |
|
| |
|
64 |
if { [form is_request forum] } { |
| |
64 |
65 |
element set_properties forum forum_id -value $forum_id |
| |
65 |
66 |
element set_properties forum name -value $forum(name) |
| |
66 |
67 |
element set_properties forum charter -value $forum(charter) |
| |
67 |
68 |
element set_properties forum presentation_type -value $forum(presentation_type) |
| |
68 |
69 |
element set_properties forum posting_policy -value $forum(posting_policy) |
| |
69 |
70 |
element set_properties forum new_threads_p -value [forum::new_questions_allowed_p -forum_id $forum_id] |
| |
|
71 |
} |
| |
70 |
72 |
|
| |
71 |
73 |
ad_return_template |
