--- deliantra/server/ext/books.ext	2007/05/24 03:33:29	1.1
+++ deliantra/server/ext/books.ext	2007/07/10 05:51:38	1.3
@@ -1,4 +1,4 @@
-#! perl # MANDATORY
+#! perl # mandatory
 
 our @BOOKS;
 
@@ -36,13 +36,15 @@
 
    my ($title, @body) = @{$BOOKS[rand @BOOKS]};
 
-   $title = cf::pod::as_text [$title];
+   # half-assed attempt to make it a single line text-only title
+   $title = cf::pod::as_cfpod [$title];
    $title =~ s/\n/ /g;
    $title =~ s/ +$//;
+   $title =~ s/B<([^>]*)>/$1/g;
 
    $book->name    ($title);
    $book->name_pl ($title);
    $book->title   (undef);
-   $book->msg     (cf::pod::as_text \@body);
+   $book->msg     (cf::pod::as_cfpod \@body);
 }