plsql-subprogram-one.tcl
Returns the specification for a given PL/SQL subprogram (package, procedure, or function).
- Location:
- /packages/acs-api-browser/www/plsql-subprogram-one.tcl
- Author:
- Michael Yoon <michael@arsdigita.com>
- Created:
- 2000-03-05
- CVS ID:
$Id: plsql-subprogram-one.tcl,v 1.9 2024/09/11 06:15:46 gustafn Exp $
Related Files
- packages/acs-api-browser/www/plsql-subprogram-one.tcl
- packages/acs-api-browser/www/plsql-subprogram-one.adp
- packages/acs-api-browser/www/plsql-subprogram-one-postgresql.xql
- packages/acs-api-browser/www/plsql-subprogram-one-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Returns the specification for a given PL/SQL subprogram (package, procedure, or function). @param name @param type @author Michael Yoon (michael@arsdigita.com) @creation-date 2000-03-05 @cvs-id $Id: plsql-subprogram-one.tcl,v 1.9 2024/09/11 06:15:46 gustafn Exp $ } { name:token type:token } -properties { title:onevalue context:onevalue } set title $name set context [list {"plsql-subprograms-all" "All PL/SQL Subprograms"} "One PL/SQL Subprogram"] set source_text "" db_foreach source_text {} { append source_text $text \n\n\n } switch $type { "PACKAGE" { set type "PACKAGE BODY" set href [export_vars -base [ad_conn url] {type name}] set package_slider_list [list "package" [subst {<a href="[ns_quotehtml $href]">package body</a>}]] } "PACKAGE BODY" { set type "PACKAGE" set href [export_vars -base [ad_conn url] {type name}] set package_slider_list [list [subst {<a href="[ns_quotehtml $href]">package</a>}] "package body"] } default { set package_slider_list [list] } } # Lowercase looks nicer. # set name [string tolower $name] db_release_unused_handles ad_return_template # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: