Index: openacs-4/packages/cms/tcl/form-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/tcl/form-procs-postgresql.xql 12 Jul 2001 00:19:20 -0000 1.2
+++ openacs-4/packages/cms/tcl/form-procs-postgresql.xql 12 Jul 2001 06:37:26 -0000 1.3
@@ -99,6 +99,7 @@
+
select
types.table_name, types.id_column, attr.attribute_name,
attr.datatype
@@ -125,6 +126,7 @@
) types USING (object_type)
order by
types.inherit_level desc
+
@@ -155,24 +157,82 @@
) types USING (object_type)
-
+
-
+
+ :$param
+
- and $extra_where
+
+
+
+ $defArray($param)
-
+
+null
+
+
- order by
- types.inherit_level desc
+
+
+ select content_item__new( [join $params ","] ) as item_id
+
+
+
+
+
+ update cr_revisions
+ set content = empty_blob() where revision_id = :revision_id
+
+
+
+
+
+
+ to_date(:$name, 'YYYY MM DD HH24 MI SS')
+
+
+
+
+
+ select
+ relation_tag as label, relation_tag as value
+ from
+ cr_type_children c
+ where
+ content_item__is_subclass(:parent_type, c.parent_type) = 't'
+ and
+ content_item__is_subclass(:content_type, c.child_type) = 't'
+ and
+ content_item__is_valid_child(:parent_id, c.child_type) = 't'
+
+
+
+
+
+
+
+ select content_item__get_title(:parent_id)
+
+
+
+
+
+
+
+ to_char($attr, 'YYYY MM DD HH24 MI SS') as $attr
+
+
+
+