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.35.2.4 -r1.35.2.5 --- openacs-4/packages/lars-blogger/lars-blogger.info 20 Apr 2005 08:23:09 -0000 1.35.2.4 +++ openacs-4/packages/lars-blogger/lars-blogger.info 7 Oct 2005 08:19:53 -0000 1.35.2.5 @@ -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. - + @@ -46,6 +46,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.4.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:19:53 -0000 1.4.4.1 @@ -1,12 +1,15 @@ -set package_id [ad_conn package_id] +if { ![info exist 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/blog-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog-postgresql.xql,v diff -u -r1.11 -r1.11.2.1 --- openacs-4/packages/lars-blogger/www/blog-postgresql.xql 27 Feb 2004 18:30:59 -0000 1.11 +++ openacs-4/packages/lars-blogger/www/blog-postgresql.xql 7 Oct 2005 08:19:53 -0000 1.11.2.1 @@ -42,7 +42,7 @@ as entry_date_ansi, to_char(current_timestamp,'YYYY-MM-DD HH24:MI:SS') as sysdate_ansi, - title, + e.title, title_url, e.category_id, com.category_id as sw_category_id, @@ -64,7 +64,7 @@ left outer join category_object_map com on (com.object_id = e.entry_id) $sw_category_filter_join_clause - where package_id = :package_id + where e.package_id = :package_id [ad_decode $date_clause "" "" "and $date_clause"] and draft_p = 'f' and deleted_p = 'f' 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.4.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:19:53 -0000 1.5.4.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.19.2.2 -r1.19.2.3 --- openacs-4/packages/lars-blogger/www/entry-chunk.tcl 20 Apr 2005 14:27:43 -0000 1.19.2.2 +++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl 7 Oct 2005 08:19:53 -0000 1.19.2.3 @@ -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.34.2.3 -r1.34.2.4 --- openacs-4/packages/lars-blogger/www/index.adp 1 Jun 2005 05:39:57 -0000 1.34.2.3 +++ openacs-4/packages/lars-blogger/www/index.adp 7 Oct 2005 08:19:53 -0000 1.34.2.4 @@ -38,10 +38,11 @@

- +
+

#lars-blogger.Archive#

@@ -114,7 +115,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.22.2.4 -r1.22.2.5 --- openacs-4/packages/lars-blogger/www/index.tcl 20 Apr 2005 14:27:43 -0000 1.22.2.4 +++ openacs-4/packages/lars-blogger/www/index.tcl 7 Oct 2005 08:19:53 -0000 1.22.2.5 @@ -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