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

::xo::db::sql::rss_gen_subscr[i] create ...

Class Relations

  • class: ::xo::db::Class[i]
  • superclass: ::xotcl::Object[i]
::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[i] 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[i] 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[i] 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[i] 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 ]
    }