---

::xo::db::Class ::xo::db::sql::content_type

Class Hierarchy of ::xo::db::sql::content_type

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check, class^C, cleanup^C, configure^C, contains^C, copy^C, db_0or1row^C, db_1row^C, debug, defaultmethod^C, destroy^C, destroy_on_cleanup, ds, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch, forward, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass, ismetaclass, ismixin, isobject, istype, lappend^C, log, method, mixin^C, mixinguard^C, move^C, msg, noinit^C, objectparameter, parametercmd^C, proc, procsearch, qn, requireNamespace^C, residualargs^C, self, serialize, set^C, set_instance_vars_defaults, show-object, subst^C, trace^C, unknown, unset^C, uplevel^C, upvar^C, volatile^C, vwait

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  getExitHandler, setExitHandler, unsetExitHandler

• ::xo::db::sql::content_type

  Meta-class:

  ::xo::db::Class

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  create_attribute, create_type, drop_attribute, drop_type, get_template, is_content_type, refresh_trigger, refresh_view, register_child_type, register_mime_type, register_relation_type, register_template, rotate_template, set_default_template, trigger_insert_statement, unregister_child_type, unregister_mime_type, unregister_relation_type, unregister_template

Class Relations

• superclass: ::xotcl::Object

::xo::db::Class create ::xo::db::sql::content_type \
     -superclass ::xotcl::Object

Methods

• proc create_attribute (public)

  ::xo::db::sql::content_type create_attribute [ -dbn dbn ] \
      -content_type content_type  -attribute_name attribute_name  \
      -datatype datatype  -pretty_name pretty_name  \
      [ -pretty_plural pretty_plural ] [ -sort_order sort_order ] \
      [ -default_value default_value ] [ -column_spec column_spec ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -attribute_name (required)

  -datatype (required)

  -pretty_name (required)

  -pretty_plural (optional)

  -sort_order (optional)

  -default_value (optional)

  -column_spec (defaults to "text") (optional)

  ::509610 proc create_attribute {{-dbn {}} -content_type:required -attribute_name:required -datatype:required -pretty_name:required -pretty_plural -sort_order -default_value {-column_spec text}} {
          #function_args: {CONTENT_TYPE {}} {ATTRIBUTE_NAME {}} {DATATYPE {}} {PRETTY_NAME {}} {PRETTY_PLURAL null} {SORT_ORDER null} {DEFAULT_VALUE null} {COLUMN_SPEC text}
          foreach var [list CONTENT_TYPE ATTRIBUTE_NAME DATATYPE PRETTY_NAME PRETTY_PLURAL SORT_ORDER DEFAULT_VALUE COLUMN_SPEC]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__create_attribute($_CONTENT_TYPE, $_ATTRIBUTE_NAME, $_DATATYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_SORT_ORDER, $_DEFAULT_VALUE, $_COLUMN_SPEC)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc create_type (public)

  ::xo::db::sql::content_type create_type [ -dbn dbn ] \
      -content_type content_type  [ -supertype supertype ] \
      -pretty_name pretty_name  -pretty_plural pretty_plural  \
      -table_name table_name  -id_column id_column  \
      -name_method name_method 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -supertype (defaults to "content_revision") (optional)

  -pretty_name (required)

  -pretty_plural (required)

  -table_name (required)

  -id_column (required)

  -name_method (required)

  ::509610 proc create_type {{-dbn {}} -content_type:required {-supertype content_revision} -pretty_name:required -pretty_plural:required -table_name:required -id_column:required -name_method:required} {
          #function_args: {CONTENT_TYPE {}} {SUPERTYPE content_revision} {PRETTY_NAME {}} {PRETTY_PLURAL {}} {TABLE_NAME {}} {ID_COLUMN {}} {NAME_METHOD {}}
          foreach var [list CONTENT_TYPE SUPERTYPE PRETTY_NAME PRETTY_PLURAL TABLE_NAME ID_COLUMN NAME_METHOD]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__create_type($_CONTENT_TYPE, $_SUPERTYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_TABLE_NAME, $_ID_COLUMN, $_NAME_METHOD)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc drop_attribute (public)

  ::xo::db::sql::content_type drop_attribute [ -dbn dbn ] \
      -content_type content_type  -attribute_name attribute_name  \
      [ -drop_column drop_column ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -attribute_name (required)

  -drop_column (defaults to "f") (optional)

  ::509610 proc drop_attribute {{-dbn {}} -content_type:required -attribute_name:required {-drop_column f}} {
          #function_args: {CONTENT_TYPE {}} {ATTRIBUTE_NAME {}} {DROP_COLUMN f}
          foreach var [list CONTENT_TYPE ATTRIBUTE_NAME DROP_COLUMN]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__drop_attribute($_CONTENT_TYPE, $_ATTRIBUTE_NAME, $_DROP_COLUMN)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc drop_type (public)

  ::xo::db::sql::content_type drop_type [ -dbn dbn ] \
      -content_type content_type  [ -drop_children_p drop_children_p ] \
      [ -drop_table_p drop_table_p ] [ -drop_objects_p drop_objects_p ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -drop_children_p (defaults to "f") (optional)

  -drop_table_p (defaults to "f") (optional)

  -drop_objects_p (defaults to "f") (optional)

  ::509610 proc drop_type {{-dbn {}} -content_type:required {-drop_children_p f} {-drop_table_p f} {-drop_objects_p f}} {
          #function_args: {CONTENT_TYPE {}} {DROP_CHILDREN_P f} {DROP_TABLE_P f} {DROP_OBJECTS_P f}
          foreach var [list CONTENT_TYPE DROP_CHILDREN_P DROP_TABLE_P DROP_OBJECTS_P]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__drop_type($_CONTENT_TYPE, $_DROP_CHILDREN_P, $_DROP_TABLE_P, $_DROP_OBJECTS_P)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc get_template (public)

  ::xo::db::sql::content_type get_template [ -dbn dbn ] \
      -content_type content_type  -use_context use_context 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -use_context (required)

  ::509610 proc get_template {{-dbn {}} -content_type:required -use_context:required} {
          #function_args: {CONTENT_TYPE {}} {USE_CONTEXT {}}
          foreach var [list CONTENT_TYPE USE_CONTEXT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__get_template($_CONTENT_TYPE, $_USE_CONTEXT)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc is_content_type (public)

  ::xo::db::sql::content_type is_content_type [ -dbn dbn ] \
      -content_type content_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  ::509610 proc is_content_type {{-dbn {}} -content_type:required} {
          #function_args: {CONTENT_TYPE {}}
          foreach var [list CONTENT_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__is_content_type($_CONTENT_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc refresh_trigger (public)

  ::xo::db::sql::content_type refresh_trigger [ -dbn dbn ] \
      -content_type content_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  ::509610 proc refresh_trigger {{-dbn {}} -content_type:required} {
          #function_args: {CONTENT_TYPE {}}
          foreach var [list CONTENT_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__refresh_trigger($_CONTENT_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc refresh_view (public)

  ::xo::db::sql::content_type refresh_view [ -dbn dbn ] \
      -content_type content_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  ::509610 proc refresh_view {{-dbn {}} -content_type:required} {
          #function_args: {CONTENT_TYPE {}}
          foreach var [list CONTENT_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__refresh_view($_CONTENT_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc register_child_type (public)

  ::xo::db::sql::content_type register_child_type [ -dbn dbn ] \
      -parent_type parent_type  -child_type child_type  \
      [ -relation_tag relation_tag ] [ -min_n min_n ] -max_n max_n 

  Automatically generated method

  Switches:

  -dbn (optional)

  -parent_type (required)

  -child_type (required)

  -relation_tag (defaults to "generic") (optional)

  -min_n (defaults to "0") (optional)

  -max_n (required)

  ::509610 proc register_child_type {{-dbn {}} -parent_type:required -child_type:required {-relation_tag generic} {-min_n 0} -max_n:required} {
          #function_args: {PARENT_TYPE {}} {CHILD_TYPE {}} {RELATION_TAG generic} {MIN_N 0} {MAX_N {}}
          foreach var [list PARENT_TYPE CHILD_TYPE RELATION_TAG MIN_N MAX_N]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__register_child_type($_PARENT_TYPE, $_CHILD_TYPE, $_RELATION_TAG, $_MIN_N, $_MAX_N)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc register_mime_type (public)

  ::xo::db::sql::content_type register_mime_type [ -dbn dbn ] \
      -content_type content_type  -mime_type mime_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -mime_type (required)

  ::509610 proc register_mime_type {{-dbn {}} -content_type:required -mime_type:required} {
          #function_args: {CONTENT_TYPE {}} {MIME_TYPE {}}
          foreach var [list CONTENT_TYPE MIME_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__register_mime_type($_CONTENT_TYPE, $_MIME_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc register_relation_type (public)

  ::xo::db::sql::content_type register_relation_type [ -dbn dbn ] \
      -content_type content_type  -target_type target_type  \
      [ -relation_tag relation_tag ] [ -min_n min_n ] -max_n max_n 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -target_type (required)

  -relation_tag (defaults to "generic") (optional)

  -min_n (defaults to "0") (optional)

  -max_n (required)

  ::509610 proc register_relation_type {{-dbn {}} -content_type:required -target_type:required {-relation_tag generic} {-min_n 0} -max_n:required} {
          #function_args: {CONTENT_TYPE {}} {TARGET_TYPE {}} {RELATION_TAG generic} {MIN_N 0} {MAX_N {}}
          foreach var [list CONTENT_TYPE TARGET_TYPE RELATION_TAG MIN_N MAX_N]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__register_relation_type($_CONTENT_TYPE, $_TARGET_TYPE, $_RELATION_TAG, $_MIN_N, $_MAX_N)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc register_template (public)

  ::xo::db::sql::content_type register_template [ -dbn dbn ] \
      -content_type content_type  -template_id template_id  \
      -use_context use_context  [ -is_default is_default ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -template_id (required)

  -use_context (required)

  -is_default (defaults to "f") (optional)

  ::509610 proc register_template {{-dbn {}} -content_type:required -template_id:required -use_context:required {-is_default f}} {
          #function_args: {CONTENT_TYPE {}} {TEMPLATE_ID {}} {USE_CONTEXT {}} {IS_DEFAULT f}
          foreach var [list CONTENT_TYPE TEMPLATE_ID USE_CONTEXT IS_DEFAULT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__register_template($_CONTENT_TYPE, $_TEMPLATE_ID, $_USE_CONTEXT, $_IS_DEFAULT)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc rotate_template (public)

  ::xo::db::sql::content_type rotate_template [ -dbn dbn ] \
      -template_id template_id  -v_content_type v_content_type  \
      -use_context use_context 

  Automatically generated method

  Switches:

  -dbn (optional)

  -template_id (required)

  -v_content_type (required)

  -use_context (required)

  ::509610 proc rotate_template {{-dbn {}} -template_id:required -v_content_type:required -use_context:required} {
          #function_args: {TEMPLATE_ID {}} {V_CONTENT_TYPE {}} {USE_CONTEXT {}}
          foreach var [list TEMPLATE_ID V_CONTENT_TYPE USE_CONTEXT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__rotate_template($_TEMPLATE_ID, $_V_CONTENT_TYPE, $_USE_CONTEXT)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc set_default_template (public)

  ::xo::db::sql::content_type set_default_template [ -dbn dbn ] \
      -content_type content_type  -template_id template_id  \
      -use_context use_context 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -template_id (required)

  -use_context (required)

  ::509610 proc set_default_template {{-dbn {}} -content_type:required -template_id:required -use_context:required} {
          #function_args: {CONTENT_TYPE {}} {TEMPLATE_ID {}} {USE_CONTEXT {}}
          foreach var [list CONTENT_TYPE TEMPLATE_ID USE_CONTEXT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__set_default_template($_CONTENT_TYPE, $_TEMPLATE_ID, $_USE_CONTEXT)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc trigger_insert_statement (public)

  ::xo::db::sql::content_type trigger_insert_statement [ -dbn dbn ] \
      -content_type content_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  ::509610 proc trigger_insert_statement {{-dbn {}} -content_type:required} {
          #function_args: {CONTENT_TYPE {}}
          foreach var [list CONTENT_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__trigger_insert_statement($_CONTENT_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc unregister_child_type (public)

  ::xo::db::sql::content_type unregister_child_type [ -dbn dbn ] \
      -content_type content_type  -child_type child_type  \
      -relation_tag relation_tag 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -child_type (required)

  -relation_tag (required)

  ::509610 proc unregister_child_type {{-dbn {}} -content_type:required -child_type:required -relation_tag:required} {
          #function_args: {CONTENT_TYPE {}} {CHILD_TYPE {}} {RELATION_TAG {}}
          foreach var [list CONTENT_TYPE CHILD_TYPE RELATION_TAG]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__unregister_child_type($_CONTENT_TYPE, $_CHILD_TYPE, $_RELATION_TAG)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc unregister_mime_type (public)

  ::xo::db::sql::content_type unregister_mime_type [ -dbn dbn ] \
      -content_type content_type  -mime_type mime_type 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -mime_type (required)

  ::509610 proc unregister_mime_type {{-dbn {}} -content_type:required -mime_type:required} {
          #function_args: {CONTENT_TYPE {}} {MIME_TYPE {}}
          foreach var [list CONTENT_TYPE MIME_TYPE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__unregister_mime_type($_CONTENT_TYPE, $_MIME_TYPE)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc unregister_relation_type (public)

  ::xo::db::sql::content_type unregister_relation_type [ -dbn dbn ] \
      -content_type content_type  -target_type target_type  \
      [ -relation_tag relation_tag ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -target_type (required)

  -relation_tag (optional)

  ::509610 proc unregister_relation_type {{-dbn {}} -content_type:required -target_type:required -relation_tag} {
          #function_args: {CONTENT_TYPE {}} {TARGET_TYPE {}} {RELATION_TAG null}
          foreach var [list CONTENT_TYPE TARGET_TYPE RELATION_TAG]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__unregister_relation_type($_CONTENT_TYPE, $_TARGET_TYPE, $_RELATION_TAG)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc unregister_template (public)

  ::xo::db::sql::content_type unregister_template [ -dbn dbn ] \
      -content_type content_type  -template_id template_id  \
      -use_context use_context 

  Automatically generated method

  Switches:

  -dbn (optional)

  -content_type (required)

  -template_id (required)

  -use_context (required)

  ::509610 proc unregister_template {{-dbn {}} -content_type:required -template_id:required -use_context:required} {
          #function_args: {CONTENT_TYPE {}} {TEMPLATE_ID {}} {USE_CONTEXT {}}
          foreach var [list CONTENT_TYPE TEMPLATE_ID USE_CONTEXT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select content_type__unregister_template($_CONTENT_TYPE, $_TEMPLATE_ID, $_USE_CONTEXT)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

---