Index: openacs-4/packages/cms/www/modules/categories/create-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/create-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/create-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin :1 := content_keyword.new(
+ heading => :heading,
+ description => :description,
+ keyword_id => :keyword_id,
+ creation_user => :user_id,
+ creation_ip => :ip$pid); end;
+
+
+
+
+
+
+
+ select acs_object_id_seq.nextval from dual
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/create-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/create-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/create-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,32 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_keyword__new(
+ :heading,
+ :description,
+ null,
+ :keyword_id,
+ now(),
+ :user_id,
+ :ip$pid,
+ 'content_keyword');
+
+
+
+
+
+
+
+
+ select acs_object_id_seq.nextval
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/delete-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/delete-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+ oracle8.1.6
+
+
+
+ begin content_keyword.delete(:id); end;
+
+
+
+
+
+
+
+ select content_keyword.is_leaf(:id) from dual
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/delete-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/delete-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,24 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_keyword__delete(:id);
+
+
+
+
+
+
+
+
+ select content_keyword__is_leaf(:id)
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/edit-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/edit-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/edit-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,31 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ content_keyword.set_heading(:keyword_id, :heading);
+ content_keyword.set_description(:keyword_id, :description);
+ end;
+
+
+
+
+
+
+
+
+ select
+ content_keyword.get_heading(:id) heading,
+ content_keyword.get_description(:id) description,
+ case when content_keyword.is_leaf(:id) = 't' then 'keyword' else 'category' end as what
+ from
+ dual
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/edit-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/edit-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/edit-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,35 @@
+
+
+
+ postgresql7.1
+
+
+
+
+
+ begin
+ content_keyword__set_heading(:keyword_id, :heading);
+ content_keyword__set_description(:keyword_id, :description);
+
+ return null;
+ end;
+
+
+
+
+
+
+
+
+ select
+ content_keyword__get_heading(:id) heading,
+ content_keyword__get_description(:id) description,
+ case when content_keyword__is_leaf(:id) = 't' then 'keyword' else 'category' end as what
+ from
+ dual
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/index-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/index-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,40 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select
+ content_keyword.is_leaf(:id) as is_leaf,
+ content_keyword.get_heading(:id) as heading,
+ content_keyword.get_description(:id) as description,
+ content_keyword.get_path(:id) as path
+ from
+ dual
+
+
+
+
+
+
+
+ select
+ keyword_id,
+ content_keyword.is_leaf(keyword_id) as is_leaf,
+ content_keyword.get_heading(keyword_id) as heading,
+ (select count(*) from cr_item_keyword_map m
+ where m.keyword_id = k.keyword_id) as item_count
+ from
+ cr_keywords k
+ where
+ $where_clause
+ order by
+ is_leaf, heading
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/index-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/index-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,41 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select
+ content_keyword__is_leaf(:id) as is_leaf,
+ content_keyword__get_heading(:id) as heading,
+ content_keyword__get_description(:id) as description,
+ content_keyword__get_path(:id) as path
+ from
+ dual
+
+
+
+
+
+
+
+
+ select
+ keyword_id,
+ content_keyword__is_leaf(keyword_id) as is_leaf,
+ content_keyword__get_heading(keyword_id) as heading,
+ (select count(*) from cr_item_keyword_map m
+ where m.keyword_id = k.keyword_id) as item_count
+ from
+ cr_keywords k
+ where
+ $where_clause
+ order by
+ is_leaf, heading
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/index.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/index.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+ select
+ context_id
+ from
+ acs_objects
+ where
+ object_id = :id
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/keyword-assign-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/keyword-assign-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/keyword-assign-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+
+ begin content_keyword.item_assign(:resolved_id, :item_id); end;
+
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/keyword-assign-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/keyword-assign-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/keyword-assign-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ postgresql7.1
+
+
+
+
+
+ select content_keyword__item_assign(:resolved_id, :item_id, null, null, null)
+
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/keyword-unassign-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/keyword-unassign-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/keyword-unassign-oracle.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin content_keyword.item_unassign(:resolved_id, :keyword_id); end;
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/keyword-unassign-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/keyword-unassign-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/keyword-unassign-postgresql.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_keyword__item_unassign(:resolved_id, :keyword_id)
+
+
+
+
+
+
Index: openacs-4/packages/cms/www/modules/categories/move.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/move.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/modules/categories/move.xql 25 May 2001 02:56:11 -0000 1.1
@@ -0,0 +1,25 @@
+
+
+
+
+
+
+ update cr_items set parent_id = $update_value
+ where item_id = $item_id
+ and exists (
+ select 1 from cr_keywords where keyword_id = item_id
+ )
+
+
+
+
+
+
+
+ update cr_keywords set parent_id = $update_value
+ where keyword_id = $item_id
+
+
+
+
+