# prev.tcl,v 3.0 2000/02/06 03:34:10 ron Exp
ad_page_variables {
msg_id
{topic_id ""}
{topic ""}
}
page_validation {
bboard_validate_msg_id $msg_id
set topic_id [validate_integer "Topic ID" $topic_id]
}
# topic_id, msg_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 desc"]
# get one row
ns_db getrow $db $selection
set prev_msg_id [ns_set value $selection 0]
# we don't want the rest of the rows
ns_db flush $db
if { $prev_msg_id != "" } {
ns_returnredirect "fetch-msg.tcl?msg_id=$prev_msg_id"
} else {
# no msg to return
ns_return 200 text/html "
End of BBoard
No Previous Message
You've read the first message in the $topic BBoard.
[bboard_footer]
"
}