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.188 -r1.189
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	21 Nov 2007 09:13:27 -0000	1.188
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	21 Nov 2007 19:03:32 -0000	1.189
@@ -1095,8 +1095,15 @@
   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"
+    foreach {label var} {
+      #xowiki.title# title 
+      #xowiki.PodcastItem-subtitle# subtitle 
+      #xowiki.Page-creator# creator 
+      #xowiki.PodcastItem-pub_date# pub_date 
+      #xowiki.PodcastItem-duration# duration 
+      #xowiki.PodcastItem-keywords# keywords
+    } {
+      append content "<li><em>$label:</em> [my set $var]\n"
     }
     append content </ul>
     return $content