Index: openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 28 Aug 2003 09:41:55 -0000 1.3 +++ openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 28 Sep 2003 16:24:52 -0000 1.4 @@ -19,6 +19,7 @@ posted_date, to_char(posted_date, 'YYYY-MM-DD') as posted_date_string, to_char(posted_date, 'HH:MI') as posted_time_string, + to_char(posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, -6 as tzoffset_hour, 0 as tzoffset_minute, to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty, @@ -42,6 +43,7 @@ posted_date, to_char(posted_date, 'YYYY-MM-DD') as posted_date_string, to_char(posted_date, 'HH:MI') as posted_time_string, + to_char(posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, -6 as tzoffset_hour, 0 as tzoffset_minute, to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty, Index: openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql 28 Aug 2003 09:41:55 -0000 1.3 +++ openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql 28 Sep 2003 16:24:52 -0000 1.4 @@ -18,6 +18,7 @@ posted_date, to_char(posted_date, 'YYYY-MM-DD') as posted_date_string, to_char(posted_date, 'HH:MI') as posted_time_string, + to_char(posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, extract(timezone_hour from now()) as tzoffset_hour, extract(timezone_minute from now()) as tzoffset_minute, to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty, @@ -41,6 +42,7 @@ posted_date, to_char(posted_date, 'YYYY-MM-DD') as posted_date_string, to_char(posted_date, 'HH:MI') as posted_time_string, + to_char(posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, extract(timezone_hour from now()) as tzoffset_hour, extract(timezone_minute from now()) as tzoffset_minute, to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty, Index: openacs-4/packages/lars-blogger/tcl/rss-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 28 Aug 2003 09:41:55 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 28 Sep 2003 16:24:52 -0000 1.5 @@ -30,7 +30,7 @@ set column_array(channel_description) $blog_title set column_array(channel_pubDate) [db_string now {}] - set column_array(version) 1.00 + set column_array(version) 2.0 set column_array(channel_link) $blog_url @@ -57,9 +57,7 @@ } db_foreach $statement {} { - set TZoffset [format "%+03d:%02d" $tzoffset_hour $tzoffset_minute] - - set entry_url "[ad_url]${package_url}archive/${entry_archive_url}#blog-entry-$entry_id" + set entry_url [export_vars -base "[ad_url]${package_url}one-entry" { entry_id }] set content [ns_adp_parse -string $content] @@ -72,7 +70,16 @@ set description $content_as_text } - lappend items [list link $entry_url title $title description $description value $content timestamp "${posted_date_string}T${posted_time_string}$TZoffset"] + # TODO: Figure out timezone ... + set entry_timestamp "[clock format [clock scan $posted_time_ansi] -format "%a, %d %b %Y %H:%M:%S %Z"]" + + lappend items [list \ + link $entry_url \ + title $title \ + description $description \ + value $content \ + timestamp $entry_timestamp] + if { $counter == 0 } { set column_array(channel_lastBuildDate) $entry_date_pretty incr counter Index: openacs-4/packages/lars-blogger/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.adp,v diff -u -r1.8 -r1.9 --- openacs-4/packages/lars-blogger/www/admin/index.adp 28 Aug 2003 09:41:56 -0000 1.8 +++ openacs-4/packages/lars-blogger/www/admin/index.adp 28 Sep 2003 16:24:52 -0000 1.9 @@ -1,5 +1,6 @@ -@title@ +@title;noquote@ +@context;noquote@

These are your administrative options Index: openacs-4/packages/lars-blogger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/lars-blogger/www/admin/index.tcl 18 Sep 2003 20:07:17 -0000 1.5 +++ openacs-4/packages/lars-blogger/www/admin/index.tcl 28 Sep 2003 16:24:52 -0000 1.6 @@ -7,7 +7,7 @@ set admin_p [ad_require_permission $package_id admin] -set context_bar [ad_context_bar] +set context [list] set title [db_string package_name { *SQL* }]