Source of sandwich.tcl

ad_page_contract {
  @cvs-id $Id: sandwich.tcl,v 1.5 2017/08/07 23:48:02 gustafn Exp $
} {
  {grid:boolean ""}
} -properties {}

set title "Sandwich Demo"

form create sandwich -has_submit 1 \
    -elements {
        grid -label "grid" -optional -datatype text -widget hidden
    
        nickname -html { size 30 } -label "Sandwich Name" -datatype text
    
        protein -label "Protein" -datatype text -widget radio \
            -options { \
                           {Bacon bacon} \
                           {Chicken chicken} \
                           {Beef beef} \
                       }
    
        vitamins -label "Vitamins" -datatype text -widget checkbox -optional \
            -options { \
                           {Lettuce lettuce} \
                           {Tomato tomato} \
                           {Pickle pickle} \
                           {Sprouts sprouts} \
                       }
        
        ok -widget submit -label Submit
    }

# 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: