package_insert_default_comment (private)

 package_insert_default_comment

Defined in packages/acs-subsite/tcl/package-procs.tcl

Returns a string to be used verbatim as the default comment we insert into meta-generated packages and package bodies. If we have a connection, we grab the user's name from ad_conn user_id.

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

12/29/2000

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set author [expr {[ns_conn isconnected] ?
                      [acs_user::get_element -element name] : "Unknown"}]
    set creation_date [db_string current_timestamp {
        select current_timestamp from dual}]
    return "
  --/** THIS IS AN AUTO GENERATED PACKAGE. $author was the
  --    user who created it
  --
  --    @creation-date $creation_date
  --*/
"

Generic XQL file:

packages/acs-subsite/tcl/package-procs.xql

PostgreSQL XQL file:

packages/acs-subsite/tcl/package-procs-postgresql.xql

Oracle XQL file:

packages/acs-subsite/tcl/package-procs-oracle.xql