Index: openacs-4/packages/forums/lib/search/search-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/search/search-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/forums/lib/search/search-chunk.tcl	15 May 2007 20:14:40 -0000	1.4
+++ openacs-4/packages/forums/lib/search/search-chunk.tcl	23 Dec 2007 14:50:15 -0000	1.5
@@ -28,18 +28,15 @@
         if { [parameter::get -parameter UseIntermediaForSearchP -default 0] } {
             append query "_intermedia"
         }
-	
-	if { $useScreenNameP == 1 } {
-	    db_multirow -extend { screen_name } messages $query {} {
-		set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-		set screen_name [db_string select_screen_name {select screen_name from users where user_id = :user_id}]
-	    }
-	} else {
-	    db_multirow messages $query {} {
-		set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-	    }
-	}
-	
+    
+        db_multirow -extend { author posting_date_pretty} messages $query {} {
+            set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+            if { $useScreenNameP } {
+                set author [db_string select_screen_name {select screen_name from users where user_id = :user_id}]
+            } else {
+                set author $user_name
+            }
+        }
     } else {
         set messages:rowcount 0
     }