Index: openacs-4/packages/acs-admin/www/apm/package-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete.tcl,v
diff -u -r1.9.8.8 -r1.9.8.9
--- openacs-4/packages/acs-admin/www/apm/package-delete.tcl 5 Sep 2014 15:55:26 -0000 1.9.8.8
+++ openacs-4/packages/acs-admin/www/apm/package-delete.tcl 8 Sep 2014 10:00:05 -0000 1.9.8.9
@@ -28,15 +28,17 @@
}]
if { [llength $dependent_packages_list] > 0 } {
- set dependency_warning_text "
-The following packages depend on package $package_key
that you are about to delete:
+ set dependency_warning_text "The following packages depend on package
+ $package_key
that you are about to delete:\n
\n"
+
} else {
set dependency_warning_text ""
}
Index: openacs-4/packages/acs-admin/www/apm/version-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-view.tcl,v
diff -u -r1.20.8.9 -r1.20.8.10
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl 8 Sep 2014 09:23:29 -0000 1.20.8.9
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl 8 Sep 2014 10:00:05 -0000 1.20.8.10
@@ -4,7 +4,21 @@
@creation-date 17 April 2000
@cvs-id $Id$
} {
- {version_id:naturalnum,notnull}
+ {version_id:naturalnum,optional}
+ {package_key:optional}
+} -validate {
+ version_id_or_package_key {
+ if {[info exists package_key] && ![info exists version_id]} {
+ set version_id [apm_version_id_from_package_key $package_key]
+ if {$version_id eq ""} {
+ ad_complain "No package with package_key '$package_key' is enabled."
+ return
+ }
+ }
+ if {![info exists version_id]} {
+ ad_complain "Specify a valid version_id."
+ }
+ }
}
db_1row apm_all_version_info {
@@ -241,7 +255,7 @@
} else {
set instances "No installed instance of this package\n"
}
-if {!$singleton_p} {
+if {$nr_instances == 0 || ($nr_instances > 0 && !$singleton_p)} {
set query [export_vars { package_key {return_url [ad_return_url]}}]
set instance_create [subst {
Create