Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	25 Feb 2007 09:57:09 -0000	1.1
+++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	26 Feb 2007 07:43:58 -0000	1.2
@@ -8,7 +8,7 @@
     maxentries 
     {name_filter ""}
     {days ""}
-    {siteurl ""}
+    {siteurl "[ad_url]"}
     {description ""}
     {language en-us}
     {title ""}
@@ -96,8 +96,7 @@
     set folder_id [::$package_id folder_id]
 
     if {$description eq ""} {set description [::$folder_id set description]}
-    set url [expr {[my exists siteurl] ? $siteurl : [ad_url]}]
-    my set link $url[site_node::get_url_from_object_id -object_id $package_id]
+    my set link $siteurl[site_node::get_url_from_object_id -object_id $package_id]
 
     set content [my head]
     db_foreach get_pages \
@@ -119,14 +118,13 @@
           regexp {^([^.]+)[.][0-9]+(.*)$} $last_modified _ time tz
           
           if {$title eq ""} {set title $name}
-	  set url [expr {[my exists siteurl] ? [my set siteurl] : [ad_url]}]
           #append title " ($content_type)"
           set time "[clock format [clock scan $time] -format {%a, %d %b %Y %T}] ${tz}00"
           append content [my item \
                               -creator $creator \
                               -title $title \
-                              -link [::$package_id pretty_link -absolute true -siteurl [my siteurl]  $name] \
-                              -guid $url/$page_id \
+                              -link [::$package_id pretty_link -absolute true -siteurl $siteurl  $name] \
+                              -guid $siteurl/$page_id \
                               -description $description \
                               -pubdate $time \
                              ]
@@ -183,15 +181,14 @@
 
   Podcast instproc render {} {
     my instvar package_id max_entries name_filter title days \
-	summary subtitle description author
+	summary subtitle description author siteurl
 
     set folder_id [::$package_id folder_id]
     if {$description eq ""} {set description [::$folder_id set description]}
     if {$summary eq ""} {set summary $description}
     if {$subtitle eq ""} {set subtitle $title}
 
-    set url [expr {[my exists siteurl] ? [my set siteurl] : [ad_url]}]
-    my set link $url[site_node::get_url_from_object_id -object_id $package_id]
+    my set link $siteurl[site_node::get_url_from_object_id -object_id $package_id]
     
     set content [my head]
     db_foreach get_pages \
@@ -209,7 +206,7 @@
           
           if {$title eq ""} {set title $name}
           #set time "[clock format [clock scan $time] -format {%a, %d %b %Y %T}] ${tz}00"
-	  set link [::$package_id pretty_link -absolute true -siteurl [my siteurl] $name]/download.$file_extension
+	  set link [::$package_id pretty_link -absolute true -siteurl $siteurl $name]/download.$file_extension
 	  append content [my item \
 			      -author $creator -title $title -subtitle $subtitle \
 			      -link $link -mime_type $mime_type \
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 -N -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
   #