index.tcl

Location:

/packages/oct-election/www/index.tcl

CVS ID:

$Id: index.tcl,v 1.3 2013/09/12 10:59:04 victorg Exp $

Related Files

• packages/oct-election/www/index.tcl
• packages/oct-election/www/index.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @cvs-id $Id: index.tcl,v 1.3 2013/09/12 10:59:04 victorg Exp $
} {
}

set page_title "OCT Elections"
set context $page_title
set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege create]

template::list::create \
    -name elections \
    -multirow elections \
    -elements {
    label {
        link_url_col election_url
        label "Election"
    }
    }

db_multirow \
    -extend { 
    election_url
    } elections elections_select {
    select election_id,
               label,
               start_time,
               end_time
          from oct_election
    } {
    set election_url [export_vars -base "election" {election_id}]
    }