Index: openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl,v
diff -u -N -r1.11 -r1.11.2.1
--- openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl 9 May 2018 15:33:28 -0000 1.11
+++ openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl 13 Mar 2019 09:04:09 -0000 1.11.2.1
@@ -50,7 +50,7 @@
invoke {
label "\#acs-admin.Invoke\#"
display_template {\#acs-admin.Invoke\#N/A}
- link_url_eval {[ad_decode [lsearch { before-install after-install before-uninstall after-uninstall } $type] -1 {} [export_vars -base "version-callback-invoke" { version_id type }]]}
+ link_url_eval {[expr {$type in { before-install after-install before-uninstall after-uninstall } ? [export_vars -base "version-callback-invoke" { version_id type }] : ""}]}
link_html { title "\#acs-admin.Invoke_this_callback_proc_now_Be_careful\#" }
html { align center }
}