Index: openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl 7 Oct 2017 18:40:02 -0000 1.3 +++ openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl 10 Dec 2017 15:18:34 -0000 1.4 @@ -212,13 +212,21 @@ # # View handler # +if {$::tcl_version eq "8.5"} { + # + # In Tcl 8.5, "::try" was not yet a builtin of Tcl + # + package require try +} ns_register_proc GET $::richtext::ckeditor4::ckfinder_url/view { # # View function (for "filebrowser" and "uploadimage" plugins) # + ns_log notice richtext::ckeditor4::ckfinder_url/view + set ::template::parse_level [info level] - ad_try { + ::try { # # Use the standard page_contract # @@ -230,7 +238,7 @@ -revision_id $image_id \ -user_id [ad_conn user_id] - } ad_script_abort val { + } trap {AD EXCEPTION ad_script_abort} {result} { # # The page contract has probably failed, no need to raise an # exception.