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 -N -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/lars-blogger.info 14 Sep 2002 18:37:57 -0000 1.3 +++ openacs-4/packages/lars-blogger/lars-blogger.info 14 Sep 2002 21:43:32 -0000 1.4 @@ -7,33 +7,42 @@ f f - + oracle postgresql Lars Pind Write your own web log - 2002-08-13 + 2002-09-15 Collaboraid Manages multiple web logs for your site. Just mount multiple instances, and you can do all the blogging you want. + + + + + + + + + @@ -92,10 +101,8 @@ - - Index: openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-create.sql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-create.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-create.sql 14 Sep 2002 21:43:33 -0000 1.2 @@ -46,4 +46,5 @@ @@ lars-blogger-package-create -@@ rss-register \ No newline at end of file +@@ rss-register +@@ notifications-init Index: openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-drop.sql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-drop.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-drop.sql 14 Sep 2002 21:43:33 -0000 1.2 @@ -8,6 +8,7 @@ -- @cvs-id $Id$ -- +@@ notifications-drop @@ rss-unregister begin Index: openacs-4/packages/lars-blogger/sql/oracle/notifications-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/notifications-drop.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/oracle/notifications-drop.sql 14 Sep 2002 21:43:33 -0000 1.1 @@ -0,0 +1,19 @@ +-- +-- The Forums Package +-- +-- @author gwong@orchardlabs.com,ben@openforce.biz +-- @creation-date 2002-05-16 +-- +-- This code is newly concocted by Ben, but with significant concepts and code +-- lifted from Gilbert's UBB forums. Thanks Orchard Labs. +-- + +declare +begin + for row in (select type_id + from notification_types + where short_name in ('lars_blogger_notif_type')) + loop + notification_type.delete(row.type_id); + end loop; +end; Index: openacs-4/packages/lars-blogger/sql/oracle/notifications-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/notifications-init.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/oracle/notifications-init.sql 14 Sep 2002 21:43:33 -0000 1.1 @@ -0,0 +1,69 @@ + +-- +-- The Forums Package +-- +-- @author gwong@orchardlabs.com,ben@openforce.biz +-- @creation-date 2002-05-16 +-- +-- This code is newly concocted by Ben, but with significant concepts and code +-- lifted from Gilbert's UBB forums. Thanks Orchard Labs. +-- + +-- the integration with Notifications + +declare + impl_id integer; + v_foo integer; +begin + -- the notification type impl + impl_id := acs_sc_impl.new ( + 'NotificationType', + 'lars_blogger_notif_type', + 'lars-blogger' + ); + + v_foo := acs_sc_impl.new_alias ( + 'NotificationType', + 'lars_blogger_notif_type', + 'GetURL', + 'lars_blogger::notification::get_url', + 'TCL' + ); + + v_foo := acs_sc_impl.new_alias ( + 'NotificationType', + 'lars_blogger_notif_type', + 'ProcessReply', + 'lars_blogger::notification::process_reply', + 'TCL' + ); + + acs_sc_binding.new ( + contract_name => 'NotificationType', + impl_name => 'lars_blogger_notif_type' + ); + + v_foo:= notification_type.new ( + short_name => 'lars_blogger_notif', + sc_impl_id => impl_id, + pretty_name => 'Blog Notification', + description => 'Notifications for Blog', + creation_user => NULL, + creation_ip => NULL + ); + + -- enable the various intervals and delivery methods + insert into notification_types_intervals + (type_id, interval_id) + select v_foo, interval_id + from notification_intervals where name in ('instant','hourly','daily'); + + insert into notification_types_del_methods + (type_id, delivery_method_id) + select v_foo, delivery_method_id + from notification_delivery_methods where short_name in ('email'); + + +end; +/ +show errors Index: openacs-4/packages/lars-blogger/sql/oracle/upgrade/upgrade-0.7d-0.8.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/upgrade/upgrade-0.7d-0.8.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/oracle/upgrade/upgrade-0.7d-0.8.sql 14 Sep 2002 21:43:33 -0000 1.1 @@ -0,0 +1,11 @@ +-- +-- upgrade-0.7d-0.8.sql +-- +-- @author Lars Pind +-- +-- @cvs-id $Id: upgrade-0.7d-0.8.sql,v 1.1 2002/09/14 21:43:33 lars Exp $ +-- + +-- added notifications + +@@ ../notifications-init Index: openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-create.sql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-create.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-create.sql 14 Sep 2002 21:43:34 -0000 1.2 @@ -125,3 +125,4 @@ \i rss-register.sql +\i notifications-init.sql Index: openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-drop.sql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-drop.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/postgresql/lars-blogger-drop.sql 14 Sep 2002 21:43:34 -0000 1.2 @@ -6,6 +6,7 @@ -- @cvs-id $Id$ -- +\i notifications-drop.sql \i rss-unregister.sql create function inline_0 () Index: openacs-4/packages/lars-blogger/sql/postgresql/notifications-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/notifications-drop.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/postgresql/notifications-drop.sql 14 Sep 2002 21:43:34 -0000 1.1 @@ -0,0 +1,90 @@ +-- +-- +-- The Weblogger Package +-- +-- @author lars@pinds.com +-- @creation-date 2002-09-14 +-- + +-- drop integration with Notifications + +create function inline_0 () +returns integer as ' +declare + row record; +begin + for row in select nt.type_id + from notification_types nt + where nt.short_name in (''lars_blogger_notif_type'') + loop + perform notification_type__delete(row.type_id); + end loop; + + return null; +end;' language 'plpgsql'; + +select inline_0(); +drop function inline_0 (); + +-- +-- Service contract drop stuff was missing - Roberto Mello +-- + +create function inline_0() returns integer as ' +declare + impl_id integer; + v_foo integer; +begin + + -- the notification type impl + impl_id := acs_sc_impl__get_id ( + ''NotificationType'', -- impl_contract_name + ''lars_blogger_notif_type'' -- impl_name + ); + + PERFORM acs_sc_binding__delete ( + ''NotificationType'', + ''lars_blogger_notif_type'' + ); + + v_foo := acs_sc_impl_alias__delete ( + ''NotificationType'', -- impl_contract_name + ''lars_blogger_notif_type'', -- impl_name + ''GetURL'' -- impl_operation_name + ); + + v_foo := acs_sc_impl_alias__delete ( + ''NotificationType'', -- impl_contract_name + ''lars_blogger_notif_type'', -- impl_name + ''ProcessReply'' -- impl_operation_name + ); + + select into v_foo type_id + from notification_types + where sc_impl_id = impl_id + and short_name = ''lars_blogger_notif''; + + perform notification_type__delete (v_foo); + + delete from notification_types_intervals + where type_id = v_foo + and interval_id in ( + select interval_id + from notification_intervals + where name in (''instant'',''hourly'',''daily'') + ); + + delete from notification_types_del_methods + where type_id = v_foo + and delivery_method_id in ( + select delivery_method_id + from notification_delivery_methods + where short_name in (''email'') + ); + + return (0); +end; +' language 'plpgsql'; + +select inline_0(); +drop function inline_0(); Index: openacs-4/packages/lars-blogger/sql/postgresql/notifications-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/notifications-init.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/postgresql/notifications-init.sql 14 Sep 2002 21:43:34 -0000 1.1 @@ -0,0 +1,71 @@ +-- +-- The Weblogger Package +-- +-- @author lars@pinds.com +-- @creation-date 2002-09-14 +-- + +-- the integration with Notifications + +create function inline_0() returns integer as ' +declare + impl_id integer; + v_foo integer; +begin + -- the notification type impl + impl_id := acs_sc_impl__new ( + ''NotificationType'', + ''lars_blogger_notif_type'', + ''lars-blogger'' + ); + + v_foo := acs_sc_impl_alias__new ( + ''NotificationType'', + ''lars_blogger_notif_type'', + ''GetURL'', + ''lars_blogger::notification::get_url'', + ''TCL'' + ); + + v_foo := acs_sc_impl_alias__new ( + ''NotificationType'', + ''lars_blogger_notif_type'', + ''ProcessReply'', + ''lars_blogger::notification::process_reply'', + ''TCL'' + ); + + PERFORM acs_sc_binding__new ( + ''NotificationType'', + ''lars_blogger_notif_type'' + ); + + v_foo:= notification_type__new ( + NULL, + impl_id, + ''lars_blogger_notif'', + ''Blog Notification'', + ''Notifications for Blog'', + now(), + NULL, + NULL, + NULL + ); + + -- enable the various intervals and delivery methods + insert into notification_types_intervals + (type_id, interval_id) + select v_foo, interval_id + from notification_intervals where name in (''instant'',''hourly'',''daily''); + + insert into notification_types_del_methods + (type_id, delivery_method_id) + select v_foo, delivery_method_id + from notification_delivery_methods where short_name in (''email''); + + return (0); +end; +' language 'plpgsql'; + +select inline_0(); +drop function inline_0(); \ No newline at end of file Index: openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.7d-0.8.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.7d-0.8.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.7d-0.8.sql 14 Sep 2002 21:43:35 -0000 1.1 @@ -0,0 +1,11 @@ +-- +-- upgrade-0.7d-0.8.sql +-- +-- @author Lars Pind +-- +-- @cvs-id $Id: upgrade-0.7d-0.8.sql,v 1.1 2002/09/14 21:43:35 lars Exp $ +-- + +-- added notifications + +\i ../notifications-init.sql 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl 14 Sep 2002 21:43:36 -0000 1.1 @@ -0,0 +1,46 @@ +ad_library { + Entry procs for blogger. +} + + +namespace eval lars_blogger::entry { + + ad_proc -public get { + -entry_id:required + -array:required + } { + # Select the info into the upvar'ed Tcl Array + upvar $array row + + db_1row select_entry { *SQL* } -column_array row + } + + + ad_proc -public do_notifications { + {-entry_id:required} + } { + # Select all the important information + get -entry_id $entry_id -array blog + + set blog_url "[ad_url][lars_blog_public_package_url -package_id $blog(package_id)]" + set entry_url "[ad_url][lars_blog_public_package_url -package_id $blog(package_id)]one-entry?[export_vars { entry_id }]" + set blog_name [lars_blog_name -package_id $blog(package_id)] + + set new_content "" + append new_content "$blog(poster_first_names) $blog(poster_last_name) posted to $blog_name at $blog(posted_time_pretty) on $blog(entry_date_pretty):\n\n" + append new_content "$blog(title)\n\n" + append new_content "[ad_convert_to_text -- [ns_adp_parse -string $blog(content)]]\n\n" + append new_content "This entry: $entry_url\n\n" + append new_content "$blog_name: $blog_url\n" + + # Do the notification for the forum + notification::new \ + -type_id [notification::type::get_type_id \ + -short_name lars_blogger_notif] \ + -object_id $blog(package_id) \ + -response_id $blog(entry_id) \ + -notif_subject $blog(title) \ + -notif_text $new_content + } + +} \ No newline at end of file Index: openacs-4/packages/lars-blogger/tcl/entry-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/Attic/entry-procs.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/tcl/entry-procs.xql 14 Sep 2002 21:43:36 -0000 1.1 @@ -0,0 +1,30 @@ + + + + + + + select b.entry_id, + b.title, + b.content, + b.draft_p, + to_char(b.entry_date, 'YYYY-MM-DD') as entry_date, + to_char(b.entry_date, 'fmDayfm, Month fmDDfm, YYYY') as entry_date_pretty, + p.first_names as poster_first_names, + p.last_name as poster_last_name, + to_char(b.posted_date , 'HH24:MI') as posted_time_pretty, + b.package_id, + (select count(gc.comment_id) + from general_comments gc, cr_revisions cr + where gc.object_id = entry_id + and content_item__get_live_revision(gc.comment_id) = cr.revision_id) as num_comments + from pinds_blog_entries b, + acs_objects o, + persons p + where b.entry_id = :entry_id + and o.object_id = b.entry_id + and p.person_id = o.creation_user + + + + Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 14 Sep 2002 16:40:33 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 14 Sep 2002 21:43:36 -0000 1.5 @@ -75,4 +75,14 @@ } } return [ad_parameter -package_id $package_id "public_url" "lars-blogger" $default_url] +} + +ad_proc -public lars_blog_name { + -package_id +} { + if { ![exists_and_not_null package_id] } { + set package_id [ad_conn package_id] + } + array set site_node [site_node::get_from_object_id -object_id [ad_conn package_id]] + return $site_node(instance_name) } \ No newline at end of file Index: openacs-4/packages/lars-blogger/www/archive-display.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/Attic/archive-display.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/www/archive-display.adp 14 Sep 2002 18:05:12 -0000 1.3 +++ openacs-4/packages/lars-blogger/www/archive-display.adp 14 Sep 2002 21:43:37 -0000 1.4 @@ -26,21 +26,41 @@
+ - Archive + Notifications - - + + @notification_chunk@
+ + + + + Archive + + + + + + + + + +
+ + + + Index: openacs-4/packages/lars-blogger/www/archive-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/Attic/archive-display.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/lars-blogger/www/archive-display.tcl 14 Sep 2002 18:37:58 -0000 1.4 +++ openacs-4/packages/lars-blogger/www/archive-display.tcl 14 Sep 2002 21:43:37 -0000 1.5 @@ -30,4 +30,11 @@ set date "$year-$month-[ad_decode $day "" "01" $day]" +set notification_chunk [notification::display::request_widget \ + -type lars_blogger_notif \ + -object_id [ad_conn package_id] \ + -pretty_name [lars_blog_name] \ + -url [lars_blog_public_package_url] \ +] + ad_return_template \ No newline at end of file Index: openacs-4/packages/lars-blogger/www/blog-months.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog-months.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/www/blog-months.adp 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/www/blog-months.adp 14 Sep 2002 21:43:37 -0000 1.2 @@ -1,5 +1,5 @@ - \ No newline at end of file + + + @months.date_pretty@
+ + \ No newline at end of file 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 -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/www/calendar.tcl 14 Sep 2002 18:05:12 -0000 1.1 +++ openacs-4/packages/lars-blogger/www/calendar.tcl 14 Sep 2002 21:43:37 -0000 1.2 @@ -26,7 +26,7 @@ set widget [dt_widget_month_small \ -date $date \ -calendar_details $calendar_details \ - -day_number_template "\[ad_decode \[ns_set get \$calendar_details \$julian_date\] 1 \"\$day_number\" \$day_number\]"] + -day_number_template "\[ad_decode \[ns_set get \$calendar_details \$julian_date\] 1 \"\$day_number\" \$day_number\]"] set prev_month_url "${package_url}archive/[clock format [clock scan $prev_month] -format %Y/%m]/" set next_month_url "${package_url}archive/[clock format [clock scan $next_month] -format %Y/%m]/" Index: openacs-4/packages/lars-blogger/www/entry-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/www/entry-chunk.adp 14 Sep 2002 16:40:34 -0000 1.1 +++ openacs-4/packages/lars-blogger/www/entry-chunk.adp 14 Sep 2002 21:43:37 -0000 1.2 @@ -29,6 +29,13 @@ # - G - + + + + @blog.num_comments@ commentcomments - + + + Add comment 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 -N -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/www/index.adp 14 Sep 2002 18:05:12 -0000 1.3 +++ openacs-4/packages/lars-blogger/www/index.adp 14 Sep 2002 21:43:37 -0000 1.4 @@ -30,21 +30,41 @@
+ - Archive + Notifications - - + + @notification_chunk@
+ + + + + Archive + + + + + + + + + +
+ + + + 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 -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/www/index.tcl 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/www/index.tcl 14 Sep 2002 21:43:37 -0000 1.2 @@ -4,14 +4,19 @@ page_title } -set package_id [ad_conn package_id] - set context_bar [ad_context_bar] -set page_title [db_string package_name { *SQL* }] +set page_title [lars_blog_name] if { ![empty_string_p [ad_parameter "rss_file_url"]] } { set rss_file_url "[ad_url][ad_parameter "rss_file_url"]" } -ad_return_template +set notification_chunk [notification::display::request_widget \ + -type lars_blogger_notif \ + -object_id [ad_conn package_id] \ + -pretty_name [lars_blog_name] \ + -url [lars_blog_public_package_url] \ +] + +ad_return_template \ No newline at end of file Index: openacs-4/packages/lars-blogger/www/index.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.xql,v diff -u -N --- openacs-4/packages/lars-blogger/www/index.xql 19 Aug 2002 21:52:59 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,12 +0,0 @@ - - - - - - - select instance_name from apm_packages - where package_id = :package_id - - - - Index: openacs-4/packages/lars-blogger/www/one-entry.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/one-entry.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/www/one-entry.tcl 14 Sep 2002 16:40:34 -0000 1.3 +++ openacs-4/packages/lars-blogger/www/one-entry.tcl 14 Sep 2002 21:43:37 -0000 1.4 @@ -21,7 +21,7 @@ set show_poster_p [ad_parameter "ShowPosterP" "" "1"] -db_1row entry { *SQL* } -column_array blog +lars_blogger::entry::get -entry_id $entry_id -array blog set page_title $blog(title) Index: openacs-4/packages/lars-blogger/www/one-entry.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/Attic/one-entry.xql,v diff -u -N --- openacs-4/packages/lars-blogger/www/one-entry.xql 14 Sep 2002 18:05:12 -0000 1.5 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,25 +0,0 @@ - - - - - - - select b.entry_id, - b.title, - b.content, - b.draft_p, - to_char(b.entry_date, 'YYYY-MM-DD') as entry_date, - to_char(entry_date, 'fmDayfm, Month fmDDfm, YYYY') as entry_date_pretty, - p.first_names as poster_first_names, - p.last_name as poster_last_name, - to_char(b.posted_date , 'HH24:MI') as posted_time_pretty - from pinds_blog_entries b, - acs_objects o, - persons p - where b.entry_id = :entry_id - and o.object_id = b.entry_id - and p.person_id = o.creation_user - - - - Index: openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-edit.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl 14 Sep 2002 18:37:59 -0000 1.5 +++ openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl 14 Sep 2002 21:43:37 -0000 1.6 @@ -27,7 +27,7 @@ -help_text "If you set this to something other than today's date, you must use this form to publish your entry, otherwise the entry date will be set to the date you publish the item." \ -after_html {(Set to today)} -element create entry draft_p -label "Draft" -datatype text -widget checkbox -options { { "This is a draft, don't publish it" "t" } } -optional +element create entry draft_p -label "Post Status" -datatype text -widget select -options { { "Draft" "t" } { "Publish" "f" } } element create entry entry_id -widget hidden -datatype text element create entry insert_or_update -widget hidden -datatype text Index: openacs-4/packages/lars-blogger/www/admin/entry-preview.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-preview.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/lars-blogger/www/admin/entry-preview.adp 14 Sep 2002 16:40:35 -0000 1.3 +++ openacs-4/packages/lars-blogger/www/admin/entry-preview.adp 14 Sep 2002 21:43:37 -0000 1.4 @@ -2,4 +2,12 @@ @page_title@ @context_bar@ + + + + +
+ @blog.entry_date_pretty@ +
+ Index: openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-preview.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl 14 Sep 2002 16:40:35 -0000 1.2 +++ openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl 14 Sep 2002 21:43:37 -0000 1.3 @@ -19,7 +19,8 @@ set context_bar [ad_context_bar $page_title] -db_1row entry { *SQL* } -column_array blog +set show_poster_p [ad_parameter "ShowPosterP" "" "1"] +lars_blogger::entry::get -entry_id $entry_id -array blog ad_return_template \ No newline at end of file Index: openacs-4/packages/lars-blogger/www/admin/entry-publish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-publish.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lars-blogger/www/admin/entry-publish.tcl 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/www/admin/entry-publish.tcl 14 Sep 2002 21:43:37 -0000 1.2 @@ -7,8 +7,11 @@ ad_returnredirect $return_url -ns_conn close +#ns_conn close +# Notifications +lars_blogger::entry::do_notifications -entry_id $entry_id + # Ping weblogs.com lars_blog_weblogs_com_update_ping