::xo::db::Class ::xo::db::sql::file_storage

Class Hierarchy of ::xo::db::sql::file_storage

• ::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, dot_append_method, dotclass, dotcode, dotquote, dotquotel, 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::file_storage

  Meta-class:

  ::xo::db::Class

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

  copy_file, copy_folder, delete_file, delete_folder, delete_version, get_content_type, get_folder_name, get_package_id, get_parent_id, get_root_folder, get_title, move_file, new_file, new_folder, new_root_folder, new_version, rename_file

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc copy_file (public)

  ::xo::db::sql::file_storage copy_file [ -dbn dbn ] \
      [ -file_id file_id ] [ -target_folder_id target_folder_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -file_id (optional)

  -target_folder_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  ::xo::db::sql::file_storage proc copy_file {{-dbn {}} -file_id -target_folder_id -creation_user -creation_ip} {
          #function_args: {FILE_ID NULL} {TARGET_FOLDER_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL}
          set sql_args [list]
          foreach var [list FILE_ID TARGET_FOLDER_ID CREATION_USER CREATION_IP]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := file_storage.copy_file($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 copy_folder (public)

  ::xo::db::sql::file_storage copy_folder [ -dbn dbn ] \
      [ -folder_id folder_id ] [ -target_folder_id target_folder_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
      [ -name name ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -folder_id (optional)

  -target_folder_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  -name (optional)

  ::xo::db::sql::file_storage proc copy_folder {{-dbn {}} -folder_id -target_folder_id -creation_user -creation_ip -name} {
          #function_args: {FOLDER_ID NULL} {TARGET_FOLDER_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL} {NAME NULL}
          set sql_args [list]
          foreach var [list FOLDER_ID TARGET_FOLDER_ID CREATION_USER CREATION_IP NAME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN file_storage.copy_folder($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_file (public)

  ::xo::db::sql::file_storage delete_file [ -dbn dbn ] \
      [ -file_id file_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -file_id (optional)

  ::xo::db::sql::file_storage proc delete_file {{-dbn {}} -file_id} {
          #function_args: {FILE_ID NULL}
          set sql_args [list]
          foreach var [list FILE_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN file_storage.delete_file($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_folder (public)

  ::xo::db::sql::file_storage delete_folder [ -dbn dbn ] \
      [ -folder_id folder_id ] [ -cascade_p cascade_p ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -folder_id (optional)

  -cascade_p (optional)

  ::xo::db::sql::file_storage proc delete_folder {{-dbn {}} -folder_id -cascade_p} {
          #function_args: {FOLDER_ID NULL} {CASCADE_P NULL}
          set sql_args [list]
          foreach var [list FOLDER_ID CASCADE_P]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN file_storage.delete_folder($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_version (public)

  ::xo::db::sql::file_storage delete_version [ -dbn dbn ] \
      [ -file_id file_id ] [ -version_id version_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -file_id (optional)

  -version_id (optional)

  ::xo::db::sql::file_storage proc delete_version {{-dbn {}} -file_id -version_id} {
          #function_args: {FILE_ID NULL} {VERSION_ID NULL}
          set sql_args [list]
          foreach var [list FILE_ID VERSION_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 := file_storage.delete_version($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 get_content_type (public)

  ::xo::db::sql::file_storage get_content_type [ -dbn dbn ] \
      [ -item_id item_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -item_id (optional)

  ::xo::db::sql::file_storage proc get_content_type {{-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 :1 := file_storage.get_content_type($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 get_folder_name (public)

  ::xo::db::sql::file_storage get_folder_name [ -dbn dbn ] \
      [ -folder_id folder_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -folder_id (optional)

  ::xo::db::sql::file_storage proc get_folder_name {{-dbn {}} -folder_id} {
          #function_args: {FOLDER_ID NULL}
          set sql_args [list]
          foreach var [list FOLDER_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 := file_storage.get_folder_name($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 get_package_id (public)

  ::xo::db::sql::file_storage get_package_id [ -dbn dbn ] \
      [ -item_id item_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -item_id (optional)

  ::xo::db::sql::file_storage proc get_package_id {{-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 :1 := file_storage.get_package_id($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 get_parent_id (public)

  ::xo::db::sql::file_storage get_parent_id [ -dbn dbn ] \
      [ -item_id item_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -item_id (optional)

  ::xo::db::sql::file_storage proc get_parent_id {{-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 :1 := file_storage.get_parent_id($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 get_root_folder (public)

  ::xo::db::sql::file_storage get_root_folder [ -dbn dbn ] \
      [ -package_id package_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -package_id (optional)

  ::xo::db::sql::file_storage proc get_root_folder {{-dbn {}} -package_id} {
          #function_args: {PACKAGE_ID NULL}
          set sql_args [list]
          foreach var [list 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 := file_storage.get_root_folder($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 get_title (public)

  ::xo::db::sql::file_storage get_title [ -dbn dbn ] \
      [ -item_id item_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -item_id (optional)

  ::xo::db::sql::file_storage proc get_title {{-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 :1 := file_storage.get_title($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 move_file (public)

  ::xo::db::sql::file_storage move_file [ -dbn dbn ] \
      [ -file_id file_id ] [ -target_folder_id target_folder_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -file_id (optional)

  -target_folder_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  ::xo::db::sql::file_storage proc move_file {{-dbn {}} -file_id -target_folder_id -creation_user -creation_ip} {
          #function_args: {FILE_ID NULL} {TARGET_FOLDER_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL}
          set sql_args [list]
          foreach var [list FILE_ID TARGET_FOLDER_ID CREATION_USER CREATION_IP]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN file_storage.move_file($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_file (public)

  ::xo::db::sql::file_storage new_file [ -dbn dbn ] [ -item_id item_id ] \
      [ -title title ] [ -folder_id folder_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
      [ -indb_p indb_p ] [ -package_id package_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -item_id (optional)

  -title (optional)

  -folder_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  -indb_p (optional)

  -package_id (optional)

  ::xo::db::sql::file_storage proc new_file {{-dbn {}} -item_id -title -folder_id -creation_user -creation_ip -indb_p -package_id} {
          #function_args: {ITEM_ID NULL} {TITLE NULL} {FOLDER_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL} {INDB_P NULL} {PACKAGE_ID NULL}
          set sql_args [list]
          foreach var [list ITEM_ID TITLE FOLDER_ID CREATION_USER CREATION_IP INDB_P 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 := file_storage.new_file($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_folder (public)

  ::xo::db::sql::file_storage new_folder [ -dbn dbn ] [ -name name ] \
      [ -folder_name folder_name ] [ -parent_id parent_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -name (optional)

  -folder_name (optional)

  -parent_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  ::xo::db::sql::file_storage proc new_folder {{-dbn {}} -name -folder_name -parent_id -creation_user -creation_ip} {
          #function_args: {NAME NULL} {FOLDER_NAME NULL} {PARENT_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL}
          set sql_args [list]
          foreach var [list NAME FOLDER_NAME PARENT_ID CREATION_USER CREATION_IP]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := file_storage.new_folder($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_root_folder (public)

  ::xo::db::sql::file_storage new_root_folder [ -dbn dbn ] \
      [ -package_id package_id ] [ -folder_name folder_name ] \
      [ -folder_url folder_url ] [ -description description ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -package_id (optional)

  -folder_name (optional)

  -folder_url (optional)

  -description (optional)

  ::xo::db::sql::file_storage proc new_root_folder {{-dbn {}} -package_id -folder_name -folder_url -description} {
          #function_args: {PACKAGE_ID NULL} {FOLDER_NAME NULL} {FOLDER_URL NULL} {DESCRIPTION NULL}
          set sql_args [list]
          foreach var [list PACKAGE_ID FOLDER_NAME FOLDER_URL DESCRIPTION]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := file_storage.new_root_folder($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_version (public)

  ::xo::db::sql::file_storage new_version [ -dbn dbn ] \
      [ -filename filename ] [ -description description ] \
      [ -mime_type mime_type ] [ -item_id item_id ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -filename (optional)

  -description (optional)

  -mime_type (optional)

  -item_id (optional)

  -creation_user (optional)

  -creation_ip (optional)

  ::xo::db::sql::file_storage proc new_version {{-dbn {}} -filename -description -mime_type -item_id -creation_user -creation_ip} {
          #function_args: {FILENAME NULL} {DESCRIPTION NULL} {MIME_TYPE NULL} {ITEM_ID NULL} {CREATION_USER NULL} {CREATION_IP NULL}
          set sql_args [list]
          foreach var [list FILENAME DESCRIPTION MIME_TYPE ITEM_ID CREATION_USER CREATION_IP]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := file_storage.new_version($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 rename_file (public)

  ::xo::db::sql::file_storage rename_file [ -dbn dbn ] \
      [ -file_id file_id ] [ -title title ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -file_id (optional)

  -title (optional)

  ::xo::db::sql::file_storage proc rename_file {{-dbn {}} -file_id -title} {
          #function_args: {FILE_ID NULL} {TITLE NULL}
          set sql_args [list]
          foreach var [list FILE_ID TITLE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN file_storage.rename_file($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 ]
          }
        }