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.10 -r1.11 --- openacs-4/packages/news/www/admin/approve-2.tcl 12 Feb 2019 17:12:19 -0000 1.10 +++ openacs-4/packages/news/www/admin/approve-2.tcl 12 Feb 2019 17:28:59 -0000 1.11 @@ -5,12 +5,12 @@ This page makes the insert of publish_date and archive_date (optionally) into cr_revisions and cr_news(news_id) resp. without intermediate confirmation. The administrator is redirected to return_url:localurl - + @author stefan@arsdigita.com @creation-date 2000-12-20 @cvs-id $Id$ -} { +} { revision_id:naturalnum,notnull {return_url:localurl ""} {permanent_p:boolean "f"} @@ -32,10 +32,10 @@ set archive_date_ansi $archive_date(date) if { [dt_interval_check $archive_date_ansi $publish_date_ansi] >= 0 } { - ad_return_error "[_ news.Scheduling_Error]" \ - "[_ news.lt_The_archive_date_must]" + ad_return_error "[_ news.Scheduling_Error]" \ + "[_ news.lt_The_archive_date_must]" ad_script_abort - } + } } @@ -46,9 +46,9 @@ foreach id $revision_id { - - db_exec_plsql news_item_approve_publish {} + db_exec_plsql news_item_approve_publish {} + } set package_id [ad_conn package_id] if {[rss_support::subscription_exists \