Index: openacs-4/packages/news-aggregator/www/subscriptions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscriptions.tcl,v
diff -u -r1.7.2.3 -r1.7.2.4
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	4 Jan 2006 16:50:30 -0000	1.7.2.3
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	14 Jan 2006 23:27:59 -0000	1.7.2.4
@@ -94,10 +94,12 @@
 	last_modified {
 	    label "Last Update"
 	}
-        updates {
-            label "Updates"
-            html {align center}
-        }
+	show_description_p {
+	    label "Titles Only?"
+	    display_template {
+		<center><if @sources.show_description_p@ true>No</if><else>Yes</else> <a href="@sources.toggle_show_desc_url@" title="toggle" class="button">toggle</a></center>
+	    }
+	}
         feed_url {
             label "Source"
             display_template {
@@ -133,8 +135,9 @@
 
 set package_url [ad_conn package_url]
 
-db_multirow -extend {xml_graphics_url} sources sources {} {
+db_multirow -extend { xml_graphics_url toggle_show_desc_url } sources sources {} {
     set xml_graphics_url "${package_url}graphics/xml.gif"
+    set toggle_show_desc_url [export_vars -base toggle-show-description { aggregator_id source_id }]
 }
 
 set other_feeds [list [list "Select Feed" ""]]
@@ -172,7 +175,6 @@
                            -feed_url $feed_url \
                            -aggregator_id $aggregator_id \
                            -user_id $user_id \
-                           -package_id $package_id \
 			   -array]
     if { $channel_array eq "0" } {
         ad_returnredirect -message "The feed $feed_url has an error."