_news__i_mount-news-package (private)

 _news__i_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:

    aa_log "Running \"mount-news-package\" initialization class constructor"
    
    # Constructor
    # Export variables we want to be visible to the testcase and the destructor.
    aa_export_vars {_root_node_id _test_node_id _news_node_id _news_package_id
        _news_package_mounted_p _news_package_mounted_err}

    #
    # Firstly, make sure the mount point "/_test/news" exists.
    #
    set _news_node_id    -1
    set _test_node_id    -1
    set _root_node_id    -1
    set _news_package_id -1
    db_foreach get-site-nodes {
        select node_id, object_id, site_node.url(node_id) as url from site_nodes
    } {
        switch [string trim $url] {
            "/_test/news/" {
                set _news_node_id $node_id
                if {$object_id ne ""} {
                    set _news_package_id $object_id
                }
            }
            "/_test/" {
                set _test_node_id $node_id
            }
            "/" {
                set _root_node_id $node_id
            }
        }
    }

    set _news_package_mounted_p 1
    if {[catch {
        # Create the _test directory if it doesn't already exist.
        aa_log "here"
        if {$_test_node_id == -1} {
            set _test_node_id [site_node::new  -name "_test"  -parent_id $_root_node_id ]
        }
        # If an old news package exists, delete it.
        if {$_news_node_id != -1} {
            aa_log "Unmont and delete existing node instance."
            site_node::unmount -node_id $_news_node_id
            site_node::delete -node_id $_news_node_id
            if {$_news_package_id != -1} {
                aa_log "Deleting existing package instance."
                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);
                    end;
                }
            }
        }

        # Mount the new news package and lookup the new node_id.
        set _news_package_id [site_node::instantiate_and_mount  -parent_node_id $_test_node_id  -node_name news  -package_name "News test"  -package_key news]

        set _news_node_id [site_node::get_node_id -url "/_test/news/"]
    } _news_package_mounted_err]} {
        set _news_node_id -1
        set _test_node_id -1
        set _root_node_id -1
        set _news_package_mounted_p 0
    }

Generic XQL file:

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

PostgreSQL XQL file:

<fullquery name="_news__i_mount-news-package.get-site-nodes">
    <querytext>
    select node_id, object_id, site_node__url(node_id) as url from site_nodes
  </querytext>
</fullquery>

<fullquery name="_news__i_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__i_mount-news-package.get-site-nodes">
    <querytext>
    select node_id, object_id, site_node.url(node_id) as url from site_nodes
  </querytext>
</fullquery>

<fullquery name="_news__i_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