content-template-procs.tcl

Procedures for content template

Location:

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

Created:

2004-06-09

Author:

Dave Bauer <dave@thedesignexperience.org>

CVS Identification:

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

Procedures in this file

• content::template::delete (public)
• content::template::get_path (public)
• content::template::get_root_folder (public)
• content::template::is_template (public)
• content::template::new (public)

Detailed information

 content::template::delete -template_id template_id

 content::template::get_path -template_id template_id \
    [ -root_folder_id root_folder_id ]

 content::template::get_root_folder

 content::template::is_template -template_id template_id

 content::template::new -name name [ -text text ] \
    [ -parent_id parent_id ] [ -is_live is_live ] \
    [ -template_id template_id ] [ -creation_date creation_date ] \
    [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
    [ -package_id package_id ]

Content File Source

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

namespace eval ::content::template {}

d_proc -public content::template::new {
    -name:required
    {-text ""}
    {-parent_id ""}
    {-is_live ""}
    {-template_id ""}
    {-creation_date ""}
    {-creation_user ""}
    {-creation_ip ""}
    {-package_id ""}
} {
    @param name
    @param text
    @param parent_id
    @param is_live
    @param template_id
    @param creation_date
    @param creation_user
    @param creation_ip

    @return template_id of created template
} {
    set arg_list [list \
        [list name $name ] \
        [list text $text ] \
        [list parent_id $parent_id ] \
        [list is_live $is_live ] \
        [list template_id $template_id ] \
        [list creation_user $creation_user ] \
        [list creation_ip $creation_ip ] \
        [list package_id $package_id ] \
    ]
    if {$creation_date ne ""} {
        lappend arg_list [list creation_date $creation_date ]
    }
    return [package_exec_plsql -var_list  $arg_list content_template new]
}


d_proc -public content::template::delete {
    -template_id:required
} {
    @param template_id
    @return 0
} {
    return [package_exec_plsql -var_list [list \
        [list template_id $template_id ] \
    ] content_template del]
}


d_proc -public content::template::get_path {
    -template_id:required
    {-root_folder_id ""}
} {
    @param template_id
    @param root_folder_id

    @return "/" delimited path from root to supplied template_id
} {
    return [package_exec_plsql -var_list [list \
        [list template_id $template_id ] \
        [list root_folder_id $root_folder_id ] \
    ] content_template get_path]
}


d_proc -public content::template::get_root_folder {
} {

    @return folder_id of Template Root Folder
} {
    return [package_exec_plsql -var_list [list \
    ] content_template get_root_folder]
}


d_proc -public content::template::is_template {
    -template_id:required
} {
    @param template_id

    @return t or f
} {
    return [package_exec_plsql -var_list [list \
        [list template_id $template_id ] \
    ] content_template is_template]
}



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