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 -N -r1.12 -r1.13
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	24 Feb 2004 11:26:04 -0000	1.12
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	25 Jun 2004 08:04:21 -0000	1.13
@@ -267,6 +267,14 @@
             set element [ad_quotehtml $iarray(timestamp)]
             append rss "<dc:date>$element</dc:date>\n"
         }
+        if {[info exists iarray(author)]} {
+            set element [ad_quotehtml $iarray(author)]
+            append rss "<dc:creator>$element</dc:creator>\n"
+        }
+        if {[info exists iarray(category)]} {
+            set element [ad_quotehtml $iarray(category)]
+            append rss "<dc:subject>$element</dc:subject>\n"
+        }
 
         append rss "</item>\n"
     }