::xotcl::Class ::xo::db::temp_table

Class Hierarchy of ::xo::db::temp_table

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

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  name, query, vars

  Methods for instances:

  destroy, init

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

::xotcl::Class create ::xo::db::temp_table \
     -superclass ::xotcl::Object \
     -parameter {name query vars}

Methods

• instproc destroy

  ::xo::db::temp_table instproc destroy {} {
      # A session spans multiple connections in OpenACS.
      # We want to get rid the data when we are done.
      db_dml [my qn truncate_temp_table] "truncate table [my name]"
      next
    }

• instproc init

  ::xo::db::temp_table instproc init {} {
      # The cleanup order is - at least under aolserver 4.01 - hard to get right.
      # When destroy_on_cleanup is executed, ther might be already some global
      # data for the database interaction gone.... So, destroy these objects 
      # by hand for now.
      # my destroy_on_cleanup
      
      # PRESERVE ROWS means that the data will be available until the end of the SQL session
      set sql_create "CREATE global temporary table [my name] on commit PRESERVE ROWS as "
      
      # When the table exists already, simply insert into it ...
      if {[::xo::db::require exists_table [my name]]} {
        db_dml . "insert into [my name] ([my vars]) ([my query])"
      } else {
        # ... otherwise, create the table with the data in one step
        db_dml [my qn get_n_most_recent_contributions] $sql_create[my query]
      }
    }