Index: openacs-4/packages/press/www/admin/one-item-revision-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/press/www/admin/one-item-revision-add-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/press/www/admin/one-item-revision-add-3.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/press/www/admin/one-item-revision-add-3.tcl	31 Oct 2003 16:09:23 -0000	1.2
@@ -69,34 +69,7 @@
 
 # Insert
 
-db_exec_plsql create_press_item_revision {
-    begin
-    :1 := press_revision.new(
-        title         => :article_title,
-        description   => :article_abstract,
-        mime_type     => :mime_type,
-        text          => :txt,
-        item_id       => :item_id,
-        creation_user => :creation_user,
-        creation_ip   => :creation_ip,
-        package_id    => :package_id,
-        publication_name => :publication_name,
-        publication_link => :publication_link,
-        publication_date => :publication_date,
-        publication_date_desc => :publication_date_desc,
-        article_link  => :article_link,
-        article_pages => :article_pages,
-        article_abstract_html_p => :html_p,
-        approval_user => :approval_user,
-        approval_date => :approval_date, 
-        approval_ip   => :approval_ip,
-        release_date  => :release_date,
-        archive_date  => :archive_date,
-        template_id   => :template_id,
-        make_active_revision_p => :active_revision_p
-    );
-    end;
-}
+db_exec_plsql create_press_item_revision {}
 
 ad_returnredirect "one-item-admin?item_id=$item_id"