deprecated.tcl

returns a list of all the deprecated procedures present in server memory

Location:
/packages/acs-api-browser/www/deprecated.tcl
Author:
Todd Nightingale
Created:
2000-7-14
CVS ID:
$Id: deprecated.tcl,v 1.5 2017/08/07 23:47:46 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    returns a list of all the deprecated procedures present 
    in server memory


    @author Todd Nightingale
    @creation-date 2000-7-14
    @cvs-id $Id: deprecated.tcl,v 1.5 2017/08/07 23:47:46 gustafn Exp $

} {
} -properties {
    title:onevalue
    context:onevalue
    deprecated:multirow
}

set title "Deprecated Procedure Search"
set context [list "Deprecated Procedures"]

multirow create deprecated proc args

foreach proc [lsort [nsv_array names api_proc_doc]] { 
    array set doc_elements [nsv_get api_proc_doc $proc]
 
    if {$doc_elements(deprecated_p) == 1} {
        multirow append deprecated $proc $doc_elements(positionals)
    } 
}


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