Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	28 Jan 2006 15:58:50 -0000	1.3
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	30 Jan 2006 02:04:51 -0000	1.4
@@ -20,18 +20,23 @@
   set content [expr {[$page set object_type] eq "::xowiki::PlainPage" ?
 		     [$page set text] : [lindex [$page set text] 0]}]
   $page set unresolved_references 0
-  $page instvar item_id
+  $page instvar item_id creation_user
   set content [ad_html_text_convert -from [$page set mime_type] -to text/plain -- $content]
-		   
-  #ns_log notice "--datasource content=$content, oid=$revision_id"
+  if {$creation_user ne ""} {
+    acs_user::get -user_id $creation_user -array user
+    set creator "$user(first_names) $user(last_name)"
+  } else {
+    set creator "nobody"
+  }
+  #ns_log notice "--datasource revid=$revision_id, cru=$creation_user, cr=$creator"
   # category photos 
   # link "${full}photo/photo_id=$item_id" 
   return [list object_id $revision_id title  [$page set title] \
 	      content $content keywords {} \
 	      storage_type text mime text/plain \
 	      syndication [list link "[ad_url]/o/$item_id" \
 			       description $content \
-			       author "nobody" \
+			       author $creator \
 			       category "" \
 			       guid "[ad_url]/o/$item_id" \
 			       pubDate [$page set last_modified]] \