Index: openacs-4/packages/news-aggregator/www/subscription-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscription-copy.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/news-aggregator/www/subscription-copy.tcl	25 Jan 2005 23:17:09 -0000	1.2
+++ openacs-4/packages/news-aggregator/www/subscription-copy.tcl	4 Jan 2006 16:50:30 -0000	1.2.2.1
@@ -18,6 +18,10 @@
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
 
+set page_title "Copy subscription"
+array set ag_info [news_aggregator::aggregator::aggregator_info -aggregator_id $aggregator_id]
+set context [list [list "." "$ag_info(aggregator_name)"] "$page_title"]
+
 if { [exists_and_not_null copy_to] } {
 
     foreach source_id $source_ids {
@@ -45,11 +49,18 @@
     ad_script_abort
 }
 
-set page_title "Copy subscription"
-set context [list $page_title]
+set sources [list]
+foreach source $source_id {
+	lappend sources '$source'
+}
+set sources [join $sources ","]
 
-set package_id [ad_conn package_id]
-set list_of_aggregators [db_list_of_lists select_aggregators {}]
+set list_of_aggregators [list]
+db_foreach select_aggregators {} {
+    if { $write_p eq "t" } { 
+	lappend list_of_aggregators [list $move_to_name $move_to_id]
+    }
+}
 
 ad_form -name copy_subscription -form {
     {aggregator_id:integer(hidden)