Index: openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl,v diff -u -r1.12.2.2 -r1.12.2.3 --- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl 13 Mar 2019 09:41:26 -0000 1.12.2.2 +++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl 30 Mar 2019 19:59:52 -0000 1.12.2.3 @@ -39,7 +39,11 @@ set page_title "Edit Tcl Callback" } -set context [list [list "." "Package Manager"] [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] [list $return_url "Tcl Callbacks"] $page_title] +set context [list \ + [list "." "Package Manager"] \ + [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] \ + [list $return_url "Tcl Callbacks"] \ + $page_title] set type_label "Tcl procedure name" ad_form -name callback -cancel_url $return_url -form { @@ -69,12 +73,12 @@ } -validate { {proc - { {info commands ::$proc} ne "" } - {The specified procedure name does not exist. Is the -procs.tcl file loaded?} + { {info commands ::$proc} ne "" } + {The specified procedure name does not exist. Is the -procs.tcl file loaded?} } {proc - { [apm_callback_has_valid_args -type $type -proc_name $proc] } - {The callback proc $proc must be defined with ad_proc [expr {[apm_arg_names_for_callback_type -type $type] eq "" ? + { [apm_callback_has_valid_args -type $type -proc_name $proc] } + {The callback proc $proc must be defined with ad_proc [expr {[apm_arg_names_for_callback_type -type $type] eq "" ? "and should take no arguments" : "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"}]} }