Index: openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	10 Jan 2003 13:05:44 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	24 Jan 2003 12:34:11 -0000	1.5
@@ -56,6 +56,15 @@
     apm_package_install_spec $version_id
     if {$upgrade_p} {
 	apm_version_upgrade $version_id
+
+        # The package now provides the new version of itself as interface
+        db_dml update_version_provides {update apm_package_dependencies
+                                    set service_version = :version_name
+                                    where version_id = :version_id
+                                    and service_uri = (select package_key
+                                                       from apm_package_versions
+                                                       where version_id = :version_id)
+                                    and dependency_type = 'provides'}
     }
 } on_error {
     ad_return_error "Error" "
@@ -65,4 +74,4 @@
 "
 }
 
-ad_returnredirect "version-view?version_id=$version_id"
+ad_returnredirect "version-generate-info?version_id=$version_id&write_p=1"