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;