--- deliantra/server/ext/board.ext	2008/09/22 01:33:09	1.6
+++ deliantra/server/ext/board.ext	2008/09/22 06:30:31	1.7
@@ -25,13 +25,11 @@
 sub do_list {
    my ($board, $who, $npc) = @_;
    my $cont = CFBoard::get ($board);
-   if (@{$cont || []}) {
-      $who->reply ($npc, "$board content:");
-      my $idx = 0;
-      for (@$cont) {
-         $who->reply ($npc, "<$idx> $_->[0]: $_->[1]");
-         $idx++;
-      }
+   if (@$cont) {
+      my $msg = "$board content:\n\n";
+      $msg .= "<$_> $cont->[$_][0]: $cont->[$_][1]\r"
+         for 0 .. $#$cont;
+      $who->reply ($npc, $msg);
    } else {
       $who->reply ($npc, "$board is empty.");
    }