---

Class ::xo::db::sql::forums_reading_info

::xo::db::sql::forums_reading_info create ...

Defined in

Class Relations

• class: ::xo::db::Class
• superclass: ::xotcl::Object

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

Methods (to be applied on the object)

• move_thread_update (scripted, public)

   xo::db::sql::forums_reading_info move_thread_update [ -dbn dbn ] \
      -source_message_id source_message_id  \
      -target_message_id target_message_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -source_message_id (required)

  -target_message_id (required)

  Testcases:

  No testcase defined.

  #function_args: {SOURCE_MESSAGE_ID {}} {TARGET_MESSAGE_ID {}}
  foreach var [list SOURCE_MESSAGE_ID TARGET_MESSAGE_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select forums_reading_info__move_thread_update($_SOURCE_MESSAGE_ID, $_TARGET_MESSAGE_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• remove_msg (scripted, public)

   xo::db::sql::forums_reading_info remove_msg [ -dbn dbn ] \
      -message_id message_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -message_id (required)

  Testcases:

  No testcase defined.

  #function_args: {MESSAGE_ID {}}
  foreach var [list MESSAGE_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select forums_reading_info__remove_msg($_MESSAGE_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• user_add_forum (scripted, public)

   xo::db::sql::forums_reading_info user_add_forum [ -dbn dbn ] \
      -forum_id forum_id  -user_id user_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -forum_id (required)

  -user_id (required)

  Testcases:

  No testcase defined.

  #function_args: {FORUM_ID {}} {USER_ID {}}
  foreach var [list FORUM_ID USER_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select forums_reading_info__user_add_forum($_FORUM_ID, $_USER_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• user_add_msg (scripted, public)

   xo::db::sql::forums_reading_info user_add_msg [ -dbn dbn ] \
      -root_message_id root_message_id  -user_id user_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -root_message_id (required)

  -user_id (required)

  Testcases:

  No testcase defined.

  #function_args: {ROOT_MESSAGE_ID {}} {USER_ID {}}
  foreach var [list ROOT_MESSAGE_ID USER_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select forums_reading_info__user_add_msg($_ROOT_MESSAGE_ID, $_USER_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---