Index: openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl 7 Dec 2004 08:07:29 -0000 1.4 +++ openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl 27 Feb 2005 20:05:58 -0000 1.5 @@ -79,3 +79,13 @@ [list item_id $item_id ] \ ] content_extlink is_extlink] } + +ad_proc -public content::extlink::name { + -item_id:required +} { + Returns the name of an extlink + + @item_id The object id of the item to check. +} { + return [db_string get {}] +} Index: openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.xql 27 Feb 2005 20:05:58 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + select label + from cr_extlinks + where extlink_id = :item_id + + + + Index: openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/extlink-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl 7 Dec 2004 08:07:29 -0000 1.7 +++ openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl 27 Feb 2005 20:05:58 -0000 1.8 @@ -44,7 +44,7 @@ } -ad_proc content_extlink::edit { +ad_proc -deprecated content_extlink::edit { -extlink_id:required -url:required -label:required @@ -60,6 +60,7 @@ @label Label for the extlink (defaults to the URL) @description An extended description of the link (defaults to NULL) + @see update-directly } { set modifying_user [ad_conn user_id] @@ -69,7 +70,6 @@ db_dml extlink_update_object {} db_dml extlink_update_extlink {} } - } ad_proc -deprecated content_extlink::delete { @@ -98,14 +98,15 @@ return [db_string extlink_check {}] } -ad_proc content_extlink::extlink_name { +ad_proc -deprecated content_extlink::extlink_name { -item_id:required } { Returns the name of an extlink @item_id The object id of the item to check. + @see content::extlink::name } { return [db_string extlink_name {}] } Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 2 Oct 2003 22:35:54 -0000 1.5 +++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 27 Feb 2005 20:05:59 -0000 1.6 @@ -12,7 +12,7 @@ namespace eval application_group {} -ad_proc application_group::contains_party_p { +ad_proc -public application_group::contains_party_p { { -package_id "" } { -party_id "" } -include_self:boolean @@ -68,7 +68,7 @@ } -ad_proc application_group::contains_relation_p { +ad_proc -public application_group::contains_relation_p { { -package_id "" } { -rel_id "" } } { @@ -103,7 +103,7 @@ return $found_p } -ad_proc application_group::contains_segment_p { +ad_proc -public application_group::contains_segment_p { { -package_id "" } { -segment_id "" } } { @@ -140,7 +140,7 @@ } -ad_proc application_group::group_id_from_package_id { +ad_proc -public application_group::group_id_from_package_id { -no_complain:boolean { -package_id "" } } { @@ -178,7 +178,7 @@ return $group_id } -ad_proc application_group::new { +ad_proc -public application_group::new { { -group_id "" } { -group_type "application_group"} { -package_id "" } @@ -230,7 +230,7 @@ } -ad_proc application_group::delete { +ad_proc -public application_group::delete { -group_id:required } { Delete the given application group and all relational segments and constraints dependent Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.adp 11 Aug 2001 21:31:03 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.adp 27 Feb 2005 20:05:59 -0000 1.3 @@ -1,26 +1,6 @@ -<% -ad_require_permission $segment_id "read" -set write_p [ad_permission_p $segment_id "write"] - -set package_url [ad_conn package_url] -set user_id [ad_conn user_id] - -db_multirow elements elements_select { - select acs_object.name(map.party_id) as name, map.rel_id, - decode(map.container_id, :group_id, 1, 0) as direct_p, - acs_object.name(map.container_id) as container_name - from rel_segment_party_map map - where acs_permission.permission_p(map.party_id, :user_id, 'read') = 't' - and map.segment_id = :segment_id - order by lower(name) -} - -%> -

@segment_name@