Index: openacs-4/packages/press/www/admin/one-item-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/press/www/admin/one-item-approve.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/press/www/admin/one-item-approve.tcl	5 Sep 2002 13:12:13 -0000	1.2
+++ openacs-4/packages/press/www/admin/one-item-approve.tcl	31 Oct 2003 16:09:23 -0000	1.3
@@ -35,31 +35,13 @@
 # generate and preset Date&Time widgets
 
 set days_until_archival [ad_parameter ActiveDays "press" 7]
-set proj_archival_date  [db_string week "select sysdate + $days_until_archival from dual"]
+set proj_archival_date  [db_string week {}]
 
 set release_date [dt_widget_datetime -default now release_date days]
 set archive_date [dt_widget_datetime -default $proj_archival_date archive_date days]
 
+db_1row press_item_info {}
 
-db_1row press_item_info {
-    select creation_ip   as item_creation_ip,
-           creation_date as item_creation_date,
-           publication_name,
-           publication_link,
-           publication_date as pretty_publication_date,
-           publication_date_desc,
-           template_id,
-           template_adp,
-           article_title,
-           article_abstract,
-           article_link,
-           article_pages,
-           html_p,
-           item_creator
-    from   press_item_revisions
-    where  revision_id = :revision_id
-}
-
 press_item_format
 
 set title "Approve revision #$revision_id"