Index: openacs-4/packages/rss-support/www/subscr-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscr-ae-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/rss-support/www/subscr-ae-2.tcl	5 Sep 2002 13:23:33 -0000	1.3
+++ openacs-4/packages/rss-support/www/subscr-ae-2.tcl	17 May 2003 11:23:29 -0000	1.4
@@ -23,34 +23,18 @@
 }] {
     # Subscription exists
     ad_require_permission $subscr_id admin
-    db_dml update_subscr {
-	update rss_gen_subscrs
-	set timeout = :timeout
-	where subscr_id = :subscr_id
-    }
+    db_dml update_subscr {}
 } else {
     # Create a new subscription.
     ad_require_permission $summary_context_id admin
 
     set creation_user [ad_conn user_id]
     set creation_ip [ns_conn peeraddr]
-    db_exec_plsql create_subscr {
-	select rss_gen_subscr__new (
-	    :subscr_id,				-- subscr_id
-            :impl_id,				-- impl_id
-            :summary_context_id,		-- summary_context_id
-            :timeout,			        -- timeout
-            null,				-- lastbuild
-            'rss_gen_subscr',		        -- object_type
-            now(),				-- creation_date
-            :creation_user,			-- creation_user
-            :creation_ip,			-- creation_ip
-            :summary_context_id			-- context_id
-	)
-    }
+    set subscr_id [db_exec_plsql create_subscr {}]
 }
 
 
-set context [list]
+set review_url subscr-ae?[export_url_vars subscr_id impl_id summary_context_id return_url meta]
 
-set review_url subscr-ae?[export_url_vars impl_id summary_context_id return_url meta]
\ No newline at end of file
+set context [list [list $review_url "Edit subscription"] "Done"]
+