---

Class ::xo::db::sql::rss_gen_subscr

::xo::db::sql::rss_gen_subscr create ...

Defined in

Class Relations

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

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

Methods (to be applied on the object)

• del (scripted, public)

   xo::db::sql::rss_gen_subscr del [ -dbn dbn ] -subscr_id subscr_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -subscr_id (required)

  Testcases:

  No testcase defined.

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

• delete (scripted, public)

   xo::db::sql::rss_gen_subscr delete [ -dbn dbn ] -subscr_id subscr_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -subscr_id (required)

  Testcases:

  No testcase defined.

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

• name (scripted, public)

   xo::db::sql::rss_gen_subscr name [ -dbn dbn ] -subscr_id subscr_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -subscr_id (required)

  Testcases:

  No testcase defined.

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

• new (scripted, public)

   xo::db::sql::rss_gen_subscr new [ -dbn dbn ] -p_subscr_id p_subscr_id  \
      -p_impl_id p_impl_id  -p_summary_context_id p_summary_context_id  \
      -p_timeout p_timeout  [ -p_lastbuild p_lastbuild ] \
      -p_object_type p_object_type  [ -p_creation_date p_creation_date ] \
      -p_creation_user p_creation_user  -p_creation_ip p_creation_ip  \
      -p_context_id p_context_id  [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -p_subscr_id (required)

  -p_impl_id (required)

  -p_summary_context_id (required)

  -p_timeout (required)

  -p_lastbuild (optional, defaults to "now")

  -p_object_type (required)

  -p_creation_date (optional, defaults to "now")

  -p_creation_user (required)

  -p_creation_ip (required)

  -p_context_id (required)

  -childof (optional)

  Testcases:

  No testcase defined.

  #function_args: {P_SUBSCR_ID {}} {P_IMPL_ID {}} {P_SUMMARY_CONTEXT_ID {}} {P_TIMEOUT {}} {P_LASTBUILD now} {P_OBJECT_TYPE {}} {P_CREATION_DATE now} {P_CREATION_USER {}} {P_CREATION_IP {}} {P_CONTEXT_ID {}}
  foreach var [list P_SUBSCR_ID P_IMPL_ID P_SUMMARY_CONTEXT_ID P_TIMEOUT P_LASTBUILD P_OBJECT_TYPE P_CREATION_DATE P_CREATION_USER P_CREATION_IP P_CONTEXT_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select rss_gen_subscr__new($_P_SUBSCR_ID, $_P_IMPL_ID, $_P_SUMMARY_CONTEXT_ID, $_P_TIMEOUT, $_P_LASTBUILD, $_P_OBJECT_TYPE, $_P_CREATION_DATE, $_P_CREATION_USER, $_P_CREATION_IP, $_P_CONTEXT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---