+
+
+Edit attributes for this aggregator:
+
+
\ No newline at end of file
Index: openacs-4/packages/news-aggregator/www/aggregator-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/Attic/aggregator-edit.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-aggregator/www/aggregator-edit.tcl 14 Jan 2006 23:27:59 -0000 1.1.2.1
@@ -0,0 +1,14 @@
+ad_page_contract {
+ Include to create a new aggregator.
+
+ @author Simon Carstensen
+ @cvs-id $Id: aggregator-edit.tcl,v 1.1.2.1 2006/01/14 23:27:59 michaels Exp $
+} {
+ aggregator_id:integer,notnull
+ {return_url ""}
+}
+
+set page_title "Edit Aggregator Info"
+array set ag_info [news_aggregator::aggregator::aggregator_info -aggregator_id $aggregator_id]
+set context [list [list "." "$ag_info(aggregator_name)"] "$page_title"]
+
Index: openacs-4/packages/news-aggregator/www/aggregator.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/aggregator.adp,v
diff -u -N -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/news-aggregator/www/aggregator.adp 4 Jan 2006 05:31:08 -0000 1.2.2.2
+++ openacs-4/packages/news-aggregator/www/aggregator.adp 14 Jan 2006 23:27:59 -0000 1.2.2.3
@@ -1,12 +1,5 @@
-
-
-@page_title@
-@context@
aggregator.aggregator_name
-
-Edit attributes for this aggregator:
-
Index: openacs-4/packages/news-aggregator/www/aggregator.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/aggregator.tcl,v
diff -u -N -r1.4.2.3 -r1.4.2.4
--- openacs-4/packages/news-aggregator/www/aggregator.tcl 4 Jan 2006 05:31:08 -0000 1.4.2.3
+++ openacs-4/packages/news-aggregator/www/aggregator.tcl 14 Jan 2006 23:27:59 -0000 1.4.2.4
@@ -18,11 +18,7 @@
-privilege write
}
-set page_title "Edit Aggregator Info"
-array set ag_info [news_aggregator::aggregator::aggregator_info -aggregator_id $aggregator_id]
-set context [list [list "." "$ag_info(aggregator_name)"] "$page_title"]
-
-ad_form -name aggregator -select_query_name select_aggregator -form {
+ad_form -name aggregator -action aggregator -select_query_name select_aggregator -form {
{aggregator_id:integer(hidden),key}
{aggregator_name:text
{label "Name"}
Index: openacs-4/packages/news-aggregator/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/index.adp,v
diff -u -N -r1.12.2.6 -r1.12.2.7
--- openacs-4/packages/news-aggregator/www/index.adp 4 Jan 2006 05:35:34 -0000 1.12.2.6
+++ openacs-4/packages/news-aggregator/www/index.adp 14 Jan 2006 23:27:59 -0000 1.12.2.7
@@ -1,8 +1,8 @@
@page_title@
@context@
-
@@ -18,10 +18,10 @@
- You can hit the Purge button to clean out the page. Clicking the Save button will prevent an item from being purged.
+ You can hit the Purge button to clean out the page. Clicking the Save button will prevent an item from being purged.
- Click the Blog button to post the item to a weblog (you will have a choice of weblogs to post to).
+ Click the Blog button to post the item to a weblog (you will have a choice of weblogs to post to).
@@ -38,9 +38,9 @@
@@ -53,38 +53,60 @@
-
- |