Index: openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	17 Sep 2003 11:20:30 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	24 Sep 2003 00:01:42 -0000	1.3
@@ -23,5 +23,9 @@
                  [list [export_vars -base "version-view" { version_id }] "$pretty_name $version_name"] \
                  [list $return_url "Tcl Callbacks"] $page_title]
 
-catch $proc_value result
+if { [catch $proc_value result] } {
+    global errorInfo
+    ns_log Error "Error invoking callback $proc_value: $result\n$errorInfo"
+}
 
+
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 -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl	17 Sep 2003 11:20:30 -0000	1.5
+++ openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl	24 Sep 2003 00:01:42 -0000	1.6
@@ -43,9 +43,10 @@
         }
         invoke {
             label "Invoke"
-            display_template "Invoke"
-            link_url_eval {[export_vars -base "version-callback-invoke" { version_id type }]}
+            display_template {<if @callbacks.type@ in "before-install" "after-install" "before-uninstall" "after-uninstall">Invoke</if><else><i style="color: gray;">N/A</i></else>}
+            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_html { title "Invoke this callback proc now. Be careful!" }
+            html { align center }
         }
         delete {
             label {}