Source of display-edit.tcl

ad_page_contract {
} {
  {grid ""}
} -properties {}

if { [info exists cancel] } {
  ad_returnredirect [ad_conn url]
  ad_script_abort
}

form create sandwich -mode display -cancel_url [ad_conn url]

element create sandwich grid \
  -label "grid" -optional \
  -datatype text -widget hidden

element create sandwich nickname -html { size 30 } \
  -label "Sandwich Name" -datatype text  -section "Name"

element create sandwich protein \
 -label "Protein" -datatype text -widget radio \
 -options { {Bacon bacon} {Chicken chicken} {Beef beef} } -section "Contents"

element create sandwich vitamins \
 -label "Vitamins" -datatype text -widget checkbox -optional \
 -options { {Lettuce lettuce} {Tomato tomato} \
            {Pickle pickle} {Sprouts sprouts} } -section "Contents"

element create sandwich comments \
 -label "Comments" -datatype text -widget textarea -optional -section "Details" -help_text "For your own sake."

element create sandwich creation_date \
    -label "Created date" -datatype date -widget date -optional -format {Month DD, YYYY} -section "Details"



# Set defaults
if { [form is_request sandwich] } {
  element set_properties sandwich vitamins -value {tomato}
  # or: element set_value sandwich vitamins tomato
  element set_properties sandwich grid -value $grid
}

# Choose standard or gridded output
if {[element get_value sandwich grid] == "t"} {
  ad_return_template sandwich-grid
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: