<%
# logbook-add.tcl -- add a new logbook entry
# This file is an ADP so that we can ns_adp_include the
# logbook entry entry/editing form
set_form_variables 0
# expects nothing, or perhaps the procedure name
if { [ad_read_only_p] } {
ad_return_read_only_maintenance_message
return
}
# check for user
set user_id [ad_verify_and_get_user_id]
if { $user_id == 0 } {
ns_returnredirect "/register.tcl?return_url=[ns_urlencode [ns_conn url]]"
return
}
# emit the page contents
ns_puts "[ad_header "Add a New Logbook Entry"]"
ns_puts "Add a New Logbook Entry
in [ad_context_bar [list index.tcl Glassroom] "Add Logbook Entry"]
"
# include the shared HTML form
set db [ns_db gethandle]
if {![info exists notes]} {
set notes ""
}
ns_adp_include "logbook-form.adp" "Add Logbook Entry" "logbook-add-2.adp"
ns_db releasehandle $db
ns_puts "[glassroom_footer]"
%>