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 } {