_news__d_mount-news-package (private)

 _news__d_mount-news-package

Defined in packages/news/tcl/test/news-db-test-init.tcl

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    upvar _aa_exports _aa_exports
    foreach v $_aa_exports([list news mount-news-package]) {
      upvar $v $v
    }
    
    # Destructor

    #
    # Unmount the news package and delete its directory.
    #
    if {$_news_package_mounted_p} {
        site_node::unmount -node_id $_news_node_id
        site_node::delete -node_id $_news_node_id
        site_node::delete -node_id $_test_node_id
        set p_package_id $_news_package_id
        rss_support::del_subscription -summary_context_id $p_package_id -owner news -impl_name news
        db_exec_plsql package-delete {
            begin
            apm_package.del(:p_package_id)
        }
    }

Generic XQL file:

packages/news/tcl/test/news-db-test-init.xql

PostgreSQL XQL file:

<fullquery name="_news__d_mount-news-package.package-delete">
    <querytext>
    select apm_package__delete(:p_package_id);
  </querytext>
</fullquery>

packages/news/tcl/test/news-db-test-init-postgresql.xql

Oracle XQL file:

<fullquery name="_news__d_mount-news-package.package-delete">
    <querytext>
    begin
      apm_package.del(:p_package_id);
    end;
  </querytext>
</fullquery>

packages/news/tcl/test/news-db-test-init-oracle.xql