# alert-reenable.tcl,v 3.0 2000/02/06 03:33:36 ron Exp
ad_maybe_redirect_for_registration
set user_id [ad_get_user_id]

set_the_usual_form_variables

# rowid

set db [bboard_db_gethandle]
if { $db == "" } {
    bboard_return_error_page
    return
}


if [catch {ns_db dml $db "update bboard_email_alerts set valid_p = 't' where oid = '$QQrowid' and user_id=$user_id"} errmsg] {
    ad_return_error "Error Re-Enabling Alert" "Here's what the database barfed up:

<blockquote><code>
$errmsg
</blockquote></code>
"
} else {
    # success
    ns_return 200 text/html "[bboard_header "Success"]

<h2>Success!</h2>

re-enabling your email alert in <a href=index.tcl>[bboard_system_name]</a>


<hr>

There isn't really a whole lot more to say...


[bboard_footer]"
}