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)
-}
-
-%>
-
-
- (none)
@@ -34,7 +14,7 @@
(through @elements.container_name@)
- (remove)
+ (remove)
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl 27 Feb 2005 20:05:59 -0000 1.1
@@ -0,0 +1,20 @@
+# included from elements.
+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)
+}
+
+
+
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/user/basic-info-update-2.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/user/basic-info-update-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/user/basic-info-update-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/user/basic-info-update.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/edit-this-page/www/etp-edit-2-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/edit-this-page/www/etp-edit-2-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/edit-this-page/www/etp-edit-2.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/jabber/www/oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/jabber/www/postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/sloan-bboard/www/simple-message-full-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/sloan-bboard/www/simple-message-full-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/sloan-bboard/www/simple-message-full-oracle.xql 27 Feb 2005 20:05:59 -0000 1.1
@@ -0,0 +1,20 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select object_id as file_id, cr.title, ci.name
+ from acs_objects ao, cr_items ci, cr_revisions cr
+ where object_id = ci.item_id and
+ live_revision = revision_id and
+ object_type = 'content_item' and
+ context_id = :id
+
+
+
+
+
+
Index: openacs-4/packages/sloan-bboard/www/simple-message-full-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/sloan-bboard/www/simple-message-full-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/sloan-bboard/www/simple-message-full-postgresql.xql 27 Feb 2005 20:05:59 -0000 1.1
@@ -0,0 +1,20 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select object_id as file_id, cr.title, ci.name
+ from acs_objects ao, cr_items ci, cr_revisions cr
+ where object_id = ci.item_id and
+ live_revision = revision_id and
+ object_type = 'content_item' and
+ context_id = :id
+
+
+
+
+
+
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/sloan-bboard/www/simple-message-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/sloan-bboard/www/simple-message-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/survey/www/response-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?