# shut-up.tcl,v 3.2 2000/02/16 23:41:30 bdolicki Exp
ad_page_variables {
{rowid QQ}
}
# row_id is the key
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
# In case a forgotten-to-be-urlencoded "+" expands to a space...
regsub " " $row_id "+" row_id
set sql "delete from bboard_thread_email_alerts
where rowid = '$QQrow_id'"
with_transaction $db {
ns_db dml $db $sql
} {
ns_return 200 text/html "
Database Update Failed
Database Update Failed
Error trying to update the database. Email to [bboard_system_owner] please. Here was the message:
$errmsg
Which resulted from the following SQL:
$sql
"
return
}
ns_return 200 text/html "
Database Update Complete
Database Update Complete
Here was the SQL:
$sql
[bboard_footer]
"