iso-codes.tcl

displays the iso-codes

Location:

/packages/acs-subsite/www/shared/iso-codes.tcl

CVS ID:

$Id: iso-codes.tcl,v 1.4 2017/08/07 23:47:59 gustafn Exp $

Related Files

• packages/acs-subsite/www/shared/iso-codes.tcl
• packages/acs-subsite/www/shared/iso-codes.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    displays the iso-codes

    @cvs-id $Id: iso-codes.tcl,v 1.4 2017/08/07 23:47:59 gustafn Exp $
} -properties {
    ccodes:multirow
}

if {![db_table_exists countries] } {
    # acs-reference countries not loaded

    ad_return_template iso-codes-no-exist
    return
}

db_multirow ccodes country_codes {
    select iso, default_name from countries order by default_name
}

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