view-one-reference.tcl

This page views one table of reference data

Location:
/packages/acs-reference/www/view-one-reference.tcl
Author:
Jon Griffin <jon@jongriffin.com>
Created:
17 Sept 2001
CVS ID:
$Id: view-one-reference.tcl,v 1.5 2017/08/07 23:47:57 gustafn Exp $

Related Files

[ hide source ]

File Contents

ad_page_contract {
    This page views one table of reference data
    
    @param repository_id 
    @author Jon Griffin (jon@jongriffin.com)
    @creation-date 17 Sept 2001
    @cvs-id $Id: view-one-reference.tcl,v 1.5 2017/08/07 23:47:57 gustafn Exp $
} {
    repository_id:naturalnum,notnull
} -properties {
    context_bar:onevalue
    package_id:onevalue
    user_id:onevalue
    table_info:onerow
}

set package_id [ad_conn package_id]
set title "View one Table"
set context_bar [list [list "reference-list" "Reference List" ] "$title"]
set user_id [ad_conn user_id]

db_1row get_table {} -column_array table_info

ad_return_template

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