Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql 17 Mar 2004 00:22:58 -0000 1.9
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql 6 Jun 2004 02:28:40 -0000 1.10
@@ -140,12 +140,26 @@
select args.argument_name
from user_arguments args
where args.position > 0
- and args.object_name = upper(:function_name)
+ and args.object_name = upper(:object_name)
and args.package_name = upper(:package_name)
+
+
+
+ select 1
+ from dual
+ where exists (select 1
+ from user_arguments
+ where rtrim(package_name) = upper(:package_name)
+ and rtrim(object_name) = upper(:object_name)
+ and position = 0)
+
+
+
+
@@ -259,11 +273,11 @@
sysdate
-
+
BEGIN
- :1 := ${package_name}.${function_name}([plsql_utility::generate_attribute_parameter_call \
+ :1 := ${package_name}.${object_name}([plsql_utility::generate_attribute_parameter_call \
-prepend ":" \
-indent [expr [string length $package_name] + 29] \
$pieces]
@@ -273,5 +287,19 @@
+
+
+
+ BEGIN
+ ${package_name}.${object_name}([plsql_utility::generate_attribute_parameter_call \
+ -prepend ":" \
+ -indent [expr [string length $package_name] + 29] \
+ $pieces]
+ );
+ END;
+
+
+
+