rss_support::add_subscription (public)

 rss_support::add_subscription -summary_context_id summary_context_id \
    -impl_name impl_name -owner owner [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -object_type object_type ] \
    [ -timeout timeout ] [ -lastbuild lastbuild ] \
    [ -context_id context_id ] [ -creation_date creation_date ]

Defined in packages/rss-support/tcl/rss-support-procs.tcl

Switches:
-summary_context_id
(required)
object_id to subscribe to
-impl_name
(required)
RssGenSubscr service contract implementation name
-owner
(required)
-creation_user
(optional)
-creation_ip
(optional)
-object_type
(defaults to "rss_gen_subscr") (optional)
object type to create
-timeout
(defaults to "3600") (optional)
time between rebuilds of the rss feed
-lastbuild
(optional)
-context_id
(optional)
object this subscription inherits from
-creation_date
(optional)
date and time subscription was created
Returns:
subscr_id
Error:
Author:
Dave Bauer <dave@thedesignexperience.org>
Created:
2005-01-22

Partial Call Graph (max 5 caller/called nodes):
%3 news::install::after_instantiate news::install::after_instantiate (private) rss_support::add_subscription rss_support::add_subscription news::install::after_instantiate->rss_support::add_subscription packages/news/www/admin/rss.tcl packages/news/ www/admin/rss.tcl packages/news/www/admin/rss.tcl->rss_support::add_subscription db_string db_string (public) rss_support::add_subscription->db_string dt_sysdate dt_sysdate (public) rss_support::add_subscription->dt_sysdate package_exec_plsql package_exec_plsql (public) rss_support::add_subscription->package_exec_plsql

Testcases:
No testcase defined.
Source code:
    if {![info exists context_id]} {
        set context_id $summary_context_id
    }

    set impl_id [db_string get_impl_id ""]
    set sysdate [dt_sysdate]

    set var_list [list  [list p_subscr_id ""]  [list p_impl_id $impl_id]  [list p_summary_context_id $summary_context_id]  [list p_timeout $timeout]  [list p_lastbuild $sysdate]  [list p_object_type $object_type]  [list p_creation_user $creation_user ]  [list p_creation_ip $creation_ip]  [list p_context_id $context_id]
                  ]
    if {([info exists creation_date] && $creation_date ne "")} {
        lappend var_list [list creation_date $creation_date]
    }
    if { $lastbuild ne "" } {
        lappend var_list [list p_lastbuild $lastbuild]
    }

    return [package_exec_plsql  -var_list $var_list  rss_gen_subscr new]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
<fullquery name="rss_support::add_subscription.get_impl_id">
    <querytext>
      select impl_id
      from acs_sc_impls
      where impl_name=:impl_name
      and impl_contract_name='RssGenerationSubscriber'
      and impl_owner_name=:owner
    </querytext>
</fullquery>
packages/rss-support/tcl/rss-support-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: