<% # release-form.adp -- an included file for release-edit.adp and release-add.adp # which shares the form between those two pages # # required arguments - the text for the "submit button" and the action # for the form if { [ns_adp_argc] != 3 } { ns_log error "wrong number of arguments passed to release-form.adp. The text for the submit button should be included, as well as the form action to send the data to." ns_adp_abort } ns_adp_bind_args submit_button_text form_action if { ![info exists source] } { set source "" } if { ![info exists release_date] || [empty_string_p $release_date] } { set release_date [ns_fmttime [ns_time] "%Y-%m-%d"] } if { ![info exists anticipated_release_date] || [empty_string_p $release_date] } { set anticipated_release_date [ns_fmttime [ns_time] "%Y-%m-%d"] } if { ![info exists module_id] } { set module_id "" } %> <%[glassroom_form_action "$form_action" ]%> <%= [export_form_vars release_id] %>
Release Name: >
Software Module:
Manager: <% if { ![info exists manager] || [empty_string_p $manager] } { set whom "nobody" } else { set whom [database_to_tcl_string $db "select first_names || ' ' || last_name from users where user_id=$manager"] ns_puts [export_form_vars manager] } ns_puts "$whom" %>
Anticiapted Release Date: <%= [philg_dateentrywidget anticipated_release_date $anticipated_release_date] %>
Release Date: <%= [philg_dateentrywidget release_date $release_date] %> <% if [info exists actually_released] { ns_puts "Actually Released?" } else { ns_puts "Actually Released?" } %>

<%= [glass_room_submit_button "$submit_button_text"] %>