Index: openacs-4/packages/rss-support/rss-support.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/rss-support.info,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/rss-support/rss-support.info 16 Jan 2003 13:55:54 -0000 1.8
+++ openacs-4/packages/rss-support/rss-support.info 30 Jan 2003 16:50:46 -0000 1.9
@@ -6,16 +6,19 @@
RSS Support
f
t
+ rss-support
-
+
+ oracle
postgresql
- Andrew Grumet
- Jerry Asher
Dave Bauer
+ Jerry Asher
+ Andrew Grumet
Basic support for RSS generation (and parsing). RDF Site Summary (RSS) is a lightweight multipurpose extensible metadata description and syndication format. This package can be used to publish ACS objects in a manner useful to other websites and webservices.
+ 2003-01-30
For each item (news event, ticket, bboard message, ...) that you want to publish, you create a property list that describes that item (url to item, title of item, description of item, etc.). You pass a list of those items
(and some other parameters) to rss_gen, and it will generate your XML for you.
@@ -26,50 +29,52 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
+
+
Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 30 Nov 2002 17:44:11 -0000 1.11
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 30 Jan 2003 16:51:46 -0000 1.12
@@ -61,6 +61,12 @@
set datasource [acs_sc_call RssGenerationSubscriber datasource \
$summary_context_id $impl_name]
+
+ if { [empty_string_p $datasource] } {
+ ns_log Error "Empty datasource returned from $impl_name for context $summary_context_id in rss_gen_report. Probably because the implementation hasn't been bound."
+ return
+ }
+
set args ""
foreach {name val} $datasource {
regsub -all {[\]\[\{\}""\\$]} $val {\\&} val
Index: openacs-4/packages/rss-support/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/rss-support/www/delete.tcl 5 Sep 2002 13:23:33 -0000 1.3
+++ openacs-4/packages/rss-support/www/delete.tcl 30 Jan 2003 16:52:12 -0000 1.4
@@ -8,7 +8,8 @@
ad_require_permission $subscr_id admin
db_1row subscr_info {
- select channel_title,
+ select summary_context_id,
+ channel_title,
channel_link
from rss_gen_subscrs
where subscr_id = :subscr_id