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.23 -r1.24 --- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl 25 Apr 2005 14:22:44 -0000 1.23 +++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl 16 Oct 2006 15:21:53 -0000 1.24 @@ -221,23 +221,22 @@ set blog_name [lars_blog_name -package_id $blog(package_id)] set new_content "" - 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 "$blog(title)" + } else { + append new_content "$blog(title)" } - append new_content "\n" + append new_content "
[string repeat "-" [string length $blog(title)]]

" - lars_blogger::entry::htmlify \ - -array blog + append new_content "$blog(content)

" + append new_content "$blog(entry_date_pretty) by $blog(poster_first_names) $blog(poster_last_name)

" - append new_content "[ad_html_text_convert -from text/html -to text/plain -- $blog(content)]\n\n" - append new_content "$blog(entry_date_pretty) by $blog(poster_first_names) $blog(poster_last_name)" \n\n + append new_content "Permalink: $entry_url
" + append new_content "$blog_name: $blog_url
" - append new_content "Permalink: $entry_url\n\n" - append new_content "$blog_name: $blog_url\n" - - append new_content "This entry: " $entry_url \n\n - append new_content "$blog_name: " $blog_url \n + append new_content "This entry: $entry_url
" + append new_content "$blog_name: $blog_url

" # Do the notification for the forum notification::new \ @@ -246,7 +245,7 @@ -object_id $blog(package_id) \ -response_id $blog(entry_id) \ -notif_subject $blog(title) \ - -notif_text $new_content + -notif_html $new_content } ad_proc lars_blogger::entry::trackback { -entry_id } {