Index: openacs-4/packages/simulation/tcl/character-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/character-procs.tcl,v
diff -u -N -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/simulation/tcl/character-procs.tcl	31 Oct 2006 10:13:02 -0000	1.3.2.1
+++ openacs-4/packages/simulation/tcl/character-procs.tcl	2 Nov 2006 10:44:12 -0000	1.3.2.2
@@ -12,15 +12,21 @@
     {-character_id:required}
     {-array:required}
 } {
-    Get basic information about a character. Gets the following attributes: uri, title.
+    Get basic information about a character. Gets the following attributes: title, description, in_directory_p.
 
     @param  array       The name of an array into which you want the information put. 
 
     @author Peter Marklund
 } {
     upvar $array row
 
-    db_1row select_character_info {} -column_array row
+    db_1row select_character_info {
+      select sc.*, cr.title, cr.description
+      from sim_characters sc, cr_revisions cr, cr_items ci
+      where sc.character_id = cr.revision_id
+      and cr.item_id = ci.item_id
+      and (sc.character_id = :character_id or ci.item_id = :character_id)
+    } -column_array row
 }
 
 ad_proc -public simulation::character::get_element {