Index: openacs-4/packages/file-storage/www/simple-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add-2.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/file-storage/www/simple-add-2.tcl 7 Aug 2017 23:48:11 -0000 1.10 +++ openacs-4/packages/file-storage/www/simple-add-2.tcl 19 Jan 2018 14:18:32 -0000 1.11 @@ -37,8 +37,8 @@ fs::do_notifications -folder_id $folder_id -filename $url -item_id $item_id -action "new_url" ad_returnredirect "?folder_id=$folder_id" +ad_script_abort - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/file-storage/www/simple-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-delete.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/file-storage/www/simple-delete.tcl 7 Aug 2017 23:48:11 -0000 1.10 +++ openacs-4/packages/file-storage/www/simple-delete.tcl 19 Jan 2018 14:18:32 -0000 1.11 @@ -26,6 +26,7 @@ ad_returnredirect "./?folder_id=$folder_id" +ad_script_abort # Local variables: Index: openacs-4/packages/file-storage/www/simple-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/file-storage/www/simple-edit.tcl 7 Aug 2017 23:48:11 -0000 1.13 +++ openacs-4/packages/file-storage/www/simple-edit.tcl 19 Jan 2018 14:18:32 -0000 1.14 @@ -39,6 +39,7 @@ -element_name category_id] } ad_returnredirect [export_vars -base . folder_id] + ad_script_abort } set pretty_name "$name" Index: openacs-4/packages/file-storage/www/url-goto.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/url-goto.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/url-goto.tcl 7 Aug 2017 23:48:11 -0000 1.8 +++ openacs-4/packages/file-storage/www/url-goto.tcl 19 Jan 2018 14:18:32 -0000 1.9 @@ -16,6 +16,8 @@ if {$url ne ""} { ad_returnredirect $url + ad_script_abort + } else { return -code error [_ file-storage.no_such_URL] } Index: openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 7 Aug 2017 23:48:11 -0000 1.8 +++ openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 19 Jan 2018 14:18:32 -0000 1.9 @@ -34,6 +34,7 @@ parameter::set_value -parameter "MaximumFileSize" -value $new_size if {$return_url ne ""} { ad_returnredirect $return_url + ad_script_abort } } Index: openacs-4/packages/news/www/item-create-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create-3.tcl,v diff -u -r1.20 -r1.21 --- openacs-4/packages/news/www/item-create-3.tcl 7 Aug 2017 23:48:12 -0000 1.20 +++ openacs-4/packages/news/www/item-create-3.tcl 19 Jan 2018 14:24:20 -0000 1.21 @@ -85,6 +85,7 @@ } else { # case: administrator returned to index page ad_returnredirect "" + ad_script_abort } # news item is live @@ -104,6 +105,7 @@ } ad_returnredirect "" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/news/www/item-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create.tcl,v diff -u -r1.16 -r1.17 --- openacs-4/packages/news/www/item-create.tcl 15 Nov 2017 13:26:59 -0000 1.16 +++ openacs-4/packages/news/www/item-create.tcl 19 Jan 2018 14:24:20 -0000 1.17 @@ -66,6 +66,7 @@ {html {cols 60 rows 20}} {value "[list $publish_body ${publish_body.format}]"}} } +# {options {editor ckeditor5 JSEditorClass InlineEditor}} if { $immediate_approve_p } { ad_form -extend -name "news" -form { Index: openacs-4/packages/news/www/admin/approve-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-2.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/news/www/admin/approve-2.tcl 7 Aug 2017 23:48:12 -0000 1.7 +++ openacs-4/packages/news/www/admin/approve-2.tcl 19 Jan 2018 14:24:20 -0000 1.8 @@ -56,15 +56,10 @@ -impl_name news]} { news_update_rss -summary_context_id $package_id } + ad_returnredirect "$return_url" +ad_script_abort - - - - - - - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/news/www/admin/process-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/process-2.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/news/www/admin/process-2.tcl 15 Nov 2017 14:25:36 -0000 1.7 +++ openacs-4/packages/news/www/admin/process-2.tcl 19 Jan 2018 14:24:20 -0000 1.8 @@ -50,6 +50,7 @@ } ad_returnredirect "" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/news/www/admin/revision-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add-3.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/news/www/admin/revision-add-3.tcl 7 Aug 2017 23:48:12 -0000 1.14 +++ openacs-4/packages/news/www/admin/revision-add-3.tcl 19 Jan 2018 14:24:20 -0000 1.15 @@ -56,17 +56,17 @@ } } errmsg ]} { - + set complaint " [_ news.lt_The_database_did_not_] \ [_ news.lt_See_details_for_the_e]\n\n\t
$errmsg" ad_return_error [_ news.Database_Error] $complaint ad_script_abort - + } else { - + ad_returnredirect "item?item_id=$item_id" - -} + ad_script_abort +} # Local variables: # mode: tcl Index: openacs-4/packages/news/www/admin/revision-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/news/www/admin/revision-add.tcl 15 Nov 2017 14:12:45 -0000 1.13 +++ openacs-4/packages/news/www/admin/revision-add.tcl 19 Jan 2018 14:24:20 -0000 1.14 @@ -45,7 +45,7 @@ set lc_format [lc_get formbuilder_date_format] set action "[_ news.Revision]" - +ns_log notice "NEWS REVISION" ad_form -name "news_revision" -export {item_id action} -html {enctype "multipart/form-data"} -action "../preview" -form { {publish_title:text(text) {label "[_ news.Title]"} @@ -60,6 +60,7 @@ {publish_body:text(richtext),optional {label "[_ news.Body]"} {html {cols 60 rows 20}} + {options {editor ckeditor5 JSEditorClass ClassicEditor}} {value "[list $publish_body $publish_format]"} } {text_file:file(file),optional Index: openacs-4/packages/news/www/admin/revision-set-active.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-set-active.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/news/www/admin/revision-set-active.tcl 7 Aug 2017 23:48:12 -0000 1.5 +++ openacs-4/packages/news/www/admin/revision-set-active.tcl 19 Jan 2018 14:24:20 -0000 1.6 @@ -19,13 +19,8 @@ db_exec_plsql update_forum {} ad_returnredirect "item?item_id=$item_id" +ad_script_abort - - - - - - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/news/www/admin/revoke.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revoke.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/news/www/admin/revoke.tcl 7 Aug 2017 23:48:12 -0000 1.5 +++ openacs-4/packages/news/www/admin/revoke.tcl 19 Jan 2018 14:24:20 -0000 1.6 @@ -18,15 +18,8 @@ db_exec_plsql news_item_revoke {} ad_returnredirect "item?item_id=$item_id" +ad_script_abort - - - - - - - - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/news/www/admin/rss.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/rss.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/news/www/admin/rss.tcl 7 Aug 2017 23:48:12 -0000 1.3 +++ openacs-4/packages/news/www/admin/rss.tcl 19 Jan 2018 14:24:20 -0000 1.4 @@ -42,6 +42,8 @@ } ad_returnredirect -message $message "./" +ad_script_abort + # Local variables: # mode: tcl # tcl-indent-level: 4