Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.10 -r1.10.8.1
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	10 Sep 2002 22:22:11 -0000	1.10
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	15 Dec 2003 15:49:56 -0000	1.10.8.1
@@ -6,7 +6,7 @@
 
     @author mbryzek@arsdigita.com
     @creation-date Wed Dec 27 16:02:44 2000
-    @cvs-id $Id$
+    @cvs-id package-procs.tcl,v 1.10 2002/09/10 22:22:11 jeffd Exp
 
 }
 
@@ -635,7 +635,8 @@
 
 ad_proc -private package_plsql_args {
     { -function_name "NEW" }
-    object_type
+    { -package_name "" }
+    { object_type }
 } {
     Generates a list of parameters expected to a plsql function
 
@@ -653,11 +654,14 @@
     @param function_name The function name which we're looking up
 } {
 
+
+  if { [empty_string_p $package_name] } {
     db_1row select_type_info {
 	select t.package_name
 	  from acs_object_types t 
 	 where t.object_type = :object_type
     }
+  }
 
     # Get just the args
     return [db_list select_object_type_param_list {
@@ -846,7 +850,7 @@
 	#set real_params([string toupper [lindex $row 1]]) 1
     #}
 
-    foreach arg [util_memoize "package_plsql_args \"$object_type\""] {
+    foreach arg [util_memoize [list package_plsql_args -package_name $package_name $object_type]] {
 	set real_params([string toupper $arg]) 1
     }