Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/category-procs-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/category-procs-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/category-procs.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/category-procs.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql 17 Oct 2003 00:39:22 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql 24 Nov 2003 13:32:15 -0000 1.4.2.1 @@ -3,6 +3,25 @@ oracle8.1.6 + + + begin + :1 := pinds_blog_entry.new ( + entry_id => :entry_id, + package_id => :package_id, + title => :title, + title_url => :title_url, + content => :content, + content_format => :content_format, + entry_date => nvl(to_date(:entry_date, 'YYYY-MM-DD'), sysdate), + draft_p => :draft_p, + creation_user => :creation_user, + creation_ip => :creation_ip + ); + end; + + + select b.entry_id, Index: openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql 1 Oct 2003 19:12:05 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql 24 Nov 2003 13:32:15 -0000 1.4.2.1 @@ -3,6 +3,24 @@ postgresql7.1 + + + select pinds_blog_entry__new ( + :entry_id, + :package_id, + :title, + :title_url, + :category_id, + :content, + :content_format, + coalesce(to_date(:entry_date, 'YYYY-MM-DD'), current_timestamp), + :draft_p, + :creation_user, + :creation_ip + ) + + + select b.entry_id, 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.9 -r1.9.2.1 --- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl 1 Nov 2003 08:45:38 -0000 1.9 +++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl 24 Nov 2003 13:32:15 -0000 1.9.2.1 @@ -2,8 +2,46 @@ Entry procs for blogger. } +namespace eval lars_blogger {} namespace eval lars_blogger::entry {} +ad_proc -public lars_blogger::entry::new { + {-entry_id ""} + {-package_id ""} + {-title:required} + {-title_url ""} + {-category_id ""} + {-content ""} + {-content_format "text/plain"} + {-entry_date ""} + {-draft_p "t"} +} { + Add the blog entry and then flush the cache so that the new entry shows up. +} { + set creation_user [ad_conn user_id] + set creation_ip [ns_conn peeraddr] + + if { [empty_string_p $package_id] } { + set package_id [ad_conn package_id] + } + + db_transaction { + # Create the entry + set entry_id [db_exec_plsql entry_add {}] + lars_blog_flush_cache $package_id + } + + # If publish directly, fire off notifications and ping weblogs.com + if { [string equal $draft_p "f"] } { + lars_blogger::entry::publish \ + -entry_id $entry_id \ + -package_id $package_id \ + -no_update + } + + return $entry_id +} + ad_proc -public lars_blogger::entry::get { -entry_id:required -array:required @@ -30,7 +68,7 @@ } { if { !$no_update_p } { # Set draft_p = 'f' - db_dml update_entry { *SQL* } + db_dml update_entry {} # Flush cache lars_blog_flush_cache } @@ -40,12 +78,9 @@ ns_conn close } - # Setup instance feed if needed + # Setup instance/user feeds if needed lars_blog_setup_feed -package_id $package_id - # Setup user feed if needed - lars_blog_setup_feed -user -package_id $package_id - # Notifications lars_blogger::entry::do_notifications -entry_id $entry_id Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql 28 Aug 2003 09:41:55 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql 24 Nov 2003 13:32:15 -0000 1.4.2.1 @@ -3,25 +3,6 @@ oracle8.1.6 - - - begin - :1 := pinds_blog_entry.new ( - entry_id => :entry_id, - package_id => :package_id, - title => :title, - title_url => :title_url, - content => :content, - content_format => :content_format, - entry_date => to_date(:entry_date, 'YYYY-MM-DD'), - draft_p => :draft_p, - creation_user => :creation_user, - creation_ip => :creation_ip - ); - end; - - - begin Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql 29 Sep 2003 08:05:42 -0000 1.5 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql 24 Nov 2003 13:32:15 -0000 1.5.2.1 @@ -3,24 +3,6 @@ postgresql7.1 - - - select pinds_blog_entry__new ( - :entry_id, - :package_id, - :title, - :title_url, - :category_id, - :content, - :content_format, - to_date(:entry_date, 'YYYY-MM-DD'), - :draft_p, - :creation_user, - :creation_ip - ) - - - select weblogger_channel__new ( 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 -r1.13 -r1.13.2.1 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 21 Oct 2003 20:31:06 -0000 1.13 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl 24 Nov 2003 13:32:15 -0000 1.13.2.1 @@ -5,7 +5,7 @@ @cvs-id $Id$ } -ad_proc -public lars_blog_entry_add { +ad_proc -deprecated -warn lars_blog_entry_add { {-entry_id:required} {-package_id:required} {-title:required} @@ -16,26 +16,18 @@ {-entry_date:required} {-draft_p:required} } { - Add the blog entry and then flush the cache so that the new entry shows up. + Add the blog entry and then flush the cache so that the new entry shows up. } { - set creation_user [ad_conn user_id] - set creation_ip [ns_conn peeraddr] - - db_transaction { - # Create the entry - set entry_id [db_exec_plsql entry_add {}] - lars_blog_flush_cache $package_id - } - - # If publish directly, fire off notifications and ping weblogs.com - if { [string equal $draft_p "f"] } { - lars_blogger::entry::publish \ - -entry_id $entry_id \ - -package_id $package_id \ - -no_update - } - - return $entry_id + return [lars_blogger::entry::new \ + -entry_id $entry_id \ + -package_id $package_id \ + -title $title \ + -title_url $title_url \ + -category_id $category_id \ + -content $content \ + -content_format $content_format \ + -entry_date $entry_date \ + -draft_p $draft_p] } ad_proc lars_blog_setup_feed { @@ -51,61 +43,64 @@ set creation_user [ad_conn user_id] set creation_ip [ns_conn peeraddr] - if { !$user_p } { - if { [parameter::get -parameter "package_rss_feed_p" -default 1]} { + # Package feed + if { [parameter::get -parameter "package_rss_feed_p" -package_id $package_id -default 1] } { + + # check whether there's been a channel setup for this instance + set summary_context_id [db_string select_instance_channel {} -default {}] - # check whether there's been a channel setup for this instance - set summary_context_id [db_string select_instance_channel {} -default {}] + if { [empty_string_p $summary_context_id] } { + # Setup a channel for this instance + set summary_context_id [db_exec_plsql create_instance_channel {}] + } + + # check whether there's been a feed setup for this instance + set exists_instance_feed_p [db_string exists_instance_feed_p {}] + + if { [string equal $exists_instance_feed_p "0"] } { + # Setup an RSS feed for this instance + set channel_link [lars_blog_public_package_url] - if { [empty_string_p $summary_context_id] } { - # Setup a channel for this instance - set summary_context_id [db_exec_plsql create_instance_channel {}] - } + set subscr_id [db_exec_plsql create_subscr {}] + db_dml update_subscr {} - # check whether there's been a feed setup for this instance - set exists_instance_feed_p [db_string exists_instance_feed_p {}] - - if { [string equal $exists_instance_feed_p "0"] } { - # Setup an RSS feed for this instance - set channel_link [lars_blog_public_package_url] - - set subscr_id [db_exec_plsql create_subscr {}] - db_dml update_subscr {} - - # Run it now - rss_gen_report $subscr_id - } + # Run it now + rss_gen_report $subscr_id } - } else { - if {[parameter::get -parameter "user_rss_feed_p" -default 0]} { + } - # check whether there's been a channel setup for this instance - set summary_context_id [db_string select_user_channel {} -default {}] + if { [parameter::get -parameter "user_rss_feed_p" -package_id $package_id -default 0] } { - if { [empty_string_p $summary_context_id] } { - # Setup a channel for this instance - set summary_context_id [db_exec_plsql create_user_channel {}] - } + # check whether there's been a channel setup for this instance + set summary_context_id [db_string select_user_channel {} -default {}] - # check whether there's been a feed setup for this user - set exists_user_feed_p [db_string exists_user_feed_p {}] - set screen_name [db_string screen_name {}] + if { [empty_string_p $summary_context_id] } { + # Setup a channel for this instance + set summary_context_id [db_exec_plsql create_user_channel {}] + } - if { [string equal $exists_user_feed_p "0"] && ![empty_string_p $screen_name] } { - # Setup an RSS feed for the user - set channel_link "[lars_blog_public_package_url]user/$screen_name/" + # check whether there's been a feed setup for this user + set exists_user_feed_p [db_string exists_user_feed_p {}] - set subscr_id [db_exec_plsql create_subscr {}] - db_dml update_subscr {} - + if { !$exists_user_feed_p } { + set screen_name [acs_user::get_element -user_id $creation_user -element screen_name] + + if { ![empty_string_p $screen_name] } { + # Setup an RSS feed for the user + set channel_link "[lars_blog_public_package_url]user/$screen_name/" + + set subscr_id [db_exec_plsql create_subscr {}] + db_dml update_subscr {} + # Run it now rss_gen_report $subscr_id + } else { + ns_log Warning "lars-blogger: User $creation_user has no screen_name, cannot setup an RSS feed for user" } } } } - ad_proc -private lars_blog_get_as_string_mem { package_id admin_p Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql 28 Aug 2003 09:41:55 -0000 1.2 +++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql 24 Nov 2003 13:32:15 -0000 1.2.2.1 @@ -59,10 +59,4 @@ - - - select screen_name from users where user_id = :creation_user - - - 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.4 -r1.4.2.1 --- openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 28 Sep 2003 16:24:52 -0000 1.4 +++ openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 24 Nov 2003 13:32:15 -0000 1.4.2.1 @@ -13,51 +13,41 @@ select * from (select entry_id, - title, - content, - entry_date, - 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, - to_char(entry_date, 'YYYY/MM/') as entry_archive_url - from pinds_blog_entries - where package_id = :package_id - and draft_p = 'f' - and deleted_p = 'f' - order by entry_date desc, posted_date desc) + e.title, + e.content, + to_char(e.posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, + c.name as category + from pinds_blog_entries e, + pinds_blog_categories c + where e.package_id = :package_id + and e.draft_p = 'f' + and e.deleted_p = 'f' + and c.category_id = e.category_id (+) + order by e.entry_date desc, e.posted_date desc) where rownum < 11 select * - from (select entry_id, - title, - content, - entry_date, - 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, - to_char(entry_date, 'YYYY/MM/') as entry_archive_url + from (select e.entry_id, + e.title, + e.content, + to_char(e.posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, + c.name as category from pinds_blog_entries e, acs_objects o, - users u - where e.package_id = :package_id - and o.object_id = e.entry_id - and o.creation_user = :user_id - and u.user_id = o.creation_user - and e.draft_p = 'f' - and e.deleted_p = 'f' - order by e.entry_date desc, e.posted_date desc) + users u, + pinds_blog_categories c + where e.package_id = :package_id + and o.object_id = e.entry_id + and o.creation_user = :user_id + and u.user_id = o.creation_user + and e.draft_p = 'f' + and e.deleted_p = 'f' + and c.category_id = e.category_id (+) + order by e.entry_date desc, e.posted_date desc) where rownum < 11 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.5 -r1.5.2.1 --- openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql 29 Sep 2003 19:53:30 -0000 1.5 +++ openacs-4/packages/lars-blogger/tcl/rss-procs-postgresql.xql 24 Nov 2003 13:32:15 -0000 1.5.2.1 @@ -14,15 +14,7 @@ select e.entry_id, e.title, e.content, - e.entry_date, - e.posted_date, - to_char(e.posted_date, 'YYYY-MM-DD') as posted_date_string, - to_char(e.posted_date, 'HH:MI') as posted_time_string, to_char(e.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(e.entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty, - to_char(e.entry_date, 'YYYY/MM/') as entry_archive_url, c.name as category from pinds_blog_entries e left outer join pinds_blog_categories c using (category_id) @@ -36,28 +28,21 @@ - select entry_id, - title, - content, - entry_date, - 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, - to_char(entry_date, 'YYYY/MM/') as entry_archive_url - - from pinds_blog_entries e join - acs_objects o on (o.object_id = e.entry_id) join - users u on (u.user_id = o.creation_user) - where e.package_id = :package_id - and o.creation_user = :user_id - and e.draft_p = 'f' - and e.deleted_p = 'f' - order by e.entry_date desc, e.posted_date desc - limit 10 + select e.entry_id, + e.title, + e.content, + to_char(e.posted_date, 'YYYY-MM-DD HH24:MI:SS') as posted_time_ansi, + c.name as category + from pinds_blog_entries e join + acs_objects o on (o.object_id = e.entry_id) join + users u on (u.user_id = o.creation_user) left outer join + pinds_blog_categories c using (category_id) + where e.package_id = :package_id + and o.creation_user = :user_id + and e.draft_p = 'f' + and e.deleted_p = 'f' + order by e.entry_date desc, e.posted_date desc + limit 10 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.8 -r1.8.2.1 --- openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 29 Sep 2003 19:53:30 -0000 1.8 +++ openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 24 Nov 2003 13:32:15 -0000 1.8.2.1 @@ -5,6 +5,35 @@ @cvs-id $Id$ } +namespace eval lars_blogger {} +namespace eval lars_blogger::rss {} + + +ad_proc -public lars_blogger::rss::get_subscr_id_list { + {-package_id ""} +} { + if { [empty_string_p $package_id] } { + set package_id [ad_conn package_id] + } + + return [db_list select_subscr { + select s.subscr_id + from rss_gen_subscrs s + where s.summary_context_id = :package_id + or s.summary_context_id in (select c.channel_id + from weblogger_channels c + where c.package_id = :package_id) + }] +} + +ad_proc -public lars_blogger::rss::generate { + {-package_id ""} +} { + foreach subscr_id [lars_blogger::rss::get_subscr_id_list -package_id $package_id] { + rss_gen_report $subscr_id + } +} + ad_proc -private lars_blog__rss_datasource { summary_context_id } { @@ -13,7 +42,6 @@ @author Lars Pind (lars@pinds.com) } { - db_transaction { db_1row select_package_id_user_id {} @@ -25,7 +53,7 @@ set blog_url "[ad_url]$package_url" } - + set column_array(channel_title) $blog_title set column_array(channel_description) $blog_title Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/test/entry-test-procs.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lars-blogger/www/category-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/category-edit.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/lars-blogger/www/category-edit.tcl 16 Oct 2003 21:42:22 -0000 1.5 +++ openacs-4/packages/lars-blogger/www/category-edit.tcl 24 Nov 2003 13:32:15 -0000 1.5.2.1 @@ -56,10 +56,7 @@ } -on_submit { - if { [empty_string_p $short_name] } { - set existing_short_names [db_list short_names {}] - set short_name [util_text_to_url -existing_urls $existing_short_names -text $name] - } else { + if { ![empty_string_p $short_name] } { db_1row short_name_exists { *SQL* } if { $short_name_exists > 0 } { form set_error category short_name "This short name is already used by another category" @@ -69,13 +66,18 @@ } -new_data { - set creation_user [ad_conn user_id] - set creation_ip [ns_conn peeraddr] + lars_blogger::category::new \ + -name $name \ + -category_id $category_id \ + -short_name $short_name - db_exec_plsql insert_category {} - } -edit_data { - db_dml update_category {} + + lars_blogger::category::edit \ + -category_id $category_id \ + -name $name \ + -short_name $short_name + } -after_submit { ad_returnredirect $return_url ad_script_abort Index: openacs-4/packages/lars-blogger/www/category-edit.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/category-edit.xql,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/lars-blogger/www/category-edit.xql 17 Oct 2003 00:39:22 -0000 1.3 +++ openacs-4/packages/lars-blogger/www/category-edit.xql 24 Nov 2003 13:32:15 -0000 1.3.2.1 @@ -48,14 +48,5 @@ - - - update pinds_blog_categories - set name = :name, - short_name = :short_name - where category_id = :category_id - - - Index: openacs-4/packages/lars-blogger/www/drafts.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/drafts.tcl,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/lars-blogger/www/drafts.tcl 7 Nov 2003 17:35:42 -0000 1.4 +++ openacs-4/packages/lars-blogger/www/drafts.tcl 24 Nov 2003 13:32:15 -0000 1.4.2.1 @@ -20,6 +20,11 @@ link_url_eval {[export_vars -base entry-edit { entry_id { return_url [ad_return_url] } }]} link_html { title "Edit entry" } } +lappend elements title { + label "Title" + link_url_eval {[export_vars -base one-entry { entry_id }]} + link_html { title "Preview entry" } +} lappend elements entry_date { label "Date" display_col entry_date_pretty @@ -37,9 +42,7 @@ } lappend elements content { - label "Entry" - link_url_eval {[export_vars -base one-entry { entry_id { return_url [ad_return_url] } }]} - link_html { title "Preview entry" } + label "Content" } lappend elements publish { label {Publish} Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/lars-blogger/www/entry-edit.tcl 19 Oct 2003 20:25:03 -0000 1.8 +++ openacs-4/packages/lars-blogger/www/entry-edit.tcl 24 Nov 2003 13:32:15 -0000 1.8.2.1 @@ -106,7 +106,7 @@ set insert_or_update [element get_value entry insert_or_update] if { [string equal $insert_or_update "insert"] } { - lars_blog_entry_add \ + lars_blogger::entry::new \ -entry_id $entry_id \ -package_id $package_id \ -title $title \ @@ -137,7 +137,7 @@ lappend set_clauses [db_map now] } - db_dml update_entry { *SQL* } + db_dml update_entry {} # Is this a publish? if { [string equal $draft_p "t"] && [string equal $org_draft_p "f"] } { Fisheye: Tag 1.6.2.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/drafts.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.4.4.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/drafts.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.2.4.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/drafts.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-delete.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-delete.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-edit-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-edit-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.4.2.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-edit.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.21.2.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3.2.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-edit.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-publish-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-publish-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.2.4.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-publish.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-revoke.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1.6.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-revoke.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl 28 Aug 2003 09:41:56 -0000 1.2 +++ openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl 24 Nov 2003 13:32:16 -0000 1.2.2.1 @@ -2,7 +2,7 @@ Setup an RSS feed for this blogger. } -# Setup instance feed if needed +# Setup instance/user feeds if needed lars_blog_setup_feed ad_returnredirect .