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.13 -r1.14
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	25 Jun 2004 08:04:21 -0000	1.13
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	13 Jan 2005 13:58:40 -0000	1.14
@@ -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
     }