# admin-bozo-pattern-edit.tcl,v 3.0 2000/02/06 03:32:33 ron Exp set_the_usual_form_variables # topic_id, topic, the_regexp set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } if {[bboard_get_topic_info] == -1} { return} if {[bboard_admin_authorization] == -1} { return} # cookie checks out; user is authorized if [catch {set selection [ns_db 0or1row $db "select bt.*,u.email as maintainer_email, u.first_names || ' ' || u.last_name as maintainer_name, presentation_type from bboard_topics bt, users u where bt.topic_id=$topic_id and bt.primary_maintainer_id = u.user_id"]} errmsg] { [bboard_return_cannot_find_topic_page] return } # we found the data we needed set_variables_after_query # get the regexp information set the_regexp_old $the_regexp set selection [ns_db 0or1row $db "select scope, message_to_user, creation_comment from bboard_bozo_patterns where topic_id=$topic_id and the_regexp = '$QQthe_regexp'"] if [empty_string_p $selection] { ad_return_error "No expression $the_regexp" "\"$the_regexp\" is not a regular expression in the topic $topic. Perhaps it was edited or deleted." return } else { set_variables_after_query } ReturnHeaders ns_write " Edit Bozo Pattern \"$the_regexp\" in $topic

Edit Bozo Pattern \"$the_regexp\"

in $topic
[export_form_vars topic topic_id the_regexp_old]
Regular Expression (lowercase)
Scope [bt_mergepiece "" $selection]
Message to User
Comment to other administrators
(optional)




Note: the regular expression should be in Tcl format. If you just want to match for a particular word, you need only type that word. If you want something fancier, you probably have to read Mastering Regular Expressions (Friedl; O'Reilly)
[bboard_footer] "