# next.tcl,v 3.0 2000/02/06 03:34:02 ron Exp
ad_page_variables {
msg_id
topic_id
}
page_validation {
bboard_validate_msg_id $msg_id
set topic_id [validate_integer "Topic ID" $topic_id]
}
# msg_id is the key, topic_id
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set selection [ns_db select $db "select msg_id, sort_key
from bboard
where sort_key > (select sort_key from bboard where msg_id = '$msg_id')
and topic_id = $topic_id
order by sort_key"]
# get one row
ns_db getrow $db $selection
set next_msg_id [ns_set value $selection 0]
# we don't want the rest of the rows
ns_db flush $db
if { $next_msg_id != "" } {
ns_returnredirect "fetch-msg.tcl?msg_id=$next_msg_id"
} else {
# no msg to return
ns_return 200 text/html "
End of BBoard
No Next Message
You've read the last message in the $topic BBoard.
"
}