Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.77 -r1.78
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Feb 2007 10:34:11 -0000	1.77
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	26 Feb 2007 07:43:58 -0000	1.78
@@ -729,6 +729,16 @@
     return "$image<p>[$t asHTML]</p>\n<p>$description</p>"
   }
 
+  PodcastItem instproc get_content {} {
+    set content [next]
+    append content <ul>
+    foreach i {title subtitle creator pub_date duration keywords} {
+      append content "<li><em>$i:</em> [my set $i]\n"
+    }
+    append content </ul>
+    return $content
+  }
+
   #
   # PageTemplate specifics
   #