• Publicity: Public Only All

application-link-procs.tcl

Procs of application linking

Location:
packages/acs-tcl/tcl/application-link-procs.tcl
Created:
2005-05-23
Author:
Timo Hentschel <timo@timohentschel.de>

Procedures in this file

Detailed information

application_link::delete_links (public)

 application_link::delete_links -package_id package_id

Delete application links for all packages linking to the given package_id.

Switches:
-package_id (required)
Package ID that you want application links removed from.

Partial Call Graph (max 5 caller/called nodes):
%3 db_list db_list (public) relation_remove relation_remove (public) application_link::delete_links application_link::delete_links application_link::delete_links->db_list application_link::delete_links->relation_remove

Testcases:
No testcase defined.

application_link::get (public)

 application_link::get -package_id package_id

Retrieves a list of package_ids for all applications linked to the given package_id.

Switches:
-package_id (required)
Returns:
List of linked package ids.

Partial Call Graph (max 5 caller/called nodes):
%3 db_list db_list (public) application_link::get application_link::get application_link::get->db_list

Testcases:
No testcase defined.

application_link::get_linked (public)

 application_link::get_linked -from_package_id from_package_id \
    -to_package_key to_package_key

Gets the ID for the application linked to from_package_id and matches the to_package_key.

Switches:
-from_package_id (required)
Object ID of linked-from application.
-to_package_key (required)
Package key of linked-to application.
Returns:
package_id of linked package.

Partial Call Graph (max 5 caller/called nodes):
%3 callback::pm::project_new::impl::file_storage callback::pm::project_new::impl::file_storage (private) application_link::get_linked application_link::get_linked callback::pm::project_new::impl::file_storage->application_link::get_linked callback::pm::project_new::impl::forums callback::pm::project_new::impl::forums (private) callback::pm::project_new::impl::forums->application_link::get_linked db_list db_list (public) application_link::get_linked->db_list

Testcases:
No testcase defined.

application_link::new (public)

 application_link::new -this_package_id this_package_id \
    -target_package_id target_package_id

Create a new link between this_package_id and target_package_id.

Switches:
-this_package_id (required)
ID of the package that you want linked to the target package.
-target_package_id (required)
The ID of the target package.

Partial Call Graph (max 5 caller/called nodes):
%3 install::xml::action::application-link install::xml::action::application-link (private) application_link::new application_link::new install::xml::action::application-link->application_link::new ad_conn ad_conn (public) application_link::new->ad_conn db_exec_plsql db_exec_plsql (public) application_link::new->db_exec_plsql

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {

    Procs of application linking

    @author Timo Hentschel (timo@timohentschel.de)
    @creation-date 2005-05-23
}

namespace eval application_link {}

d_proc -public application_link::new {
    -this_package_id:required
    -target_package_id:required
} {
    Create a new link between this_package_id and target_package_id.

    @param this_package_id ID of the package that you want linked to the target
    package.
    @param target_package_id The ID of the target package.
} {
    if {[catch {ad_conn user_id} user_id]} {
        set user_id 0
    }

    if {[catch {ad_conn peeraddr} id_addr]} {
        set id_addr 127.0.0.1
    }

    set result [db_exec_plsql create_forward_link {}]
    db_exec_plsql create_backward_link {}

    return $result
}

d_proc -public application_link::delete_links {
    -package_id:required
} {
    Delete application links for all packages linking to the given
    package_id.

    @param package_id Package ID that you want application links removed
    from.
} {
    set rel_ids [db_list linked_packages {}]

    foreach rel_id $rel_ids {
        relation_remove $rel_id
    }
}

d_proc -public application_link::get {
    -package_id:required
} {
    Retrieves a list of package_ids for all applications linked to the
    given package_id.

    @return List of linked package ids.
} {
    return [db_list linked_packages {}]
}

d_proc -public application_link::get_linked {
    -from_package_id:required
    -to_package_key:required
} {
    Gets the ID for the application linked to from_package_id and matches the
    to_package_key.

    @param from_package_id Object ID of linked-from application.
    @param to_package_key Package key of linked-to application.

    @return package_id of linked package.
} {
    return [db_list linked_package {}]
}

ad_proc -private ::install::xml::action::application-link { node } {
    Create an application link:

    <p>&lt;application-link from-package-id=&quot;<em>from-package-id</em>&quot; to-package-id=&quot;<em>to-package-id</em>&quot;/&gt;</p>
} {
    set id [apm_attribute_value -default "" $node id]

    set this_package_url [apm_attribute_value \
        -default "" \
        $node \
        this_package_url]
    set target_package_url [apm_attribute_value \
        -default "" \
        $node \
        target_package_url]

    set from_package_id [apm_attribute_value -default "" $node from-package-id]
    set to_package_id [apm_attribute_value -default "" $node to-package-id]

    if {$this_package_url ne "" } {
        set this_package_id [site_node::get_element -url $this_package_url \
            -element package_id]
    } elseif {$from_package_id ne "" } {
        set this_package_id [install::xml::util::get_id $from_package_id]
    } else {
        error "application-link tag must specify either this_package_url or from-package-id"
    }

    if {$target_package_url ne "" } {
        set target_package_id [site_node::get_element -url $target_package_url \
            -element package_id]
    } elseif {$to_package_id ne "" } {
        set target_package_id [install::xml::util::get_id $to_package_id]
    } else {
        error "application-link tag must specify either target_package_url or to-package-id"
    }

    set link_id [application_link::new -this_package_id $this_package_id \
        -target_package_id $target_package_id]

    if {![string is space $id]} {
        set ::install::xml::ids($id$link_id
    }
}


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: