Index: openacs-4/packages/lars-blogger/lars-blogger.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lars-blogger.info,v diff -u -r1.40 -r1.40.2.1 --- openacs-4/packages/lars-blogger/lars-blogger.info 5 Apr 2005 12:08:47 -0000 1.40 +++ openacs-4/packages/lars-blogger/lars-blogger.info 7 Oct 2005 08:20:21 -0000 1.40.2.1 @@ -7,14 +7,14 @@ f f - + Lars Pind Individual or collaborative web logs. 2004-02-11 Collaboraid Weblog creation and management with notifications, RSS, trackpack, technorati, blogroll, pings, archives, draft and published entries, includable templates for presenting on other pages, and permissioning for multiple users. - + @@ -42,6 +42,7 @@ + Index: openacs-4/packages/lars-blogger/www/blog-months.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog-months.tcl,v diff -u -r1.4 -r1.4.8.1 --- openacs-4/packages/lars-blogger/www/blog-months.tcl 28 Aug 2003 09:41:55 -0000 1.4 +++ openacs-4/packages/lars-blogger/www/blog-months.tcl 7 Oct 2005 08:20:21 -0000 1.4.8.1 @@ -1,12 +1,15 @@ -set package_id [ad_conn package_id] +if { ![info exists package_id] } { + set package_id [ad_conn package_id] +} +set package_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] if [empty_string_p $screen_name] { db_multirow -extend { url } months all_blog_months { *SQL* } { - set url "[ad_conn package_url]archive/$month_url_stub" + set url "${package_url}archive/$month_url_stub" } } else { db_multirow -extend { url } months one_blog_months { *SQL* } { - set url "[ad_conn package_url]user/$screen_name/archive/$month_url_stub" + set url "${package_url}user/$screen_name/archive/$month_url_stub" } } Index: openacs-4/packages/lars-blogger/www/calendar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/calendar.tcl,v diff -u -r1.5 -r1.5.8.1 --- openacs-4/packages/lars-blogger/www/calendar.tcl 29 Sep 2003 08:05:42 -0000 1.5 +++ openacs-4/packages/lars-blogger/www/calendar.tcl 7 Oct 2005 08:20:21 -0000 1.5.8.1 @@ -14,11 +14,13 @@ set calendar_details [ns_set create calendar_details] -set package_url [lars_blog_public_package_url] +if { ![info exist package_id] } { + set package_id [ad_conn package_id] +} + +set package_url [lars_blog_public_package_url -package_id $package_id] set month_number [clock format [clock scan $date] -format %m] -set package_id [ad_conn package_id] - if {[empty_string_p $screen_name]} { db_foreach all_entry_dates { * SQL * } { ns_set put $calendar_details $entry_date_julian "1" Index: openacs-4/packages/lars-blogger/www/entry-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.tcl,v diff -u -r1.21.2.1 -r1.21.2.2 --- openacs-4/packages/lars-blogger/www/entry-chunk.tcl 29 Sep 2005 15:08:09 -0000 1.21.2.1 +++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl 7 Oct 2005 08:20:21 -0000 1.21.2.2 @@ -53,7 +53,7 @@ lars_blogger::entry::htmlify \ -max_content_length $max_content_length \ - -more [ad_decode [ad_return_url] $blog(permalink_url) {} "

Continued..."] \ + -more [ad_decode [ad_return_url] $blog(permalink_url) {} " Continued..."] \ -array blog Index: openacs-4/packages/lars-blogger/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.adp,v diff -u -r1.39.2.1 -r1.39.2.2 --- openacs-4/packages/lars-blogger/www/index.adp 24 Sep 2005 01:18:02 -0000 1.39.2.1 +++ openacs-4/packages/lars-blogger/www/index.adp 7 Oct 2005 08:20:21 -0000 1.39.2.2 @@ -38,10 +38,11 @@

- +
+

#lars-blogger.Archive#

@@ -118,7 +119,16 @@
-
+ + + + +
+

#lars-blogger.Notifications#

+ @notification_chunk;noquote@ +
+ + Index: openacs-4/packages/lars-blogger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v diff -u -r1.29.2.1 -r1.29.2.2 --- openacs-4/packages/lars-blogger/www/index.tcl 24 Sep 2005 01:18:02 -0000 1.29.2.1 +++ openacs-4/packages/lars-blogger/www/index.tcl 7 Oct 2005 08:20:21 -0000 1.29.2.2 @@ -20,6 +20,7 @@ set package_url_with_extras $package_url set index_page_p 1 +set show_archive_p [parameter::get -parameter "ShowArchiveP"] set context [list] set context_base_url $package_url