Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	17 Mar 2003 10:50:11 -0000	1.1.2.3
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	11 May 2003 22:51:15 -0000	1.1.2.4
@@ -59,7 +59,11 @@
 
     set new_content ""
     append new_content "$blog(poster_first_names) $blog(poster_last_name) posted to $blog_name at $blog(posted_time_pretty) on $blog(entry_date_pretty):\n\n"
-    append new_content "$blog(title)\n\n"
+    append new_content "$blog(title)\n[string repeat "-" [string length $blog(title)]]\n"
+    if { ![empty_string_p $blog(title_url)] } {
+        append new_content "$blog(title_url)\n"
+    }
+    append new_content "\n"
     append new_content "[ad_convert_to_text -- [ns_adp_parse -string $blog(content)]]\n\n"
     append new_content "This entry: $entry_url\n\n"
     append new_content "$blog_name: $blog_url\n"