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 -N -r1.23 -r1.24 --- openacs-4/packages/news/www/item-create-3.tcl 12 Feb 2019 17:12:19 -0000 1.23 +++ openacs-4/packages/news/www/item-create-3.tcl 12 Feb 2019 17:28:59 -0000 1.24 @@ -36,7 +36,7 @@ # # the news_admin or an open approval policy allow immediate publishing # -if { $news_admin_p == 1 || $approval_policy eq "open" } { +if { $news_admin_p == 1 || $approval_policy eq "open" } { set approval_user [ad_conn user_id] set approval_ip [ad_conn peeraddr] set approval_date [dt_sysdate] @@ -51,7 +51,7 @@ # Allow the user to "never expire" a news item. if {$permanent_p == "t"} { set archive_date_ansi "" -} +} # get creation_foo set creation_date [dt_sysdate] @@ -80,9 +80,9 @@ # case: user submitted news item, is returned to a Thank-you page set title [_ news.News_item_submitted] set context [list $title] - ad_return_template item-create-thankyou + ad_return_template item-create-thankyou } -} else { +} else { # case: administrator returned to index page ad_returnredirect "" ad_script_abort