# This is part of an ArsDigita Community System 3.x module # called the Schema and Data Browser, available here: # http://eveander.com/arsdigita/acs-repository/sdb ad_page_contract { Shows the definition for all tables, views, sequences, triggers, and PL/SQL objects in a database. @author eveander@eveander.com @creation-date 18 October 2002 @cvs-id $Id: objects-all.tcl,v 1.2 2002/10/25 18:17:31 eve Exp $ } { } set title "All database objects and their definitions" ReturnHeaders ns_write "[ad_admin_header $title]
" } ns_write "$table_comments
column_name | data_type | data_length | data_scale | data_precision | nullable | data_default | constraints | comments |
---|---|---|---|---|---|---|---|---|
$column_name | $data_type | $data_length | [ec_nbsp_if_null $data_scale] | [ec_nbsp_if_null $data_precision] | $nullable | [ec_nbsp_if_null $data_default] | [ec_nbsp_if_null $constraints] | [ec_nbsp_if_null $row_comments] |
Indices:
" } ns_write "
" # get text, which is a long set text [db_exec_plsql get_text "begin :1 := sdb_get_view_text(:view_name); end;"] ns_write "$text
" } ns_write "
\n" } ns_write "
Trigger Type: $trigger_type
Triggering Event: $triggering_event
Table Name: $table_name
When Clause:
Description:$when_clause
Trigger Body:$description
$trigger_body
" } ns_write "
" } ns_write "" db_foreach get_lines "select text from user_source where name=:name and type=:type order by line" { # text appears to always end with a newline, so we don't have to add one ns_write "$text" } ns_write "