column-comments-2.tcl

This is /www/doc/schema-browser/column-comments-2.tcl

Location:
/packages/schema-browser/www/column-comments-2.tcl
Author:
?
Created:
?
CVS ID:
$Id: column-comments-2.tcl,v 1.6 2021/02/05 18:55:50 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    This is /www/doc/schema-browser/column-comments-2.tcl

    @param table_name
    @param column_name
    @param comments

    @author ?
    @creation-date ?
    @cvs-id $Id: column-comments-2.tcl,v 1.6 2021/02/05 18:55:50 gustafn Exp $
} {
    table_name:notnull
    column_name:notnull
    comments:notnull
} -validate {
    valid_table_name -requires {table_name} {
    if {![db_table_exists $table_name]} {
        ad_complain "Called with an invalid table name"
    }
    }

    valid_column_name -requires {column_name valid_table_name} {
    if {![db_column_exists $table_name $column_name]} {
        ad_complain "Called with an invalid column name"
    }
    }
}

db_dml comment_add "comment on column ${table_name}.$column_name is :comments"

ad_returnredirect [export_vars -base index {table_name}]