etp-create-2.tcl
- Location:
- /packages/edit-this-page/www/etp-create-2.tcl
- Author:
- Luke Pond <dlpond@museatech.net>
- Created:
- 2001-06-10 Handles the form submission and creates a new content page
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { @author Luke Pond (dlpond@museatech.net) @creation-date 2001-06-10 Handles the form submission and creates a new content page } { name:notnull title:notnull } etp::check_write_access if { [regexp {[^a-zA-Z0-9.\-_]} $name] } { ad_return_complaint 1 "The subtopic name must be a short identifier containing no spaces. It will be the final part of the URL that identifies this subtopic." } else { etp::make_page $name $title ad_returnredirect [export_vars -base etp {name}] } ad_script_abort