Source of skin.tcl

ad_page_contract {
  @cvs-id $Id: skin.tcl,v 1.4 2017/10/01 12:16:05 gustafn Exp $
} {
  skin
} -properties {
  users:multirow
}

set query "select 
             first_name, last_name
           from
             ad_template_sample_users
           order by
             last_name, first_name"

db_multirow users users_query $query


# Choose a skin

switch -- $skin {
  plain { set file skin-plain }
  fancy { set file skin-fancy }
  default { set file /packages/acs-templating/www/doc/demo/skin-plain }
}


ad_return_template $file


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