- Publicity: Public Only All
content-extlink-procs.tcl
Procedures for content_extlink
- Location:
- packages/acs-content-repository/tcl/content-extlink-procs.tcl
- Created:
- 2004-06-09
- Author:
- Dave Bauer <dave@thedesignexperience.org>
- CVS Identification:
$Id: content-extlink-procs.tcl,v 1.12.2.1 2020/08/26 15:17:29 antoniop Exp $
Procedures in this file
- content::extlink::copy (public)
- content::extlink::delete (public)
- content::extlink::edit (public)
- content::extlink::is_extlink (public)
- content::extlink::name (public)
- content::extlink::new (public)
Detailed information
content::extlink::copy (public)
content::extlink::copy -extlink_id extlink_id \ -target_folder_id target_folder_id -creation_user creation_user \ [ -creation_ip creation_ip ]
- Switches:
- -extlink_id (required)
- extlink to copy
- -target_folder_id (required)
- folder to copy extlink into
- -creation_user (required)
- -creation_ip (optional)
- Returns:
- 0
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink
content::extlink::delete (public)
content::extlink::delete -extlink_id extlink_id
- Switches:
- -extlink_id (required)
- item_id of extlink to delete
- Returns:
- 0
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink
content::extlink::edit (public)
content::extlink::edit -extlink_id extlink_id -url url -label label \ -description description
Edit an existing external link. The parameters are required because it is assumed that the caller will be pulling the existing values out of the database before editing them.
- Switches:
- -extlink_id (required)
- Optional pre-assigned object_id for the link
- -url (required)
- The URL of the external resource
- -label (required)
- Label for the extlink (defaults to the URL)
- -description (required)
- An extended description of the link (defaults to NULL)
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink
content::extlink::is_extlink (public)
content::extlink::is_extlink -item_id item_id
- Switches:
- -item_id (required)
- item_id to check
- Returns:
- 1 if extlink, otherwise 0
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink, attachments_name_api
content::extlink::name (public)
content::extlink::name -item_id item_id
Returns the name of an extlink
- Switches:
- -item_id (required)
- The object id of the item to check.
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink, attachments_name_api
content::extlink::new (public)
content::extlink::new [ -extlink_id extlink_id ] -url url \ -parent_id parent_id [ -name name ] [ -label label ] \ [ -description description ] [ -package_id package_id ]
Create a new external link.
- Switches:
- -extlink_id (optional)
- -url (required)
- -parent_id (required)
- -name (optional)
- -label (optional)
- -description (optional)
- -package_id (optional)
- Returns:
- 0
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- content_extlink
Content File Source
ad_library { Procedures for content_extlink @author Dave Bauer (dave@thedesignexperience.org) @creation-date 2004-06-09 @cvs-id $Id: content-extlink-procs.tcl,v 1.12.2.1 2020/08/26 15:17:29 antoniop Exp $ } namespace eval ::content::extlink {} d_proc -public content::extlink::copy { -extlink_id:required -target_folder_id:required -creation_user:required {-creation_ip ""} } { @param extlink_id extlink to copy @param target_folder_id folder to copy extlink into @param creation_user @param creation_ip @return 0 } { return [package_exec_plsql -var_list [list \ [list extlink_id $extlink_id ] \ [list target_folder_id $target_folder_id ] \ [list creation_user $creation_user ] \ [list creation_ip $creation_ip ] \ ] content_extlink copy] } d_proc -public content::extlink::new { {-extlink_id ""} -url:required -parent_id:required {-name ""} {-label ""} {-description ""} {-package_id ""} } { Create a new external link. @return 0 } { return [package_exec_plsql -var_list [list \ [list extlink_id $extlink_id ] \ [list url $url ] \ [list parent_id $parent_id ] \ [list name $name ] \ [list label $label ] \ [list description $description ] \ [list package_id $package_id ] \ ] content_extlink new] } d_proc -public content::extlink::edit { -extlink_id:required -url:required -label:required -description:required } { Edit an existing external link. The parameters are required because it is assumed that the caller will be pulling the existing values out of the database before editing them. @param extlink_id Optional pre-assigned object_id for the link @param url The URL of the external resource @param label Label for the extlink (defaults to the URL) @param description An extended description of the link (defaults to NULL) } { set modifying_user [ad_conn user_id] set modifying_ip [ad_conn peeraddr] db_transaction { db_dml extlink_update_object {} db_dml extlink_update_extlink {} } } d_proc -public content::extlink::delete { -extlink_id:required } { @param extlink_id item_id of extlink to delete @return 0 } { content::item::delete -item_id $extlink_id } d_proc -public content::extlink::is_extlink { -item_id:required } { @param item_id item_id to check @return 1 if extlink, otherwise 0 } { return [package_exec_plsql -var_list [list \ [list item_id $item_id ] \ ] content_extlink is_extlink] } d_proc -public content::extlink::name { -item_id:required } { Returns the name of an extlink @param item_id The object id of the item to check. } { return [db_string get {}] } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: