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 } }