rss_support::del_subscription (public)

 rss_support::del_subscription \
    [ -summary_context_id summary_context_id ] \
    [ -impl_name impl_name ] [ -owner owner ]

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

Switches:
-summary_context_id (optional)
summary context id to delete
-impl_name (optional)
implementation name to delete
-owner (optional)
owner package of implementation
Returns:
Error:
Author:
Dave Bauer <dave@thedesignexperience.org>
Created:
2005-01-23

Partial Call Graph (max 5 caller/called nodes):
%3 news::install::before_uninstantiate news::install::before_uninstantiate (private) rss_support::del_subscription rss_support::del_subscription news::install::before_uninstantiate->rss_support::del_subscription packages/news/www/admin/rss.tcl packages/news/ www/admin/rss.tcl packages/news/www/admin/rss.tcl->rss_support::del_subscription package_exec_plsql package_exec_plsql (public) rss_support::del_subscription->package_exec_plsql rss_gen_report_dir rss_gen_report_dir (private) rss_support::del_subscription->rss_gen_report_dir rss_support::get_subscr_id rss_support::get_subscr_id (public) rss_support::del_subscription->rss_support::get_subscr_id rss_support::subscription_exists rss_support::subscription_exists (public) rss_support::del_subscription->rss_support::subscription_exists

Testcases:
No testcase defined.
Source code:
    if {[rss_support::subscription_exists  -summary_context_id $summary_context_id  -impl_name $impl_name]
    } {
        set subscr_id [rss_support::get_subscr_id  -summary_context_id $summary_context_id  -impl_name $impl_name  -owner $owner]
        set report_dir [rss_gen_report_dir -subscr_id $subscr_id]
        # remove generated RSS reports for this subscription
        file delete -force -- $report_dir
        package_exec_plsql  -var_list [list [list subscr_id $subscr_id]]  rss_gen_subscr del
    } else {
        ns_log Warning "rss_support::del_subscription  (summary_context_id $summary_context_id -impl_name $impl_name)  does not exist!"
    }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/rss-support/tcl/rss-support-procs.xql

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