content-symlink-procs.tcl

Procedures for content symlink

Location:

packages/acs-content-repository/tcl/content-symlink-procs.tcl

Created:

2004-06-09

Author:

Dave Bauer <dave@thedesignexperience.org>

CVS Identification:

$Id: content-symlink-procs.tcl,v 1.8 2018/08/15 16:24:28 gustafn Exp $

Procedures in this file

• content::symlink::copy (public)
• content::symlink::delete (public)
• content::symlink::is_symlink (public)
• content::symlink::new (public)
• content::symlink::resolve (public)
• content::symlink::resolve_content_type (public)

Detailed information

 content::symlink::copy -symlink_id symlink_id \
    -target_folder_id target_folder_id -creation_user creation_user \
    [ -creation_ip creation_ip ]

 content::symlink::delete -symlink_id symlink_id

 content::symlink::is_symlink -item_id item_id

 content::symlink::new [ -name name ] [ -label label ] \
    -target_id target_id -parent_id parent_id \
    [ -symlink_id symlink_id ] [ -creation_date creation_date ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ]

 content::symlink::resolve -item_id item_id

 content::symlink::resolve_content_type -item_id item_id

Content File Source

ad_library {
    
    Procedures for content symlink
    
    @author Dave Bauer (dave@thedesignexperience.org)
    @creation-date 2004-06-09
    @cvs-id $Id: content-symlink-procs.tcl,v 1.8 2018/08/15 16:24:28 gustafn Exp $
}

namespace eval ::content::symlink {}

d_proc -public content::symlink::copy {
    -symlink_id:required
    -target_folder_id:required
    -creation_user:required
    {-creation_ip ""}
} {
    @param symlink_id
    @param target_folder_id
    @param creation_user
    @param creation_ip
} {
    return [package_exec_plsql -var_list [list \
        [list symlink_id $symlink_id ] \
        [list target_folder_id $target_folder_id ] \
        [list creation_user $creation_user ] \
        [list creation_ip $creation_ip ] \
    ] content_symlink copy]
}


d_proc -public content::symlink::delete {
    -symlink_id:required
} {
    @param symlink_id
} {
    return [package_exec_plsql -var_list [list \
        [list symlink_id $symlink_id ] \
    ] content_symlink delete]
}


d_proc -public content::symlink::is_symlink {
    -item_id:required
} {
    @param item_id

    @return CHAR
} {
    return [package_exec_plsql -var_list [list \
        [list item_id $item_id ] \
    ] content_symlink is_symlink]
}


d_proc -public content::symlink::new {
    {-name ""}
    {-label ""}
    -target_id:required
    -parent_id:required
    {-symlink_id ""}
    -creation_date
    {-creation_user ""}
    {-creation_ip ""}
} {
    This procedure allows you to create a new Symlink
    @param name Name of the new content item. Used instead of "symlink_to_item target_id"
    @param label 
    @param target_id Item_id of the item to which the link should point
    @param parent_id item_id (preferably folder_id) of the parent (folder) where the link is associated and shown in. 
    @param symlink_id
    @param creation_date
    @param creation_user
    @param creation_ip

    @return NUMBER(38)
} {
    set var_list [list \
        [list name $name ] \
        [list label $label ] \
        [list target_id $target_id ] \
        [list parent_id $parent_id ] \
        [list symlink_id $symlink_id ] \
        [list creation_user $creation_user ] \
        [list creation_ip $creation_ip ] \
    ]
    if {[info exists creation_date] && $creation_date ne ""} {
        lappend var_list [list creation_date $creation_date ]
    }
    return [package_exec_plsql -var_list $var_list content_symlink new]
}


d_proc -public content::symlink::resolve {
    -item_id:required
} {
    Return the item_id of the target item to which the symlink points
    @param item_id item_id of the symlink

    @return NUMBER(38)
} {
    return [package_exec_plsql -var_list [list \
        [list item_id $item_id ] \
    ] content_symlink resolve]
}


d_proc -public content::symlink::resolve_content_type {
    -item_id:required
} {
    @param item_id

    @return VARCHAR2(100)
} {
    return [package_exec_plsql -var_list [list \
        [list item_id $item_id ] \
    ] content_symlink resolve_content_type]
}

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