forum-edit.tcl
Edit a Forum
- Location:
- /packages/forums/www/admin/forum-edit.tcl
- Author:
- Ben Adida <ben@openforce.net>
- Created:
- 2002-05-25
- CVS ID:
$Id: forum-edit.tcl,v 1.16.2.3 2022/08/30 13:08:30 antoniop Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Edit a Forum @author Ben Adida (ben@openforce.net) @creation-date 2002-05-25 @cvs-id $Id: forum-edit.tcl,v 1.16.2.3 2022/08/30 13:08:30 antoniop Exp $ } { forum_id:object_type(forums_forum),notnull {return_url:localurl "."} } # Select the info set package_id [ad_conn package_id] try { forum::get -forum_id $forum_id -array forum } trap {NOT_FOUND} {} { ns_returnnotfound ad_script_abort } # Proper scoping? if {$package_id != $forum(package_id)} { ns_log Error "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing" ad_returnredirect "./" ad_script_abort } set context [list [_ forums.Edit_forum]] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: