Methods:	Source:	Variables:
[All Methods \| Documented Methods \| Hide Methods]	[Display Source \| Hide Source]	[Show Variables \| Hide Variables]

::xo::db::Class ::xo::db::sql::image

Class Hierarchy of ::xo::db::sql::image
::xotcl::Object
Meta-class:

::xotcl::Class

Methods for instances:

__api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C
Methods to be applied on the class (in addition to the methods provided by the meta-class):

__exitHandler, getExitHandler, setExitHandler, unsetExitHandler
::xo::db::sql::image
Meta-class:

::xo::db::Class

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

del, delete_revision, new, new_revision
Class Relations

superclass: ::xotcl::Object

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

Methods

proc del (public)

::xo::db::sql::image del [ -dbn dbn ] [ -item_id item_id ]

Automatically generated method

Switches:

-dbn (optional)
-item_id (optional)

::xo::db::sql::image proc del {{-dbn {}} -item_id} {
        #function_args: {ITEM_ID NULL}
        set sql_args [list]
        foreach var [list ITEM_ID]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            lappend sql_args "$varname => :$varname"
          } 
        }
        set sql_args [join $sql_args ,]
        set sql "BEGIN image.del($sql_args); END;"
        db_with_handle -dbn $dbn db {
          #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
          return [ ns_ora dml $db $sql ]
        }
      }

proc delete_revision (public)

::xo::db::sql::image delete_revision [ -dbn dbn ] \
    [ -revision_id revision_id ]

Automatically generated method

Switches:

-dbn (optional)
-revision_id (optional)

::xo::db::sql::image proc delete_revision {{-dbn {}} -revision_id} {
        #function_args: {REVISION_ID NULL}
        set sql_args [list]
        foreach var [list REVISION_ID]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            lappend sql_args "$varname => :$varname"
          } 
        }
        set sql_args [join $sql_args ,]
        set sql "BEGIN image.delete_revision($sql_args); END;"
        db_with_handle -dbn $dbn db {
          #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
          return [ ns_ora dml $db $sql ]
        }
      }

proc new (public)

::xo::db::sql::image new [ -dbn dbn ] [ -name name ] \
    [ -parent_id parent_id ] [ -item_id item_id ] \
    [ -revision_id revision_id ] [ -content_type content_type ] \
    [ -creation_date creation_date ] [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -locale locale ] \
    [ -context_id context_id ] [ -title title ] \
    [ -description description ] [ -mime_type mime_type ] \
    [ -nls_language nls_language ] [ -relation_tag relation_tag ] \
    [ -is_live is_live ] [ -publish_date publish_date ] [ -data data ] \
    [ -filename filename ] [ -height height ] [ -width width ] \
    [ -file_size file_size ] [ -storage_type storage_type ] \
    [ -package_id package_id ]

Automatically generated method

Switches:

-dbn (optional)
-name (optional)
-parent_id (optional)
-item_id (optional)
-revision_id (optional)
-content_type (optional)
-creation_date (optional)
-creation_user (optional)
-creation_ip (optional)
-locale (optional)
-context_id (optional)
-title (optional)
-description (optional)
-mime_type (optional)
-nls_language (optional)
-relation_tag (optional)
-is_live (optional)
-publish_date (optional)
-data (optional)
-filename (optional)
-height (optional)
-width (optional)
-file_size (optional)
-storage_type (optional)
-package_id (optional)

::xo::db::sql::image proc new {{-dbn {}} -name -parent_id -item_id -revision_id -content_type -creation_date -creation_user -creation_ip -locale -context_id -title -description -mime_type -nls_language -relation_tag -is_live -publish_date -data -filename -height -width -file_size -storage_type -package_id} {
        #function_args: {NAME NULL} {PARENT_ID NULL} {ITEM_ID NULL} {REVISION_ID NULL} {CONTENT_TYPE NULL} {CREATION_DATE NULL} {CREATION_USER NULL} {CREATION_IP NULL} {LOCALE NULL} {CONTEXT_ID NULL} {TITLE NULL} {DESCRIPTION NULL} {MIME_TYPE NULL} {NLS_LANGUAGE NULL} {RELATION_TAG NULL} {IS_LIVE NULL} {PUBLISH_DATE NULL} {DATA NULL} {FILENAME NULL} {HEIGHT NULL} {WIDTH NULL} {FILE_SIZE NULL} {STORAGE_TYPE NULL} {PACKAGE_ID NULL}
        set sql_args [list]
        foreach var [list NAME PARENT_ID ITEM_ID REVISION_ID CONTENT_TYPE CREATION_DATE CREATION_USER CREATION_IP LOCALE CONTEXT_ID TITLE DESCRIPTION MIME_TYPE NLS_LANGUAGE RELATION_TAG IS_LIVE PUBLISH_DATE DATA FILENAME HEIGHT WIDTH FILE_SIZE STORAGE_TYPE PACKAGE_ID]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            lappend sql_args "$varname => :$varname"
          } 
        }
        set sql_args [join $sql_args ,]
        set sql "BEGIN :1 := image.new($sql_args); END;"
        db_with_handle -dbn $dbn db {
          #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
          return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
        }
      }

proc new_revision (public)

::xo::db::sql::image new_revision [ -dbn dbn ] [ -item_id item_id ] \
    [ -revision_id revision_id ] [ -creation_date creation_date ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
    [ -title title ] [ -description description ] \
    [ -mime_type mime_type ] [ -nls_language nls_language ] \
    [ -is_live is_live ] [ -publish_date publish_date ] [ -data data ] \
    [ -filename filename ] [ -height height ] [ -width width ] \
    [ -file_size file_size ] [ -package_id package_id ]

Automatically generated method

Switches:

-dbn (optional)
-item_id (optional)
-revision_id (optional)
-creation_date (optional)
-creation_user (optional)
-creation_ip (optional)
-title (optional)
-description (optional)
-mime_type (optional)
-nls_language (optional)
-is_live (optional)
-publish_date (optional)
-data (optional)
-filename (optional)
-height (optional)
-width (optional)
-file_size (optional)
-package_id (optional)

::xo::db::sql::image proc new_revision {{-dbn {}} -item_id -revision_id -creation_date -creation_user -creation_ip -title -description -mime_type -nls_language -is_live -publish_date -data -filename -height -width -file_size -package_id} {
        #function_args: {ITEM_ID NULL} {REVISION_ID NULL} {CREATION_DATE NULL} {CREATION_USER NULL} {CREATION_IP NULL} {TITLE NULL} {DESCRIPTION NULL} {MIME_TYPE NULL} {NLS_LANGUAGE NULL} {IS_LIVE NULL} {PUBLISH_DATE NULL} {DATA NULL} {FILENAME NULL} {HEIGHT NULL} {WIDTH NULL} {FILE_SIZE NULL} {PACKAGE_ID NULL}
        set sql_args [list]
        foreach var [list ITEM_ID REVISION_ID CREATION_DATE CREATION_USER CREATION_IP TITLE DESCRIPTION MIME_TYPE NLS_LANGUAGE IS_LIVE PUBLISH_DATE DATA FILENAME HEIGHT WIDTH FILE_SIZE PACKAGE_ID]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            lappend sql_args "$varname => :$varname"
          } 
        }
        set sql_args [join $sql_args ,]
        set sql "BEGIN :1 := image.new_revision($sql_args); END;"
        db_with_handle -dbn $dbn db {
          #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
          return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
        }
      }

Methods:	Source:	Variables:
[All Methods \| Documented Methods \| Hide Methods]	[Display Source \| Hide Source]	[Show Variables \| Hide Variables]