::xo::db::Class ::xo::db::sql::as_backup

Class Hierarchy of ::xo::db::sql::as_backup

• ::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::as_backup

  Meta-class:

  ::xo::db::Class

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

  delete_session, finish_asm, new_answer, processed, start_asm

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc delete_session (public)

  ::xo::db::sql::as_backup delete_session [ -dbn dbn ] \
      [ -p_session_id p_session_id ] [ -p_user_id p_user_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_session_id (optional)

  -p_user_id (optional)

  ::xo::db::sql::as_backup proc delete_session {{-dbn {}} -p_session_id -p_user_id} {
          #function_args: {P_SESSION_ID NULL} {P_USER_ID NULL}
          set sql_args [list]
          foreach var [list P_SESSION_ID P_USER_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 := as_backup.delete_session($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 finish_asm (public)

  ::xo::db::sql::as_backup finish_asm [ -dbn dbn ] \
      [ -p_session_id p_session_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_session_id (optional)

  ::xo::db::sql::as_backup proc finish_asm {{-dbn {}} -p_session_id} {
          #function_args: {P_SESSION_ID NULL}
          set sql_args [list]
          foreach var [list P_SESSION_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 := as_backup.finish_asm($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_answer (public)

  ::xo::db::sql::as_backup new_answer [ -dbn dbn ] \
      [ -p_session_id p_session_id ] [ -p_session_id p_session_id ] \
      [ -p_section_id p_section_id ] [ -p_section_id p_section_id ] \
      [ -p_question_id p_question_id ] [ -p_question_id p_question_id ] \
      [ -p_text p_text ] [ -p_answer_id p_answer_id ] [ -p_text p_text ] \
      [ -p_item_type p_item_type ] [ -p_item_type p_item_type ] \
      [ -p_display_type p_display_type ] \
      [ -p_display_type p_display_type ] [ -p_mark p_mark ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_session_id (optional)

  -p_session_id (optional)

  -p_section_id (optional)

  -p_section_id (optional)

  -p_question_id (optional)

  -p_question_id (optional)

  -p_text (optional)

  -p_answer_id (optional)

  -p_text (optional)

  -p_item_type (optional)

  -p_item_type (optional)

  -p_display_type (optional)

  -p_display_type (optional)

  -p_mark (optional)

  ::xo::db::sql::as_backup proc new_answer {{-dbn {}} -p_session_id -p_session_id -p_section_id -p_section_id -p_question_id -p_question_id -p_text -p_answer_id -p_text -p_item_type -p_item_type -p_display_type -p_display_type -p_mark} {
          #function_args: {P_SESSION_ID NULL} {P_SESSION_ID NULL} {P_SECTION_ID NULL} {P_SECTION_ID NULL} {P_QUESTION_ID NULL} {P_QUESTION_ID NULL} {P_TEXT NULL} {P_ANSWER_ID NULL} {P_TEXT NULL} {P_ITEM_TYPE NULL} {P_ITEM_TYPE NULL} {P_DISPLAY_TYPE NULL} {P_DISPLAY_TYPE NULL} {P_MARK NULL}
          set sql_args [list]
          foreach var [list P_SESSION_ID P_SESSION_ID P_SECTION_ID P_SECTION_ID P_QUESTION_ID P_QUESTION_ID P_TEXT P_ANSWER_ID P_TEXT P_ITEM_TYPE P_ITEM_TYPE P_DISPLAY_TYPE P_DISPLAY_TYPE P_MARK]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := as_backup.new_answer($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 processed (public)

  ::xo::db::sql::as_backup processed [ -dbn dbn ] \
      [ -p_session_id p_session_id ] [ -p_update_date p_update_date ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_session_id (optional)

  -p_update_date (optional)

  ::xo::db::sql::as_backup proc processed {{-dbn {}} -p_session_id -p_update_date} {
          #function_args: {P_SESSION_ID NULL} {P_UPDATE_DATE NULL}
          set sql_args [list]
          foreach var [list P_SESSION_ID P_UPDATE_DATE]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := as_backup.processed($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 start_asm (public)

  ::xo::db::sql::as_backup start_asm [ -dbn dbn ] \
      [ -p_session_id p_session_id ] [ -p_user_agent p_user_agent ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_session_id (optional)

  -p_user_agent (optional)

  ::xo::db::sql::as_backup proc start_asm {{-dbn {}} -p_session_id -p_user_agent} {
          #function_args: {P_SESSION_ID NULL} {P_USER_AGENT NULL}
          set sql_args [list]
          foreach var [list P_SESSION_ID P_USER_AGENT]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := as_backup.start_asm($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 "" ]
          }
        }