Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 29 Sep 2003 14:10:31 -0000 1.10
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 29 Sep 2003 19:53:10 -0000 1.11
@@ -72,14 +72,18 @@
append rss "[ad_quotehtml $iarray(link)]" \n
append rss {} [ad_quotehtml $iarray(link)] {} \n
- if {[info exists iarray(description)]} {
+ if { [exists_and_not_null iarray(description) ]} {
append rss "[ad_quotehtml $iarray(description)]" \n
}
- if {[info exists iarray(timestamp)]} {
+ if { [exists_and_not_null iarray(timestamp)] } {
append rss "[ad_quotehtml $iarray(timestamp)]" \n
}
+ if { [exists_and_not_null iarray(category)] } {
+ append rss "[ad_quotehtml $iarray(category)]" \n
+ }
+
append rss {} \n
}