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.12.2.1 -r1.12.2.2
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	25 Jun 2004 08:20:18 -0000	1.12.2.1
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	13 Dec 2004 16:13:24 -0000	1.12.2.2
@@ -121,7 +121,10 @@
         if { [exists_and_not_null iarray(category)] } {
             append rss "<category>[ad_quotehtml $iarray(category)]</category>" \n
         }
-        
+
+        if { [exists_and_not_null iarray(enclosure_url)] && [exists_and_not_null iarray(enclosure_length)] && [exists_and_not_null iarray(enclosure_type)]  } {
+	    append rss "<enclosure url=\"[ad_quotehtml $iarray(enclosure_url)]\" length=\"$iarray(enclosure_length)\" type=\"$iarray(enclosure_type)\"/>"
+	}
         append rss {</item>} \n
     }