Index: openacs-4/packages/cms/tcl/form-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/form-procs-oracle.xql 12 Jul 2001 06:37:26 -0000 1.3
+++ openacs-4/packages/cms/tcl/form-procs-oracle.xql 29 Jul 2001 17:26:29 -0000 1.4
@@ -239,4 +239,114 @@
+
+
+
+ begin
+ content_revision.to_temporary_clob(:revision_id);
+ end;
+
+
+
+
+
+
+
+ select
+ [join $args ","]
+ from
+ acs_attributes,
+ (
+ select
+ object_type ancestor, level as type_order
+ from
+ acs_object_types
+ connect by
+ prior supertype = object_type
+ start with
+ object_type = :content_type
+ ) types
+ where
+ object_type = ancestor
+ and
+ attribute_name <> 'ldap dn'
+ order by type_order desc, sort_order
+
+
+
+
+
+
+
+ select
+ nvl(pretty_name,enum_value),
+ enum_value
+ from
+ acs_enum_values
+ where
+ attribute_id = :attribute_id
+ order by
+ sort_order
+
+
+
+
+
+
+
+ select content_item.get_latest_revision(:item_id) from dual
+
+
+
+
+
+
+
+begin :revision_id := content_revision.new(
+ title => :title
+
+
+
+
+
+
+
+ , description => :description
+
+
+
+
+
+
+
+ , publish_date => :publish_date
+
+
+
+
+
+
+
+ , mime_type => :mime_type
+
+
+
+
+
+
+
+ , nls_language => :nls_language
+
+
+
+
+
+
+
+ , text => :text
+
+
+
+
+
\ No newline at end of file