Index: openacs-4/packages/acs-admin/www/apm/version-dependencies.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-dependencies.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-admin/www/apm/version-dependencies.tcl	1 Oct 2017 12:16:05 -0000	1.11
+++ openacs-4/packages/acs-admin/www/apm/version-dependencies.tcl	3 Sep 2024 15:37:29 -0000	1.12
@@ -31,21 +31,21 @@
     }]
     db_foreach apm_all_dependencies {} {
 	append body "<li>[string totitle $dependency_type_prep] service $service_uri, version $service_version "
-	
+
         if { $dependency_type ne "provide" } {
 	    set href [export_vars -base version-dependency-remove {package_key dependency_id version_id dependency_type}]
             append body [subst {(<a href="[ns_quotehtml $href]">remove</a>)}]
         }
-	
+
 	# If this package provides a service, show a list of all packages that require it,
 	# or vice versa. If this package provides a service, show other packages requiring
 	# a *lower* version of the service; if it requires one, show packages providing
 	# a *higher* version.
 
-	set sign [ad_decode $dependency_type "provide" "<=" ">="]
+	set sign [expr {$dependency_type eq "provide" ? "<=" : ">="}]
 
 	set counter 0
-        set other_dependency_in [ad_decode $dependency_type "provide" "'requires','extends','embeds'" "'provides'"]
+        set other_dependency_in [expr {$dependency_type eq "provide" ? "'requires','extends','embeds'" : "'provides'"}]
 	db_foreach apm_specific_version_dependencies {} {
             incr counter
 	    if { $counter == 1 } {
@@ -59,7 +59,7 @@
             }
 	    set href [export_vars -base version-view {{version_id $dep_version_id}}]
 	    append body [subst {
-		<li>[string totitle $dep_d] by <a href="[ns_quotehtml $href]">$dep_pretty_name, 
+		<li>[string totitle $dep_d] by <a href="[ns_quotehtml $href]">$dep_pretty_name,
 		version $dep_version_name</a>
 	    }]
 	}