# big-image.tcl,v 3.0 2000/02/06 03:33:37 ron Exp
ad_page_variables {
    bboard_upload_id
}
page_validation {
    set bboard_upload_id [validate_integer "BBoard Upload ID" $bboard_upload_id]
}

# bboard_upload_id

set db [ns_db gethandle]

set selection [ns_db 0or1row $db "select buf.msg_id, caption, original_width, original_height, bboard.sort_key
from bboard_uploaded_files buf, bboard 
where bboard.msg_id = buf.msg_id
and bboard_upload_id=$bboard_upload_id"]

if { $selection == "" } {
    ad_return_error "Couldn't find image" "Couldn't find image.  Perhaps it has been deleted by the moderator?"
    return
}

set_variables_after_query

if { [string first "." $sort_key] == -1 } {
    # there is no period in the sort key so this is the start of a thread
    set thread_start_msg_id $sort_key
} else {
    # strip off the stuff before the period
    regexp {(.*)\..*} $sort_key match thread_start_msg_id
}

set selection [ns_db 1row $db "select topic_id, topic, presentation_type 
from bboard_topics 
where topic_id = (select topic_id from bboard where msg_id = '$msg_id')"]
set_variables_after_query

ns_db releasehandle $db 

if { ![empty_string_p $original_width] && ![empty_string_p $original_height] } {
    set extra_img_tags "width=$original_width height=$original_height"
} else {
    set extra_img_tags ""
}

ns_return 200 text/html "[bboard_header "One BBoard Photo"]

<h2>$caption</h2>

[ad_context_bar_ws_or_index [list "index.tcl" [bboard_system_name]] [list [bboard_raw_backlink $topic_id $topic $presentation_type 0] $topic] [list [bboard_msg_url $presentation_type $thread_start_msg_id $topic_id] "One Thread"] "Big Image"]

<hr>

<center>
<IMG $extra_img_tags src=\"image.tcl?bboard_upload_id=$bboard_upload_id\">
<h4>$caption</h4>
</center>


</body>
</html>
"