Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/Attic/apm-admin-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs-oracle.xql	27 Apr 2001 01:41:12 -0000	1.1
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs-oracle.xql	27 Apr 2001 17:39:15 -0000	1.2
@@ -6,14 +6,11 @@
 <fullquery name="apm_higher_version_installed_p.apm_higher_version_installed_p">      
       <querytext>
       
-		declare 
-		v_version_name varchar(4000); 
-		begin
-		select version_name into v_version_name
-		from apm_package_versions where
-		version_id = apm_package.highest_version(:package_key);
-		:1 := apm_package_version.version_name_greater(:version_name, v_version_name);
-		end;
+		select apm_package_version.version_name_greater(:version_name, highest.version_name)
+                from (select version_name 
+		      from apm_package_versions
+                      where version_id = apm_package.highest_version(:package_key)
+                     ) as highest
     
       </querytext>
 </fullquery>