Index: openacs-4/packages/news-aggregator/news-aggregator.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/news-aggregator.info,v diff -u -r1.5.4.6 -r1.5.4.7 --- openacs-4/packages/news-aggregator/news-aggregator.info 5 Jul 2005 22:24:57 -0000 1.5.4.6 +++ openacs-4/packages/news-aggregator/news-aggregator.info 17 Aug 2005 09:18:31 -0000 1.5.4.7 @@ -7,13 +7,13 @@ f f - + Simon Carstensen Read news sources from your website. 2003-11-10 The news aggregator periodically reads a set of news sources, in one of several XML-based formats, finds the new bits, and displays them in reverse-chronological order on a single page. - + Index: openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/sql/oracle/Attic/news-aggregator-drop.sql,v diff -u -r1.3 -r1.3.4.1 --- openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-drop.sql 30 Sep 2003 12:10:08 -0000 1.3 +++ openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-drop.sql 17 Aug 2005 09:18:32 -0000 1.3.4.1 @@ -10,7 +10,9 @@ for na_source in (select source_id from na_sources) loop - na_source.del(na_source.source_id); + na_source.del( + source_id => na_sources.source_id + ); end loop; acs_object_type.drop_type( Index: openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/sql/oracle/Attic/news-aggregator-package-create.sql,v diff -u -r1.3 -r1.3.4.1 --- openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-create.sql 30 Sep 2003 12:10:08 -0000 1.3 +++ openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-create.sql 17 Aug 2005 09:18:32 -0000 1.3.4.1 @@ -92,8 +92,13 @@ is begin - delete - from na_sources + delete from na_items + where source_id = na_source.del.source_id; + + delete from acs_permissions + where object_id = na_source.del.source_id; + + delete from na_sources where source_id = na_source.del.source_id; acs_object.del(na_source.del.source_id); @@ -119,3 +124,58 @@ end na_source; / show errors + +-- Package na_item +create or replace package na_item +as + + function new ( + source_id in na_items.source_id%TYPE default null, + link in na_items.link%TYPE default null, + title in na_items.title%TYPE default null, + description in varchar default null, + creation_date in na_items.creation_date%TYPE default sysdate, + deleted_p in na_items.deleted_p%TYPE default '0' + ) return integer; + + +end na_item; +/ +show errors + +create or replace package body na_item +as + + function new ( + source_id in na_items.source_id%TYPE default null, + link in na_items.link%TYPE default null, + title in na_items.title%TYPE default null, + description in varchar default null, + creation_date in na_items.creation_date%TYPE default sysdate, + deleted_p in na_items.deleted_p%TYPE default '0' + ) return integer + is + v_resultado integer; + v_item_id na_items.item_id%TYPE; + begin + + select na_items_seq.nextval into v_item_id from dual; + + insert into na_items + (item_id, source_id, link, title, description, creation_date, deleted_p) + values + (v_item_id, + na_item.new.source_id, + na_item.new.link, + na_item.new.title, + na_item.new.description, + na_item.new.creation_date, + na_item.new.deleted_p); + + select 1 into v_resultado from dual; + return v_resultado; + end new; +end na_item; +/ +show errors + Index: openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/sql/oracle/Attic/news-aggregator-package-drop.sql,v diff -u -r1.2 -r1.2.4.1 --- openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-drop.sql 28 Aug 2003 09:41:57 -0000 1.2 +++ openacs-4/packages/news-aggregator/sql/oracle/news-aggregator-package-drop.sql 17 Aug 2005 09:18:32 -0000 1.2.4.1 @@ -8,3 +8,6 @@ drop package body na_source; drop package na_source; + +drop package body na_item; +drop package na_item; \ No newline at end of file Index: openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/Attic/news-aggregator-procs-oracle.xql,v diff -u -r1.2.4.2 -r1.2.4.3 --- openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql 6 Mar 2005 11:37:59 -0000 1.2.4.2 +++ openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql 17 Aug 2005 09:18:32 -0000 1.2.4.3 @@ -23,33 +23,30 @@ begin - :1 := na_source.new ( + :1 := na_item.new ( source_id => :source_id, - package_id => :package_id, - feed_url => :feed_url, link => :link, title => :title, description => :description, - creation_user => :owner_id, - creation_ip => :creation_ip + creation_date => sysdate, + deleted_p => '0' ); - + end; + begin - :1 := na_source.new ( + :1 := na_item.new ( source_id => :source_id, - package_id => :package_id, - feed_url => :feed_url, link => :link, title => :title, description => :description, - creation_user => :owner_id, - creation_ip => :creation_ip + creation_date => sysdate, + deleted_p => '0' ); - end + end; Index: openacs-4/packages/news-aggregator/www/subscriptions-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/Attic/subscriptions-oracle.xql,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/news-aggregator/www/subscriptions-oracle.xql 14 Nov 2003 23:24:10 -0000 1.4 +++ openacs-4/packages/news-aggregator/www/subscriptions-oracle.xql 17 Aug 2005 09:18:32 -0000 1.4.2.1 @@ -6,7 +6,7 @@ begin - :1 := na_source.del( + na_source.del( source_id => :delete_id ); end;