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 -N -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 10 Sep 2002 22:21:59 -0000 1.3 +++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 10 Jan 2003 13:05:44 -0000 1.4 @@ -9,7 +9,7 @@ version_name version_uri summary - description + description:html {description_format ""} { owner_name:multiple} { owner_uri:multiple} @@ -19,7 +19,7 @@ { upgrade_p 0 } } -validate { version_uri_unique -requires {version_uri} { - if { [db_string apm_version_uri_unique_ck { + if { $upgrade_p && [db_string apm_version_uri_unique_ck { select decode(count(*), 0, 0, 1) from apm_package_versions where version_uri = :version_uri } -default 0] } { @@ -66,4 +66,3 @@ } ad_returnredirect "version-view?version_id=$version_id" -