Index: openacs-4/packages/acs-admin/www/install/local-install-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/Attic/local-install-3.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/install/local-install-3.tcl	2 Oct 2003 07:06:38 -0000	1.7
+++ openacs-4/packages/acs-admin/www/install/local-install-3.tcl	3 Oct 2003 10:44:17 -0000	1.8
@@ -62,16 +62,12 @@
 
         # Determine if we are upgrading or installing.
         if { [apm_package_upgrade_p $package_key $final_version_name] == 1} {
-    	ns_log Debug "Upgrading package [string totitle $version(package-name)] to $final_version_name."
-    	set upgrade_p 1
-    	set initial_version_name [db_string apm_package_upgrade_from {
-    	    select version_name from apm_package_versions
-    	    where package_key = :package_key
-    	    and version_id = apm_package__highest_version(:package_key)
-    	} -default ""]
+            ns_log Debug "Upgrading package [string totitle $version(package-name)] to $final_version_name."
+            set upgrade_p 1
+            set initial_version_name [apm_highest_version $package_key]
         } else {
-    	set upgrade_p 0
-    	set initial_version_name ""
+            set upgrade_p 0
+            set initial_version_name ""
         }
 
         # Find out which script is appropriate to be run.