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.6.2.1 -r1.6.2.2 --- openacs-4/packages/news/www/admin/approve-2.tcl 12 Sep 2015 11:06:43 -0000 1.6.2.1 +++ openacs-4/packages/news/www/admin/approve-2.tcl 2 Jan 2016 20:34:50 -0000 1.6.2.2 @@ -47,20 +47,7 @@ foreach id $revision_id { - db_exec_plsql news_item_approve_publish { - begin - news.set_approve( - approve_p => 't', - revision_id => :id, - publish_date => :publish_date_ansi, - archive_date => :archive_date_ansi, - approval_user => :approval_user, - approval_date => :approval_date, - approval_ip => :approval_ip, - live_revision_p => :live_revision_p - ); - end; - } + db_exec_plsql news_item_approve_publish {} } set package_id [ad_conn package_id]